Dorsoduro, 1073 - 30123 - Venezia (VE) 
Tel. +39 0415225252 - Fax: +39 0412414154 
Email: veis02400c@istruzione.it 
PEC: veis02400c@pec.istruzione.it 
Codice Meccanografico: VEIS02400C

Note legali - Privacy - Policy sui Cookie 
Comunicazioni privacy - Elenco siti tematici

<%Dim CONT, Page, Counts Page=Request.ServerVariables("SCRIPT_NAME") Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/aelena/Database/contatore") If Len(Session(Page)) = 0 Then Set CONT = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") If CONT.EOF = TRUE Then Connection.Execute("INSERT INTO TabContatore (pagina, visite) VALUES ('"&Page&"', 0)") End If Set CONT = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") Counts=CONT("visite")+1 Set CONT = Connection.Execute("UPDATE TabContatore SET visite = " & Counts & " WHERE pagina = '" & Page & "'") Session(Page) = "something" Connection.Close Else Set CONT = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'") Counts=CONT("visite") ' Connection.Close End If%> <%Response.Write "Visualizzata "&Counts&" volte"%> <%Set Counts = Nothing Set CONT = Nothing Set Page = Nothing %>