<%
set conn = Server.CreateObject("ADODB.connection")
conn.open "DSN=systemDB"
Set rs = Server.CreateObject("ADODB.Recordset")
StringaSQL = "SELECT * FROM variabili"
rs.Open stringaSQL, conn
visite=rs("visite")
rs.close
visite = visite+1
Session("visite")=visite
stringaSQL = "UPDATE variabili SET visite=" & visite & " WHERE visite=" & (visite-1)
conn.execute (stringaSQL)
conn.close
%>