全自动饺子皮机好用吗:Microsoft VBScript 编译器错误 (0x800A0400)缺少语句

Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/noangel/buttetin.asp, line 131
wend
请高手指点，我的程序如下：这是个公告发布的页面，但是不知道错在那里？

strPage = Request.queryString("page")
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 12 * from board order by id desc"
rs.open sql,conn,1,2
do while not rs.eof
%>
<%
if rs.RecordCount>0 then
sumcount = rs.RecordCount
rs.MoveFirst
end if
rs.PageSize = 12
intPageCount = rs.PageCount
if Len(strPage) = 0 then strPage = "1"
if int(strPage)<1 then strPage = "1"
'if int(strPage)>intPageCount then strPage = CStr(intPageCount)
if rs.eof then
%>
<form action="bulletin_new.asp" method="POST" id="form1" name="form1">
<input type="submit" value="新增" id="btnnew" name="btnnew">
</form>
<%
response.end
end if
rs.absolutepage=cint(strpage)
%>

<table border="0" cellspacing="1" width="600">
<tr><td colspan="3">

<p align="center">[本页是第<%=int(strPage)%>/<%=intPageCount%>页] <%
if int(strPage)>1 then
%>
[<a href="bulletin.asp?page=<%=CStr( int(strPage)-1 )%>">前一页</a>]
<%end if%>
<% if int(strPage)<intPageCount then%>
[<a href="bulletin.asp?page=<%=CStr( int(strPage)+1 )%>">下一页</a>] <%
end if
%> </p>
</td></tr>

<tr class="tr3">
<td width="50" ALIGN="CENTER">标记</td>
<td width="50" align="center">序号</td>
<td width="500" align="center">标题</td>
</tr>

<form action method="POST" id="form1" name="form1">
<%
dim flagcolor,classtype
flagcolor = true

for intRecord = 1 To rs.PageSize
if rs.EOF then
exit for
end if
flagcolor = not (flagcolor)
if (flagcolor) then
classtype = "tr1"
else
classtype = "tr2"
end if
%>
<tr class="<%=classtype%>">
<td ALIGN="CENTER"><input TYPE="CHECKBOX" NAME="id" VALUE="<%=rs("id")%>"></td>
<td align="center"> <%=sumcount-12*(cint(strpage)-1)-intRecord+1%> </td>
<td align="center"><%=rs("title")%></a></td>
</tr>
<%
rs.MoveNext
Next
%>
<tr><td colspan="3">
<p align="center">[本页是第<%=int(strPage)%>/<%=intPageCount%>页] <%
if int(strPage)>1 then
%>
[<a href="bulletin.asp?page=<%=CStr( int(strPage)-1 )%>">前一页</a>] <%
end if
%> <%if int(strPage)<intPageCount then%>
[<a href="bulletin.asp?page=<%=CStr( int(strPage)+1 )%>">下一页</a>]
<%
end if
%> </p>
<input type="hidden" name="page" value="<%=strpage%>">
</form>
<input type="button" value="新增" id="btnnew" name="btnnew">
<input type="button" value="删除" id="btndel" name="btndel">
</td><td height="2"></tr>
</table>
<br>
<%
rs.MoveNext
wend
loop
%>