<%
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
%>
A
non-profit International Organization against Cancer
Why to register?: Maximize your benefits: Keep Update - with less than 2 min time for registration and you will have:
OPEN-FREE ACCESS at no cost to:
ALL FULL TEXT articles
Research Highlights , Innovative therapies, and much more …. in :
1. Electronic peer-reviewed journal Gastric & Breast Cancer ( Online ISSN: 1109 – 7647)
2. Gastric Breast Cancer Network Center site 3. Κληρονομικός Καρκίνος (Εθνικό Πρόγραμμα Πρόληψης & Αντιμετώπισης) Hereditary Breast Ovarian Cancer: HBOC Greek National Program
