Dall'archivio script > Classic ASP

Paginare un recordset in una tabella

di Andrea RondinelliAndrea Rondinelli, in Classic ASP, UserScript, Database,

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

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi