急呀懂asp的进追加50分

<%
rs.movenext
i=i+1
if i mod 4=0 then
response.write"</tr><tr>"
If i>=rs.pagesize then exit do
end if
loop
end if
%>
大家帮帮看哪儿的问题，我不晓得修改了就
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\www\admin\index.asp, line 53

以前的是
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<%
sql="select * from music order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,3,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof%>

<td scope="col" width="20%"

asp高手进....................追加分 ASP问题（答对追加50分） ASP问题（答对有50分追加分哟） 谁能解释一段ASP分页程序，好的可追加50分 ASP高手请进哦！！帮小弟搞定一段代码！好的再追加50分！ 那里可有“ASP”视频教程好的追加100分 PHP和ASP的问题？最佳答案追加100分！ asp.net页面刷新的问题，追加200分 急，关于ASP的问题，问题解决了再追加分 ASP错误，请大家看看，解决问题追加50分！