这段程序为什么运行不了，各位知道的大哥麻烦帮忙看看
<!--#include file="ConnDB.asp"-->
<html>
<head>
<title>无标题文档</title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<table width="320" height="160" border="0" cellpadding="0" cellspacing="0">
<%
Dim rs
set rs = server.createobject("adodb.recordset")
sql="select top 6 * from Goods where typeid=2 order by Id desc"
'sql="select * from Goods order by Id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td align=center>目前还没有软件。<br></td></tr>"
else
dim pageSize
dim top
rs.PageSize =6 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
top=1
end if%>
<%
do while not rs.eof and top<6
%>
<tr align="center">
<% if not rs.eof then %>
<td width="32%" height="80" align="center" valign="top"><img src="admin/images/<%=rs("imageFile")%>" width="48" height="48" border="0"><BR><%=rs("Model")%></td>
<%top=top+1
rs.movenext
end if
%>
<% if not rs.eof then %>
<td width="32%" height="80" align="center" valign="top"><img src="admin/images/<%=rs("imageFile")%>" width="48" height="48" border="0"><BR><%=rs("Model")%></td>
<%top=top+1
rs.movenext
end if
%>
<% if not rs.eof then %>
<td width="32%" height="80" align="center" valign="top"><img src="admin/images/<%=rs("imageFile")%>" width="48" height="48" border="0"><BR><%=rs("Model")%></td>
<%top=top+1
rs.movenext
end if
%>
</tr>
<% if top>6 then exit do
loop
end if
rs.Close
set rs=nothing
%>
</table>
</body>
</html>
