Question

asp 问题 高手请进 在线等答案！！！！

<%
TrNum =0
peagbr =0
't1 = trim(Request("t1"))
msql="Select * from [liuyan] where 1=1"
if SmallClass<>"" then
msql=msql&" and B_MSN="&rid&" "
end if
msql=msql&" Order By B_date Desc"
%>
<%
Set mypage=new zh_Showpage
PSize=MaxPerPage_News
mypage.getconn=Conn
mypage.getsql=msql
mypage.pagesize=21
set rs=mypage.getrs()

If rs.Eof Then
Response.Write "没有找到信息!"
'Response.Write hdlx
Else

For TrNum=1 To mypage.pagesize
If rs.Eof Then Exit For
peagbr =peagbr+1
%>

<%
if peagbr<3 then
%>

<td>
s
</td>
<td>
s
</td>
<td>
s
</td>
<%
else if peagbr=3 then
peagbr =0
%>
</tr>
<tr>
<td>
s
</td>
<td>
s
</td>
<td>
s
</td>
<%
end if
rs.MoveNext
Next
'Response.Write("</table>")&vbcrlf
Set NewsListrs = Nothing
If TrNum >=1 Then
Response.Write(""&mypage.showpage()&"")
End If
End If
%>
Microsoft VBScript 编译器错误 错误 '800a041f'

错误的 'Next'

/ddd/reservation.asp，行 231

Next
^

不好意思刚刚还没有发完整

Answer 1

else if peagbr=3 then asp里面好像没这种写法吧

好像是elseif peagbr=3 then

Answer 2

做什么啊？