<%'Update Current Users Page
dim hdrconntemp,hdrlogRS
strConn = "Provider=SQLOLEDB;data source=server1;User ID=sa;password=32481436;initial catalog=mark"
set hdrconntemp=Server.CreateObject("ADODB.Connection")
hdrconntemp.CommandTimeout=15
hdrconntemp.ConnectionTimeout=30
hdrconntemp.Open strConn
set hdrlogRS=Server.CreateObject("ADODB.Recordset")
hdrlogRS.open "UPDATE UserTable SET currentpage = '" & Request.ServerVariables("REMOTE_HOST") & "' WHERE session_id = " & Session.SessionID ,strConn
'Set hdrlogRS=hdrconntemp.execute(hdrsqlstring)
Set hdrlogRS=nothing
Set hdrconntemp = Nothing
%>
The Hawk's Nest
<%response.write(Session.SessionID)%>
<%response.write(Session("IP"))%>
<%response.write(Request.ServerVariables("SCRIPT_NAME"))%>
<%response.write(Request.ServerVariables("REMOTE_HOST"))%>
<%response.write(Request.ServerVariables("HTTP_USER_AGENT"))%>
<%response.write(request.servervariables("http_referer"))%>
<%response.write(request.servervariables("logon_user"))%>
<%response.write(request.servervariables("REMOTE_ADDR"))%>
<%response.write(request.servervariables("PATH_TRANSLATED"))%>
<%response.write(request.servervariables("LOCAL_ADDR"))%>
<%response.write(request.servervariables("PATH_INFO"))%>
<%response.write(request.servervariables("APPL_MD_PATH"))%>
<%response.write(request.servervariables("APPL_PHYSICAL_PATH"))%>
<%response.write(request.servervariables("TCPIP_DNS"))%>
<%response.write(request.servervariables("HTTP_HOST") )%>-->
Put your
website to work earning real money!
The Hawk's Nest
Mark's 2000 'Hawk #0396
Page 1 of 2
