Scusate a tutti... sto cercando di addentrarmi nel mondo asp..ma ho qualche problema..
L'argomento è già stato trattato ma proprio non riesco a risolvere..

Ho una query che funziona. Al momento I records vengono restituiti in quattro colonne e n righe. Vorrei suddividere in più pagine tale risultato. Potreste gentilmente modificarmi il codice che posto in modo da ottenere questo tipo di paginazione?


scusate ancora e grazie per l'eventuale aiuto..





<%
dim dbPath,num_colonne,campo,tabella
num_colonne=4
campo="id"
tabella="Esterno"
dbPath=server.MapPath("/mdb-database/database2.mdb")
%>


<%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;" & "data source=" & dbPath

set rs=server.CreateObject("adodb.recordset")
SQL="select " & campo & " from " & tabella & " order by " & campo & " asc"
rs.open sql,conn,3,3

dim tot_record,sott
tot_record=rs.recordcount

if tot_record mod num_colonne=0 then
sott=0
record_per_colonna=int(tot_record/num_colonne)
else
sott=1
record_per_colonna=int(tot_record/num_colonne)+1
end if

response.Flush()

'STAMPO LA TABELLA
response.write "

<table cellpadding=""0"" cellspacing=""0"" border=""1"">"


for i=0 to record_per_colonna-1

response.write "<tr>"

'stampo le colonne
for k=0 to num_colonne-1
rs.movefirst
if i+(record_per_colonna*k)>(tot_record-sott) then
response.Write "<td width=""80""> </td>"
else
rs.move(i+(record_per_colonna*k))
response.write "<td width=""80"">" & rs(0) & "</td>"
end if
next

response.write "</tr>"

next

response.write "</table>"

rs.close: set rs=nothing
conn.close: set conn=nothing

%>