SQL语句出错了，请帮助看一下
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from wenzhang where langmuId=" & typeId & " order by id Desc",cn,1,3
page=Request("page")
if page="" then
page=1
end if
sub showpage(x)
rs.PageSize =10
rs.AbsolutePage = x
for I =1 to rs.PageSize
%>
<TR>
<TD vAlign=top height="28"></TD>
<TD class="14p">· <a href="detail.asp?id=<%=rs("ID")%>&typeId=<%=typeID%>" target="_blank"><%=rs("Title")%></a><font color="#cccccc" >[<%=rs("date")%>]
<%if (DateDiff("d",rs("date"),now())) < 3 then%>
<img src="/images/new.gif" width="28" height="11">
<%End if%></font></td>
</tr>
<% rs.MoveNext ()
if rs.EOF then exit for
next
end sub
If not rs.Eof then
showpage(page)
else
response.write("Sorry,没有查到您要找的信息！")
End if
%>
<tr>
<td colspan="2"> </td>
</tr>
</table><center>
<center><A href="default.asp?page=1&typeId=<%=typeId%>">[首页]</A>
<% if page>1 then%>
<A href="default.asp?page=<%=page-1%>&typeId=<%=typeId%>">[上一页]</A>
<% else%>
[前一页]
<% end if%>
<% if NOT rs.EOF then%>
<A href="default.asp?page=<%=page+1%>&typeId=<%=typeId%>">[下一页]</A>
<% else%>
[下一页]
<% end if%>
<A href="default.asp?page=<%=rs.PageCount%>&typeId=<%=typeId%>">[末页]</A>
本页为第<font color=red><%=page%></font>/<font color=blue><%=rs.PageCount%></font>页
<%
rs.Close ()说这儿少个End
%>
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
问题点数：20、回复次数：5Top
1 楼havt（）回复于 2006-03-17 11:34:33 得分 10
<% rs.MoveNext ()
if rs.EOF then exit for
next
end sub
这几句中差一个end ifTop
2 楼ccchhhwww（屁屁）回复于 2006-03-17 11:43:54 得分 0
加上还是这样Top
3 楼ccchhhwww（屁屁）回复于 2006-03-17 11:47:00 得分 0
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F8)
缺少 'Sub'
/news/search1.asp, line 461, column 4
End ifTop
4 楼lymyx（明月）回复于 2006-03-17 11:56:27 得分 10
字符类型有错误Top
5 楼ccchhhwww（屁屁）回复于 2006-03-17 11:58:58 得分 0
怎么改？谢谢，加分。Top
