请大家来帮我看看

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<% dim dianmianchaxun,rs,sql
dianmianchaxun=request.Form("dianmianchaxun")

set rs=server.CreateObject("adodb.recordset")
sql="select * from jibenzhiliaoluru where dianmian='"&dianmianchaxun&"'"
rs.open sql,conn,3,2
if not rs.eof then
response.Write("<center>会员基本信息</center>")
rs.PageSize=5
page=Clng(request("page"))
if page<1 then page=1
count=5 %>
<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style><table width="700" height="15&quo

<%
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft ACCESS (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,3
rs.pagesize=20
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">
<tr bgcolor="#FFFFFF" align="center">
<th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th>
</tr>