Agenzie Commerciali Agenti di Commercio Imprese di Vendita per l'Impresa che produce

<% 'For Each x in Request.ServerVariables ' Response.Write "" & x & "" & Request.ServerVariables(x) & "" 'Next 'Response.Write "Data -> " & date 'Response.Write "Ora -> " & time %> <% 'response.write "LUNGHEZZA " & len(session("IPUtente")) if len(session("IPUtente")) = 0 then set conn = server.createobject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/Db.mdb") 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("\Bancattiva\db\Db.mdb") dim strSql strSql = "INSERT INTO Accessi(Ip,Data,Ora,Software) VALUES(" strSql = strSql & "'" & request.servervariables("REMOTE_ADDR") & "'" strSql = strSql & ",'" & date & "'" strSql = strSql & ",'" & time & "'" strSql = strSql & ",'" & request.servervariables("HTTP_USER_AGENT") & "')" conn.Execute strSql if err.number <> 0 then QryStr = "?Err=" & cstr(err.number) & "&Error=" & err.Description & "&Source=" & err.Source & "&Page=Register.ASP" Set objCOM = Nothing err.clear Response.Redirect ("showerror.asp" & QryStr & " - Lev1") end if strSql="UPDATE TOTAccessi SET Totale = (Totale +23)" conn.execute strSql if err.number <> 0 then QryStr = "?Err=" & cstr(err.number) & "&Error=" & err.Description & "&Source=" & err.Source & "&Page=Register.ASP" Set objCOM = Nothing err.clear Response.Redirect ("showerror.asp" & QryStr & " - Lev2") end if session("IPUtente") = request.servervariables("REMOTE_ADDR") conn.Close set conn = nothing end if %>