#363 - Paginare un recordset in una tabella
Spesso si ha il bisogno di impaginare i dati estratti da una query in una tabella HTML. Purtroppo ASP non ha un comando specifico che ci permette di svolgere questa operazione in modo semplice ed immediato.
Con questo semplice codice possiamo decidere su quante colonne vogliamo inserire i dati cambiando il valore assegnato alla variabile strnumero_colonne.
<%
Dim objConn, objRS, strSQL
Set objConn =Server.CreateObject("ADODB.Connection")
objConn.Open strConn
strSQL = "SELECT * FROM tabella"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = objRS.RecordCount
' imposta il numero di colonne da visualizzare
strnumero_colonne = 5
' il resto
strresto = (strrecord_totali mod strnumero_colonne)
' i record totali meno il resto divisi per le colonne
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )
Response.Write "<table border='1' align='center'>"
for n = 1 to strrecord_parziali
Response.Write "<tr>"
' stampa i record nelle colonne
for m =1 to strnumero_colonne
Response.Write "<td>" & objRS("collezione") & "</td>"
objRS.MoveNext
next
Response.Write "</tr>"
next
Response.Write "</table>"
' controlla se esiste il resto
if strresto <> "0" then
Response.Write "<table border='1' align='center'><tr>"
for f = 1 to strresto
Response.Write "<td>"&objRS("collezione")&"</td>"
objRS.MoveNext
next
Response.Write "</tr></table>"
end if
' pulizia
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>Approfondimenti
Commenti
Esprimi il tuo giudizio su questo script:
Per procedere devi essere autenticato.
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Stampa 
Download 
Questo script mi è stato utilissimo! Ma qualcuno ha mai pensato a paginarlo???!!! Intendo dire: se p.e. mosostro i miei record in tre colonne per rigo...
Continua »»» | Rispondi »»»