大家好啊，给大家出个小迷迷，我都有点晕，看看这样的内容，该怎么修理？我已经被迷晕了，看看各位大虾，怎么出手？期待你们的成功！谢谢啦！
<%     
  For i=0 to rs.recordcount
   if i<rs.recordcount then
  Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("###")
rs.MoveNext
   Loop
else if i=rs.recordcount then
Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("")
rs.MoveNext
   Loop
 end if
 end if
  %>

运行错误！

Microsoft VBScript 编译器错误 (0x800A03FC)
缺少 'Next'
/asptest/mig.asp, 第 26 行

第26行代码
end if

是啊，是有问题，这个问题我已经晕了，搞不清咋弄，有解决方案吗？

<%     
  For i=0 to rs.recordcount
        if i<rs.recordcount then
           Do Until rs.EOF
                  Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
                 Response.Write(""&rs("sendtime")&"")
                Response.Write("###")
               rs.MoveNext
        Loop
  else if i=rs.recordcount then
           Do Until rs.EOF
                 Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
                 Response.Write(""&rs("sendtime")&"")
                 Response.Write("")
                 rs.MoveNext
            Loop
       End if
  End if
Next
  %>

For i=0 to rs.recordcount
   if i<rs.recordcount then
  Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("###")
rs.MoveNext
   Loop
else if i=rs.recordcount then
Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("")
rs.MoveNext
   Loop
end if
end if
next

Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
此句中escape()是javascript函数，在用vbscript脚本书写的ASP中可以用吗？