帮忙看以下程序,为什么显示空白,什么都没有?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="937"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim Conn,strConn,rs
Set Conn=Server.CreateObject("ADODB.Connection")
set rs=server.Createobject("adodb.recordset")
StrConn="Provider=OraOLEDB.Oracle;data source=orcl;user id=newcmsuser;password=newcms;"
Conn.Open strConn
%>
<title>通知1</title>
</head>
<body>
<table>
<%
response.write("1")
dim sql
sql="select b.title as title,c.contents as contents from columninfo a,article b,articlecontents c where a.id=b.columnid and b.id=c.articleid"
rs=conn.execute(sql)
response.write("2")
if rs.RecordCount=0 then
response.write "< P>< center>对不起,数据库中没有相关信息!< /center>< /P>"
else
do while not rs.eof
%>
<tr>
<td>
<%=rs("Title")%>
</td>
</tr>
<tr>
<td>
<%=rs("contents")%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
set conn=nothing
end if
%>
</table>
</body>
</html>