Klikstatistik m. redirect
Hej.Jeg er igang med at lave en statistik over hvor mange besøgende der besøger eksterne links via mit website. Jeg er i gang med at lave en ASP-side, som henter et id fra QueryStringen, og viderestiller til det respektive link i en Access-database (via kaldet: Viderestil.asp?Id='x').
Meningen er at jeg vil opdatere feltet 'Hits' i databasen hver gang siden hentes med et id, og derefter skal linket (feltnavn: 'Adresse') hentes fra databasen og smides ind i en Response.Redirect.
Når jeg anvender nedenstående kode får jeg diverse fejlmeddelelser:
<%
If Request.QueryString("Id") <> "" Then
' VALIDERER INDHOLD AF QUERYSTRINGEN
If IsNumeric(Id) Then
' ÅBNER DATABASEN
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\web\db\statistik.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' HENTER ID FRA QUERYSTRING
Id = Request.QueryString("Id")
' OPDATERER DATA I DATABASEN
strSQL = "UPDATE eksterne_links SET Hits=Hits + 1 WHERE Id=" & Id
myConn.Execute(strSQL)
' HENTER LINK FRA DATABASEN
strSQL = "SELECT * FROM eksterne_links WHERE Id=" & Id
Set rs = myConn.Execute(strSQL)
' LUKKER DATABASEN
myConn.Close
Set myConn = Nothing
' VIDERESTILLER SIDEN TIL LINKET
Adresse = rs("Adresse")
Response.Redirect Adresse
Else
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End If
Else
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End If
%>
Hvad gør jeg galt, og findes der en mere optimal løsning end den jeg har forsøgt mig med her?
Apo
