Hai del codice ASP che vorresti condividere, vorresti veder pubblicato qualche tuo articolo o tutorial sull'ASP?
Bene! byluciani.com sarà ben lieto di ospitare il tuo lavoro. Manda il tuo materiale a COLLABORA indicando le tue generalità (Nome, Cognome, E-Mail, sito Web, Città, data di nascita e se vuoi una foto).
Il tutto è "no profit", condividi le tue conoscenze per far crescere i giovani programmatori del Web.

Hai trovato utili i contenuti di byluciani.com? Senti il piacere di contraccambiare in qualche maniera?
Puoi farlo facendo una donazione attraverso la wishlist raggiungibile al seguente indirizzo:

Ecco uno script per visualizzare il contenuto di una tabella (record)
su più colonne. E' possibile impostare il numero delle colonne variando
nel condice il valore associato alla variabile iColonne (nel esempio 5)

<%@Language = "VBScript"%> <% 'Imponiamo la dichiarazione esplicita delle variabili Option Explicit Dim conn, rs, strPathDB, strConnessione, SQL, i, iColonne strPathDB = "nomedb.mdb" 'qui il percorso del tuo DB 'apriamo la connessione al DB Set conn = Server.CreateObject("ADODB.Connection") strConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & _ Server.MapPath(strPathDB) conn.Open strConnessione 'interroghiamo il DB e popoliamo il recordset SQL = "SELECT campo FROM tabella" Set rs = conn.Execute(SQL) 'iniziamo a rappresentare i dati nella tabella Response.Write "<table>" & VBCrLf iColonne = 5 'imposto il numero delle colonne della tabella i = 0 'settiamo il contatore di comodo a zero 'iniziamo a scorrere il recordset Do While Not rs.EOF i = i + 1 If i = 1 Then 'se il contatore vale 1 allora inizializziamo riga Response.Write "<tr>" & VBCrLf End If 'riempiamo la colonna Response.Write "<td>" & rs("campo") & "</td>" & VBCrLf rs.MoveNext 'controllo se sono finiti i record per completare la tab If rs.EOF AND i < iColonne Then For j = 1 To iColonne - i Response.Write "<td></td>" & VBCrLf Next Response.Write "</tr>" & VBCrLf 'altrimenti se ho riempito tutte le colonne chiudo la riga ElseIf i MOD iColonne = 0 Then Response.Write "</tr>" & VBCrLf i = 0 'azzero il contatore End If Loop Response.Write "</table>" & VBCrLf 'liberiamo memoria conn.Close set conn = Nothing %>