用Mod函数来判断
Response.Write "<table>"
Dim i,tHTML,tCow
i=0
Do Until rs.EOF
tCow=""
IF i Mod=4 Then
tHtml=tHtml&"<tr>"&tCow&"</tr>"
tCow=""
Else
tCow="<td>"&rs("FieldName")&"</td>"
End IF
i++
rs.MoveNext
Loop
Response.Write tHtml
Response.Write "</table>"