<%@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

Insegnanti e traduttori

madrelingua inglese

I livelli dei corsi

<% ' IMPOSTO A 0 IL CONTATORE contatore = 0 ' APRO IL RECORDSET rs.Open "SELECT * FROM contenuti WHERE codtipol = 'inglese4' 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 %>

"><%=rs("titolo")%>

<% ' IMPOSTO A 0 IL CONTATORE contatore = 0 ' APRO IL RECORDSET rs.Open "SELECT * FROM contenuti WHERE codtipol = 'inglese8' 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 %>