Home Contatti Azienda Area-riserv.

<% 'Stringa per la connessione cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("accessi.mdb") 'creazione connessione Set objConn=Server.CreateObject("ADODB.Connection") 'apertura connessione objConn.Open cString 'creazione recordset Set rs = Server.CreateObject("ADODB.Recordset") ipaddr = Request.ServerVariables("REMOTE_ADDR") sql = "INSERT INTO visite ( pagina , ip ) values ('in costruzione' , '" & ipaddr & "') ; " 'sql = "INSERT INTO visite ( pagina , ip ) values ('home-page' , 'ffffff') ; " 'apertura recordset rs.Open sql , objConn, 3, 3 'chiusura e distruzione connessione objConn.close set objconn=nothing %>