<%@ LANGUAGE = "VBScript"%> <% Option Explicit Dim conn, rs, strSQL, nome_DB, percorso_db, numeroColonne '-------------------------------------- 'NOME DEL VOSTRO DATABASE nome_DB = "../test.mdb" percorso_DB = Server.MapPath (nome_DB) '-------------------------------------- '<< connessione DB Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & percorso_DB '<< connessione strSQL strSQL = "SELECT * FROM news" '<< connessione RS Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, conn, 3, 3 Response.Write "" Response.Write "" Response.Write "CREARE UNA TABELLA DINAMICA E MULTIPLA PER I RECORD
" Response.Write "by www.contidavide.it" Response.Write "

" ''' SE CI SONO RECORD NEL DATABASE If Not rs.EOF Then ''' APERTURA TABELLA Response.Write"" numeroColonne = 0 ''' ESSO LI CONTA FINO ALLA FINE Do Until rs.EOF ''' IMPOSTAZIONE NUMERO DI COLONNE DA VISUALIZZARE NELLA TABELLA ''' COME DEFAULT HO MESSO IL VALORE 3 ''' CHE VISUALIZZA IL NUMERO DI COLONNE ''' LA FUNZIONE MOD VERIFICA SE E' UN NUMERO PARI O DISPARI If numeroColonne Mod 4 = 0 Then If numeroColonne <> 0 Then Response.Write"" Response.Write"" Else Response.Write"" End If ''' PASSIAMO ALLA COLONNA SUCCESSIVA numeroColonne = numeroColonne + 1 ''' RS SUCCESSIVO rs.MoveNext Loop ''' CHIUSURA TABELLA Response.Write"

"&rs("ID")&" "&rs("sistemi")&"
"&rs("descrizione")&"

" ''' CHIUSURA RS rs.Close Set rs = Nothing Else ''' SE NON CI SONO RECORD SCRIVE UN MESSAGGIO Response.Write"IL DATABASE NON CONTIENE RECORD!" End If Response.Write "
" Response.Write "Visualizza altri esempi di colonne:" Response.Write "
" Response.Write "Visualizza la tabella a 2 colonne
" Response.Write "Visualizza la tabella a 3 colonne
" Response.Write "Visualizza la tabella a 4 colonne
" Response.Write "Visualizza la tabella a 5 colonne
" Response.Write "" ''' CHIUSURA DB conn.Close Set conn = Nothing %>