[kw_wasabi]

Så här löste jag det med databas istället. Synpunkter och förbättringsförslag av koden välkomnas.

<%referer = Request.ServerVariables("HTTP_REFERER")
If referer <> "" Then
Dim WordArray
WordArray = Split(referer, "/")
url = WordArray(2)

check_visitor = Request.Cookies("visitor")

If check_visitor <> "counted_for" Then

	Set Conn = Server.CreateObject("ADODB.Connection") 
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("databasen\databasen.mdb")
	Set RecSet = Server.CreateObject("ADODB.RecordSet")
 
 SQL = "SELECT * FROM refererfilter WHERE url like '%"&url&"%'"
 RecSet.Open SQL, Conn
	
	If RecSet.EOF Then
	
 Set Conn = Server.CreateObject("ADODB.Connection") 
 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("databasen\ref_databasen.mdb")
 Set RecSet = Server.CreateObject("ADODB.RecordSet")
 SQL = "SELECT * FROM referer WHERE url like '%"&url&"%'"
 RecSet.Open SQL, Conn
 	
 	If RecSet.EOF Then
  Response.Cookies("visitor") = "counted_for"
  Response.Cookies("visitor").Expires = Date() + 1
  adress	= url
  besok  = 1
  SQL = "Insert Into referer (url,antal) Values('" & adress & "','" & besok & "')"
  Conn.Execute(SQL)
 	Else
  Response.Cookies("visitor") = "counted_for"
  Response.Cookies("visitor").Expires = Date() + 1
  besok = RecSet("antal") + 1
  Conn.execute("Update referer Set antal='" & besok & "' WHERE url='" & url & "'")
 	End If
 RecSet.Close 
 Conn.Close 
 Set RecSet = Nothing 
 Set Conn = Nothing
 
	Else
	End If
	
	RecSet.Close 
	Conn.Close 
	Set RecSet = Nothing 
	Set Conn = Nothing
  
Else
End If
Else
End If%>