<% Response.Buffer = true %>
AWI Solutions - Bienvenue / Welcome
<%
dim objConn
dim objrsInfo
set objConn = Server.CreateObject("ADODB.Connection")
set objrsInfo = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
objrsInfo.Open "tblInfo", objConn, adOpenDynamic, adLockOptimistic, adCmdTable
'Create new record
objrsInfo.AddNew
objrsInfo.fields("Browser")= request.ServerVariables("HTTP_USER_AGENT")
objrsInfo.fields("Ip") = request.ServerVariables("REMOTE_ADDR")
objrsInfo.fields("Date")= Now
objrsInfo.fields("PathInfo") = request.ServerVariables("PATH_INFO")
objrsInfo.fields("Referer")= request.ServerVariables("HTTP_REFERER")
objrsInfo.fields("Langue") = request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
objrsInfo.Update
Response.Expires=0
objrsInfo.Close
objConn.Close
set objrsInfo=Nothing
set objConn=Nothing
%>
