% Set conn = Server.CreateObject("ADODB.Connection") Set bc = Server.CreateObject("MSWC.BrowserType") conn.Open Session("Visits") 'Get the IP address and Referer Address ip=Request.ServerVariables("REMOTE_ADDR") refer=Request.ServerVariables("HTTP_REFERER") 'Get the Time and Date of Visit t = Time h = Hour(Time) If h >= 12 Then AMPM = "PM" Elseif h < 12 Then AMPM = "AM" End If VisitTime = t & " " & AMPM VisitDate = Date 'Get Browser Info browser = bc.Browser platform = bc.Platform version = bc.Version conn.execute("INSERT INTO Visits (Time, IP, Browser, BrowVer, OS, Refer) Values ('" & VisitTime & "', '" & ip & "', '" & browser & "', '" & version & "', '" & platform & "', '" & refer & "');") %>
|
|||||||
|
|||||||
|
|||||||
| Brockville 1385 California Ave (613) 342-4408 Fax: (613) 342-9281 |
Belleville 340 Jamieson Bone Rd (613) 966-5433 Fax: (613) 966-7883 |
Ottawa 855 Industrial Ave. Unit 5 (613) 736-8855 Fax: (613) 736-0117 |
Peterborough 333 Landsdowne St. E (705) 748-9606 Fax: (705) 748-0603 |
||||
| Mississauga 335 Matheson Blvd. E (905) 568-2525 Fax: (905) 568-1273 |
Cornwall 924 Carleton St. N (613) 933-1851 Fax: (613) 933-2398 |
Mississauga 1581 Courtney Park Dr. (905) 670-9000 Fax: (905) 670-7641 |
Winnipeg 221 Sheppard St. (204) 633-8065 Fax: (204) 694-0747 |
||||
| ©2000
Hansler Smith Ltd. If you have any questions please
email the Webmaster. |
|||||||