<%
Session.Timeout = 40
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
IP = Request.ServerVariables("REMOTE_ADDR")
FileTo = Request.ServerVariables("URL")
FileFrom = Session("PreviousFile")
if FileFrom = "" then
FileFrom = "-"
end if
datein = Date()
timein = Time()
datein = datein & " " & timein
Browser = MyBrow.browser
If MyBrow.Browser = "IE" And CInt(MyBrow.Version) >= 3 Then
' if IE 3 through 5.5 is found, then...
Browser = "Internet Explorer"
ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 6") then
' else, this will detect IE 6 or later...
Browser = "Internet Explorer"
ElseIf MyBrow.Browser = "Netscape" And CInt(MyBrow.Version) >= 3 Then
' if Netscape 3 or greater is found, then...
Browser = "Netscape"
End If
if FileFrom <> FileTo then
Connaaa.Execute("INSERT INTO Stats1(IP,DateAccess,FileTo,FileFrom,Browser) VALUES('"&IP&"','"&datein&"','"&FileTo&"','"&FileFrom&"','"&Browser&"')")
end if
Session("PreviousFile") = FileTo
Connaaa.Close
dim username
if Request.Cookies("username") = "" then
page=request.ServerVariables("URL")
else
username = Request.Cookies("username")
Response.Write "you are logged in as: " & username & ". want to log off?"
end if
%>
|
Current
best practices and rationalistic perspectives in causation-based
prevention, early detection and multidisciplinary treatment of
breast and gastric cancer
|
|
