Hejsa NG!
Jeg har været i gang med at lave mit eget statistik system...
nedenstående kode skal includes på hver side jeg ønsker statistik
på. Der er bare et problem:
rs("sti") er kun lig med det første recordset i databasen, hvad
kan jeg gøre for at rs indeholder HELE kolonnen "sti" i
databasen, for så ville det vel virke
Det er udfra "XXXXXXXXXXXXXXXXXXX"-erne at rs("sti") gerne skulle
indeholde hele kolonnen i databasen..
Håber virkelig jeg har gjort mig klar:)
Mvh. Allan Johansen
snip af hele koden (håber ikke det generer nogen!):
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("stats.mdb")
Conn.Open DSN
AktivSti = Request.ServerVariables("URL")
strSQL = "Select * From stats"
Set rs= Conn.Execute(strSQL)
If rs("Sti")= AktivSti Then ' XXXXXXXXXXXXXXXXXXXXXX
NyHits = rs("Hits") +1
strSQL = ""
strSQL = "Update stats Set Hits='" & NyHits & "' Where Sti ='"
& AktivSti & "'"
Conn.Execute(strSQL)
Else
NySti = Request.ServerVariables("URL")
NyHits = 1
strSQL = ""
strSQL = "Insert into stats ("
strSQL = strSQL & "Sti, "
strSQL = strSQL & "Hits) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & NySti & "', "
strSQL = strSQL & "'" & NyHits & "') "
Conn.Execute(strSQL)
End If
' Luk og sluk:)
DSN = ""
Conn.Close
Set Conn = Nothing
%>
--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! =>
http://www.html.dk/editor