Asp?
Hej allesammen!jeg har et lille problem, jeg har downloadet et script som burde se sådan her ud:
http://www.viewsource.dk/asp/Statistic/Clickcount/Clickcount.asp
men mit virker ikke fordi, jeg ved ikke hvor man skal sætte f.eks \"Eksperten.dk\" ind, altså sådan at den tæller hits...
Her er koden:
<%
Response.Buffer = True
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"demo.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Banner WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs(\"Clicks\") = rs(\"Clicks\") + 1
strURL = rs(\"Url\")
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
Response.Redirect(strURL)
End If
End If
%>
<html><head>
<title>Top Link LIst</title>
</head><body>
<p>Most Visited</p>
<%
strSQL = \"SELECT * FROM Banner ORDER BY Clicks DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write \"<p><a href=Clickcount.asp?id=\" & rs(\"ID\") & \">\" & rs(\"Description\") & \"</a><br>\"
Response.Write \"<font size=-1>Hits: \" & rs(\"Clicks\") & \"</p>\"
rs.Movenext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
