I would do something like what Mark said (this is untested and may need to
be tweaked):
'open the recordset, then
arData = rs.GetRows
rs.close:set rs=nothing
cn.close:set cn = nothing
if isarray(arData) then
'assuming <table> tags are already in place
for i = 0 to ubound(arData,2)
if i mod 2 = 1 then '(if it's an even numbered row)
response.write "<td>" & arData(0,i) & "</td></tr>"
else
response.write "<tr><td>" & arData(0,i) & "</td>"
end if
next
if ubound(arData,2) mod 2 = 0 then
response.write "<td></td></tr>"
end if
else
'handle situation where no data was returned
end if