You'd want to do something similar to this(NOTE: didn't test it, just coded off the top of my head):
strSql = "SELECT Link FROM TABLE"
rs.Open strSql, my_Conn
rs.MoveFirst
i = 0
if rs.EOF or rs.BOF then
' Do nothing, no records found
else
Response.Write "<table width='100%'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
do until rs.EOF
Link = rs("Link")
i = i + 1
if i > 4 then
Response.Write " </tr>" & vbCrLf
Response.Write " </tr>" & vbCrLf
i = 1
end if
Response.Write " <td>" & Link & "</td>" & vbCrLf
rs.MoveNext
loop
Response.Write "</table>" & vbCrLf
rs.Close
end if
Dave Maxwell
--------------
Proud to be a "World Class" Knucklehead
Topic Locked
Posted - 14 March 2001 : 13:14:07
