帮我看一下错误,谢谢

lijun521 2004-12-06 04:28:36
<%
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
%>
...全文
30 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wlm_lm 2004-12-06
太乱了
写工整点再发出来。
回复
fashchina 2004-12-06
帮助顶吧
有点乱
眼都花了
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-06 04:28
社区公告
暂无公告