又出事了，大家帮我来看看哈
我是看不出来错在哪了，本人快吐血了。我连数据库的方法确实怪了点，大家不要再对它感兴趣了。问题出在他说我缺少END，我该加的地方都加了啊，郁闷~~~~~~啊。偶像们，我能不能少吐一口血全看你们了。我先吐一会，马上回来在线等，谢谢啊。错误显示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/wyx/abc.asp，行44
代码：
set con=server.CreateObject("adodb.connection")
con.connectionstring="provider=microsoft.jet.oledb.4.0;" & "data source=" & "C:\TDDOWNLOAD\db.mdb"
con.open
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "biao",con,3,2,2
sub showpage(rsd,pn)
for i=0 to rsd.fields.count-1
response.write(rsd.fields(i).name & " ")
next
response.write "<br>"
rsd.absolutepage=pn
for i=1to rsd.pagesize
for j=0 to rsd.fields.count-1
response.write(res.fields(j) & "")
next
response.write ("<br>")
rsd.movenext
if rds.eof then
exit for
end if
next
%>
</head>
<body>
<%
rs.pagesize=2
for i= 1 to rs.pagecount
response.write("<a href='abc.asp?page=" & i & "'>"&i&"</a><br>")
next
pageno=request("page")
if page<>"" then
showpage rs,pageno
end if
%>
</body>
</html>
