这段代码显示全白就知道那里错

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.inc"-->
<!--#include file="conn.asp" -->
<%


set rs=server.createobject("adodb.recordset")
sqltext="select top 8 * from Product order by regtime desc"
'rs.open sqltext,conn,1,1
rs.open sqltext,conn

set rs_class_1=server.createobject("adodb.recordset")
sqltext2="select * from Class_1 "
rs_class_1.open sqltext2,conn,1,1

%>
<%
While Not rs_class_1.EOF
set rs_class_2=server.createobject("adodb.recordset")
sqltext3="select * from Class_2 where Class_1_Name='" & rs_class_1("Class_1_Name") & "'"
rs_class_2.open sqltext3,conn,1,1
%>
<%j=1%>
<%While Not rs_class_2.EOF%>
<%if j mod 1 = 0 then %>
<%end if%>
<%
rs_class_2.MoveNext
j=j+1
Wend
rs_class_2.close

%>
<%
rs_class_1.MoveNext
Wend
rs_class_1.close


我将一个完好的源码上的这段代码复制到另一个空白页上，放在同一目录中，绝对不会是数据库出错，但是用IIS浏览显示全白并没提错，不显示数据里面的内容，整个页面就是这一段代码没有其它了。问题出在那里呢