<%@LANGUAGE = VBScript%>
<%
' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
Dim sc, cn, rs, contatore
Dim tipoN
tipoN=Request.Querystring("codtipol")
' DEFINISCO LA STRINGA DI CONNESSIONE
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("/fpdb/archivio.mdb")
' IMPOSTO LA CONNESSIONE EDIL RECORDSET
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
' APRO LA CONNESSIONE COL DATABASE
cn.Open sc
%>
Corsi di Inglese per aziende e pivati per le zone di Ferrara Bologna Padova Rovigo Verona Venezia e Mantova
Per qualsiasi informazione, preventivo o curiosità potete
contattarci compilando il form in ogni sua parte, oppure ai seguenti
recapiti telefonici:
Telefono: 02.320620137
Cellulare: 328.0559979
Fax : 02.700400308
<%
' IMPOSTO A 0 IL CONTATORE
contatore = 0
' APRO IL RECORDSET
rs.Open "SELECT * FROM contenuti WHERE codtipol = 'inglese5' and visibile = 'si' ORDER BY posizione", cn, 1
' ESEGUO IL CICLO
While rs.EOF = False
' IMPOSTO LA PAGINAZIONE A 3 COLONNE ED N RIGHE
' IN FUNZIONE DEL NUMERO DI RECORD PRESENTI NEL DB
If contatore = 3 Then
contatore = 0
Response.Write "
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
rs.Close
%>
<%
' IMPOSTO A 0 IL CONTATORE
contatore = 0
' APRO IL RECORDSET
rs.Open "SELECT * FROM contenuti WHERE codtipol = 'inglese6' and visibile = 'si' ORDER BY posizione", cn, 1
' ESEGUO IL CICLO
While rs.EOF = False
' IMPOSTO LA PAGINAZIONE A 3 COLONNE ED N RIGHE
' IN FUNZIONE DEL NUMERO DI RECORD PRESENTI NEL DB
If contatore = 3 Then
contatore = 0
Response.Write "
"
End If
%>
<%=rs("titolo")%>
<%=rs("descrizione_dett")%>
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
rs.Close
%>