<%@ Language=VBScript %>
<%Response.Expires=-1500%>
<%Response.Buffer=true%>
<%On error resume next
if Request.ServerVariables("REMOTE_ADDR") <> "151.38.158.248" then
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/mpb_statistiche.mdb")
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
'sql = "Delete * from statistiche"
'rs.Open sql, conn ,3,3
sql = "SELECT * FROM statistiche where data = Date()"
rs.Open sql, conn ,3,3
rs.addnew
'Rilevamento indirizzo Ip
rs(1) = Request.ServerVariables("REMOTE_ADDR")
'Rilevamento Orario di connessione ( formato del server )
rs(2) = time()
'Rilevamento Data di connessione ( formato del server )
rs(3) = date()
' Rilevamento della lingua impostata nel browser
rs(4) = Request.ServerVariables ("HTTP_ACCEPT_LANGUAGE")
'Rilevamento nome
rs(5) = Request.ServerVariables ("HTTP_HOST")
'Rilevamento pagina
rs(6) = Request.ServerVariables ("URL")
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
end if%>
gruppompb_services
<%
dim flag
flag=cint(Request("flag"))
idcat_prod=cint(Request("idcat_prod"))
idundcat_prod=cint(Request("idundcat_prod"))
tbl=Request("tbl")
'Response.Write(flag)
%>