帮我看一下错误,谢谢

<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<%
Dim ndate
ndate = DateAdd("d",-3,date())
%>
<tr>
<td> </td>
<td height="21"><img src="img/arrow111.gif" width="4" height="13" align="absmiddle"><a href="news/newsDetail.asp?Id=<%=(Recordset1.Fields.Item("Id").Value)%>"><%=(Recordset1.Fields.Item("Title").Value)%></a>
<%If ((Recordset1.Fields.Item("Attpic").Value)) Then
Response.Write "<img src=""pic.gif"" alt=""图片新闻！"" align=""absmiddle"">"
end if
%>
(<%=left(Recordset1.Fields.Item("PostTime").Value,10)%>)

<%If datediff("d",(Recordset1.Fields.Item("PostTime").Value), ndate+time()) <= 0 Then
Response.Write "<img src=""img/new.gif"" alt=""最新的新闻！"" align=""absmiddle"">"
end if
%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>


错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/zj/newskx.asp, line 233
Wend

那里错了啊??????????
我就是加了这么一句:
<%If ((Recordset1.Fields.Item("Attpic").Value)) Then
Response.Write "<img src=""pic.gif"" alt=""图片新闻！"" align=""absmiddle"">"
end if
%>