<%@LANGUAGE = VBScript%> <% ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE Dim sc, cn, rs, rs2, contatore ' DEFINISCO LA STRINGA DI CONNESSIONE sc = "" sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq=" sc = sc & Server.MapPath("mdb-database/db.mdb") ' IMPOSTO LA CONNESSIONE EDIL RECORDSET Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") ' APRO LA CONNESSIONE COL DATABASE cn.Open sc %> EXPO di Autunno 2010
<% ' IMPOSTO A 0 IL CONTATORE contatore = 0 ' APRO IL RECORDSET rs.Open "SELECT nome,id FROM relatori ORDER BY nome ASC", cn, 1 rs2.open "select * FROM relatori ORDER BY nome ASC ", cn ' ESEGUO IL CICLO While rs.EOF = False While rs2.EOF = False ' IMPOSTO LA PAGINAZIONE A 3 COLONNE ED N RIGHE ' IN FUNZIONE DEL NUMERO DI RECORD PRESENTI NEL DB If contatore = 8 Then contatore = 0 Response.Write "" End If %> <% rs.MoveNext rs2.MoveNext ' INCREMENTO IL VALORE DEL CONTATORE contatore = contatore + 1 Wend Wend rs.Close rs2.Close %>
">" alt="" border="0">
<%=rs("nome")%>
 
EXPODIAUTUNNO 2010 Tutti i diritti riservati - Powered by LIE Solutions