Tæl antal klik
Jeg har et script her der skriver et link ud, nu vil jeg gerne havde at der bliver talt hvor mange gange der er klikket på linket. ER der en der kan fortælle mig hvordan. Antallet af hits skal gemmes i Access Databasen.-------------KODE----------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/counter.mdb")
Conn.Open DSN
strSQL = "Select * From TblImages Order by Navn"
Set rs = Conn.Execute(strSQL)
ch="+"
tael=0
response.write "<table border=""0"" cellspacing=""0"" cellpadding=""3""><tr><td valign=""top"">"
while not rs.eof
strNavn = rs("Navn")
nych= Left(strNavn,1)
if nych<>ch then
if ch<>"+" then
if tael=5 then
response.write "</td></tr><tr><td valign=""top"">"
tael=0
else
response.write "</td><td valign=""top"">"
end if
end if
ch=nych
tael=tael+1
end if
strLink = "<font size=1 face=Verdana, Arial, Helvetica, sans-serif color=#000000><a href='visrattan.asp?id=" & rs("Id") & "'>" & strNavn & "</a></font>"
Response.Write "<br>" & strLink
rs.MoveNext
wend
response.write "</ul></td></tr></table>"
%>
