% Dim Connection, RS, Page, Counts Page=Request.ServerVariables("SCRIPT_NAME") Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/contatore.mdb") 'nel caso si usi frontpage, lasciare creare la cartella fpdb e togliere l'apice iniziale nella riga sotto ricordandosi di metterlo nella riga sopra 'Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/contatore.mdb") If Len(Session(Page)) = 0 Then Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") If RS.EOF = TRUE Then Connection.Execute("INSERT INTO TabContatore (pagina, visite) VALUES ('"&Page&"', 0)") End If Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") Counts=RS("visite")+1 Set RS = Connection.Execute("UPDATE TabContatore SET visite = " & Counts & ",ultimavisita='" & date() & "' WHERE pagina = '" & Page & "'") Session(Page) = Request.ServerVariables("HTTP_REFERER") Session("TUOIP")= Request.ServerVariables("REMOTE_ADDR") Session("REFERER")= Request.ServerVariables("HTTP_REFERER") Else Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") Counts=RS("visite") End If Connection.Close set RS=nothing set connection=nothing %> <% Dim Conn, NomeCorso,DescrCorso,ReqCorso,ProgrCorso 'Dim RS NomeCorso=SPACE(10) DescrCorso=SPACE(10) ReqCorso=SPACE(10) ProgrCorso=SPACE(10) ModCorso=SPACE(10) ObiettiviCorso=SPACE(10) fotocorso=SPACE(10) Set Conn=Server.Createobject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/corsi.mdb") Set RS = Conn.Execute("SELECT * FROM corsi WHERE IdCorso=86") If RS.EOF = False Then NomeCorso=RS("NomeCorso") DescrCorso=RS("Descrizione") ProgrCorso=RS("Programma") ReqCorso=RS("Requisiti") ModCorso=RS("Modalita") ObiettiviCorso=RS("Obiettivi") fotocorso=RS("foto") End If conn.close set conn=nothing %>
![]() |
||||||||||||||
|