Paginazione a 4 colonne

[Freedom]

Ciao,

è possibile adattare questa paginazione, paginando in quattro colonne?

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

mantenendo sembre il formato:
1 | 4 | 7 | 10
2 | 5 | 8 | 11
3 | 6 | 9 | 12
.......