请帮忙看看这段代码怎么了,为什么都是显示网页有错误,无法显示呢
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("user.mdb")
Conn.Open
set rs=server.createobject("adodb.recordset")
sql= "select * form tongji order by riqi desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有信息!<p>"
response.redirect "clinput1.asp"
else
%>
<html>
<head><title>显示信息</title></head>
<body bgcolor="#FFCCFF">
<p align="center"><font color="#008080">全部数据</font></p>
<p align="center"> </p>
<table border="1" width="100%">
<tr>
<td >
<p align="center"><font color="#008080">11</font></td>
<td >
<p align="center"><font color="#008080">22</font></td>
<td >
<p align="center"><font color="#008080">33</font></td>
<td >
<p align="center"><font color="#008080">44</font></td>
<td >
<p align="center"><font color="#008080">55</font></td>
</tr>
<%
do while not rs.eof
%>
<tr><td><p align="center"><%=rs("riqi")%>
<td><p align="center"><%=rs("sf")%>
<td><p align="center"><%=rs("sr")%>
<td><p align="center"><%=rs("hr")%>
<td><p align="center"><%=rs("bz")%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing
%>
</table>
</body>
</html>