Clickcount ASP
HejJeg sidder og prøver at få clickcount til at virke
på min side men uden held problemet er at jeg
ikke kan få hits til at virke jeg er kommet så langt
til at ændre databasen f.eks:
id=1 description=billetnet url=http://www.billetnet.dk/ filename=images/banner1.gif clicks=0 shown=0
på asp siden:
<p><font size=3><a href=Clickcount.asp?id=1>Billetnet</a></font><br><font size=1 color=8080ff>hits :1876<p>
problemet er hvordan kalder jeg hits så den ændre sig der hvor hits står nu (1876) skal der vel stå en kalde funktion og skal der sættes
noget mere ind i f.eks head eller body???
hvis jeg bruger kilden fra viewsource på min og trykker på et link får jeg siden: Most Visited frem og først her fra kan jeg se hits ændre sig
her er scriptet til clickcount:
<%
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
%>
håber i kan fortælle mig hvad jeg gør forkert som i nok har gættet kender jeg ikke meget til asp
Mvh
Tom
