请帮我看看这段代码错在那里了！
<%
set conn = server.CreateObject("ADODB.Connection")
conn.open "provider=sqloledb;data source=127.0.0.1;uid=sa;pwd=;database=wt"
SET RS = server.CreateObject("adodb.recordset")
rs.cursortype=adopenstatic
rs.open"select * from jobs",conn
rs.pagesize=4
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
%>
<table border=1>
<tr><td>序号</td>
<%
for i=0 to rs.fields.count-1
response.Write("<td>" & rs.fields(i).name & "</td>")
next
%>
</tr>
<%
'设置当前页面
rs.absolutepage=ipage
'显示当前页面的纪录
for ipage=1 to rs.pagesize
recno=(page-1)*rs.pagesize+ipage
%>
<tr><td><%=recno%></td>
<%for i=0 to rs.fields.count-1%>
<td><%=rs.fields(i).value%></td>
<%next%>
</tr>
<%
rs.movenext
'如果已经到了纪录的末尾，则应该提前跳出循环
if rs.eof then exit for
next
%>
</table>
<p align="center">
<%
'显示第一页，上一页，下一页，最后一页的信息及创建有效的连接
if page<>1 then
response.Write "<a href=ch5ex18.asp?page=1>第一页</a> "
response.Write "<a href=ch5ex18.asp?page=" & (page-1) & ">上一页</a> "
end if
if page<>rs.pagecount then
response.Write "<a href=ch5ex18.asp?page=" & (page+1) & ">下一页</a> "
response.Write "<a href=ch5ex18.asp?page=" &rs.pagecount & "最后一页</a>"
end if
%>
</p><p align="center"页数: <%=page%>/<%=rs.pagecount%>></p>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
显示的错误是
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset
变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。
/lianxi/fenye.asp，行22
行242 是那一行呀
行22 又是哪一行罗！
