下面这代码，是一列显示，我想改成三列。
但是我的这个代码是读取文本数据库，
我无法将我的代码套用如下的：
<tr>
<%
i=1
while not rs.EOF
%>
<td>.............</td>
<%
if i mod 3 =0 then
response.write("</tr><tr>")
end if
rs.MoveNext
i=i+1
wend
%>
请高手帮我一下。谢谢。
我要改的代码：
Sub Echo()
DIM i,num
num = Request.QueryString("num")
If dLen <> "" Then
For i = 0 To DataCount - 1
If Len(DataArr(i)) = Int(dLen + 5) Then
If num = "true" Then
If isNumeric(Left(DataArr(i),Len(DataArr(i))-5)) Then
Counter = Counter + 1
Response.Write FormatNum(Counter) &" "& DataArr(i) &"<br>"
End If
Else
Counter = Counter + 1
Response.Write FormatNum(Counter) &" "& DataArr(i) &"<br>"
End If
End If
Next
If Counter = 0 Then Response.Write "no data"
Else
For i = 0 To DataCount - 1
Counter = Counter + 1
Response.Write FormatNum(Counter) &". "& DataArr(i) &"<br>"
Next
If Counter = 0 Then Response.Write "no data"
End If
Set DataArr = Nothing
End Sub
