Statistik - finder ikke ref.
Jeg fandthttp://www.eksperten.dk/spm/370089
og brugt denne kode
<%
If Session("Count") = "" Then
Session("Count") = "Hit"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("DinDatabase.mdb")
Platform = Request.ServerVariables("HTTP_USER_AGENT")
Ip = Request.ServerVariables("REMOTE_ADDR")
Ref = Request("Ref")
If Ref = "" Then
Ref = "Direkte"
End If
If instr(Platform, "95") then Platform = "Win95"
If instr(Platform, "98") then Platform = "Win98"
If instr(Platform, "Win 9x") then Platform = "WinME"
If instr(Platform, "NT") then Platform = "WinNT"
If instr(Platform, "NT 5.0") then Platform = "Win2K"
If instr(Platform, "Linux") then Platform = "Linux"
If instr(Platform, "Mac") then Platform = "Mac"
Shw = Request.QueryString("Sh") &" x "& Request.QueryString("Sw")
Bhw = Request.QueryString("Bh") &" x "& Request.QueryString("Bw")
Sql = "Insert Into Count (Shw, Bhw, Bn, Bv, Pf, Ip, Ref, Db) Values ('" & Shw & "', '" & Bhw & "', '" & Request("Bn") & "', '" & Request("Bv") & "', '" & Platform & "', '" & Ip & "', '" & Ref & "', '" & Request("Db") & "')"
response.write sql
Conn.Execute(Sql)
Conn.Close
Set Conn = Nothing
End If
%>
Men den duer ikke til så meget - den finder hverken ud af hvor man er kommet fra - ref eller system.
Skal den opdateres til den nye IE eller ... ?
http://www.cygnet.dk/counter.asp
