帮我看一下错误,谢谢

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
%>
...全文
52 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wlm_lm 2004-12-06
  • 打赏
  • 举报
回复
太乱了
写工整点再发出来。
fashchina 2004-12-06
  • 打赏
  • 举报
回复
帮助顶吧
有点乱
眼都花了

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧