关于 ASP的 换行显示问题

Question

小弟 最近在学习ASP想从数据库调出数据后 每行显示四个因为对 ASP 语法还不是很了解For 循环 怎么弄啊特此真心请教   先谢了刚才试着 写了几个代码  不过 还是有些问题Do While Not objRS.EOF
Data = ""


 Response.Write " <tr>"
 Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
 objRS.MoveNext
Response.Write "  <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
objRS.MoveNext
Response.Write " <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>" objRS.MoveNext
Response.Write "   <td><A HREF='" & objRS("url") & "'>" & objRS("name") & "</A></td>"
objRS.MoveNext

Response.Write " </tr>"

       
Loop 
          
显示的时候  第一行 总是显示3个 第一个总是空着 比如   1  2  3
4  5  6  7
8  9  10 11还有我数据库里的纪录 必须是3 + 4*i个 否则 就会出现错误  虽然我知道 这是由于  "Do While Not objRS.EOF" 引起的  可是目前 没有找到更好的办法  特此请教

Answer 1

试：<tr>
<%
dim i=0
Do While Not objRS.EOF
i=i+1
%>
<td><A HREF='<%=objRS("url")%>"><%=objRS("name")%></A></td>
<%if i mod 4=0 then%>
</tr>
<tr>
<%end if%>
<%
objRS.MoveNext
Loop%>

Answer 2

恩
上面有一个"""要改成"'"如下:
<tr>
<%
dim i=0
Do While Not objRS.EOF
i=i+1
%>
<td><A HREF='<%=objRS("url")%>'><%=objRS("name")%></A></td>
<%if i mod 4=0 then%>
</tr>
<tr>
<%end if%>
<%
objRS.MoveNext
next%>

Answer 3

我晕 又copy错了
最下面的next改为Loop

Answer 4

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/tianxia.asp, line 29, column 5
dim i=0
----^
为什么 不能初始化啊还有没有朋友 有别的高招啊  求教啊

Answer 5

忘啦
那是vb.net的写法这样：
dim i
i=0

Answer 6

晕 把 dim i=0  改成 dim i   问题 就可以显示了 呵呵