泥鳅和什么煮好吃:继帮我改下这代码

if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage
rowcount = rs.pagesize
%>
<%
dim r
dim j
dim k
r=0
while not rs.eof and rowcount > 0
if r mod 5=0 then
row="<tr>"
else
row=" "
end if
r=r+1
response.write(row)
response.write("<td width=100 class=my1 align=center>" & "<a target=_blank id=" & rs("id") & "><img width=80 height=60 border=0 src=uploadimg/" & rs("url") & "></a><p>")
response.write("<a target=_blank name=" & rs("name") & ">" & rs("name") & "</a><br>")
response.write(rs("time") & "<br>")
response.write(rs("say"))
rowcount=rowcount-1
rs.MoveNext
wend
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<p>  </p>
<table border="0" align="center">
<tr>
<td align="center" valign="middle">
<%call listPages()%>
</td>
</tr>
</table>
<%
sub listPages()
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%>
<b> <a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>"><font class=my3>[
<% =i*msg_per_page+j %>
]</font></a></b>  
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%>
<b> <a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>"><font class=my3>[
<% =i*msg_per_page+j %>
]</font></a></b>
<%next%>
<p> <font class=my3><b> 当前页:<%=currentpage%>/<%=n%>总页数   <%=msg_per_page%>张照片/页
  总照片数:<%=totalrec%>张</b></font>
<%end sub%>
</div>

</td>
</tr>

<tr>
<td height="30" align="center" valign="bottom">站长信箱：<a href="maito:gopot@163.com">gopot@163.com</a> QQ:406073313 Tel:13422209713<br>
 </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
出错提示;Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'conn'

/040416/16/photo.asp，行109
conn.asp 有了,109行是conn.close
这是一个显示相片的代码.....