asp 连数据库错误报告：缺少 'Loop' 165行
<%
If Len(Rs1("id"))=8 Then
id1=Rs1("id")
Set Rs3 = Server.CreateObject("ADODB.Recordset")
Sql3="Select Top 5 * From "&class1&" Where pid='"&id1&"' Order By addtime Desc"
Rs3.Open Sql3,conn,3,3
If Rs3.Eof And Rs3.Bof Then
Response.Write "<tr><td width='5%' height='20'> </td><td width='95%'>"
Response.Write "本版块暂无信息！"
Response.Write "</td></tr>"
Else
'165行 Do While not Rs3.EOF
Else
id1=Rs1("id")
Set Rs3 = Server.CreateObject("ADODB.Recordset")
Sql3="Select * From "&class1&" Where Left(pid,8)='"&id1&"' Order By addtime Desc"
Rs3.Open Sql3,conn,3,3
If Rs3.Eof And Rs3.Bof Then
Response.Write "<tr><td width='5%' height='20'> </td><td width='95%'>"
Response.Write "本版块暂无信息！"
Response.Write "</td></tr>"
Else
Do While not Rs3.EOF
End if
%>
