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