Bornholms Kød & Catering
 

CVR.: 2722 2595 • Bornholms Kød & Catering ApS • Havnevej 10, Tejn • DK-3770 Allinge • Tlf.: 5648 0310 • Fax: 5648 1548 • Mail: post@bkc.dk
<% If IsEmpty(Session("Counter")) Then On Error Resume Next Dim ConnectionString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("accdb/bkc_hits.mdb") Dim Referrer Referrer = Request.ServerVariables("HTTP_REFERER") If Request.ServerVariables("HTTP_REFERER") <> "" Then Referrer = Left(Request.ServerVariables("HTTP_REFERER"), InStrRev(Request.ServerVariables("HTTP_REFERER"), "/")) End if Dim UserAgent UserAgent = Request.ServerVariables("HTTP_USER_AGENT") Dim Browser If InStr(UCase(UserAgent), "MSIE") Then Browser = "IE" ElseIf InStr(UCase(UserAgent), "FIREFOX") Then Browser = "Firefox" Else Browser = "Unknown" End If Dim SQL SQL = "INSERT INTO [Hits] ([Dato], [Referrer], [RemoteIP], [UserAgent], [Browser]) " & _ "VALUES ('" & DATE & " " & TIME & "', '" & Referrer & "', '" & Request.ServerVariables("REMOTE_HOST") & "', '" & UserAgent & "', '" & Browser & "')" Set Connection = Server.CreateObject("ADODB.Connection") Connection.open ConnectionString Connection.execute(SQL) Connection.close Session("Counter") = "True" End if %>