You can use recordset's GetRows in order to get all records at once. Then you can process all records in the matrix variable...
Code:
mat=rs.GetRows
' if you have more columns than you can calculate columns number
'm=UBound(mat,1)+1
'and rows number
'n=UBound(mat,2)+1
;In you case n=52
n=52
Response.Write "<table>"
For i=0 to n/2-1
Response.Write "<tr><td>" & mat(0,i) & "</td>"
Response.Write "<td>" & mat(0,i+26) & "</td></tr>"
Next
Response.Write "</table>"
...but the Soon is eclipsed by the Moon