Lo script è questo:
objConn.ConnectionString = "Connessione"
objConn.Open()
strSql="select * from Table1"
objRs.CursorLocation = 3
objRs.CursorType = 3
objRs.Open strSql, objConn
contaRec = objRs.RecordCount
for i = 0 to contaRec \2
Response.Write "<tr>"
Response.Write "<td>"
objRs.MoveFirst
objRs.Move(i)
Response.Write objrs("id")
Response.Write "</td>"
if (i+(contaRec \2)) +1 < contaRec then
objRs.MoveFirst
objRs.Move((i+(contaRec \2)) +1)
Response.Write "<td>"
Response.Write objrs("id")
Response.Write "</td>"
else
Response.Write "<td> </td>"
end if
Response.Write "</tr>"
next