hvorfor virker det ikke anden gang den køre på samme side?
hvorfor virker det ikke anden gang den køre på samme side?<%
sub Counter(str)
str = trim(mid(str, instrrev(str, "/")+1))
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("waterdrop.mdb")
Conn.Open DSN
Set list = Conn.Execute("SELECT antal FROM counter WHERE file = '" & str & "'")
check = 0
If list.EOF Then
Conn.Execute("INSERT INTO counter ( file, antal ) VALUES ( '" & str & "', 0 )")
check = 1
End If
If check = 0 Then
antal = list("antal")
End If
If not session("file") = str Then
antal = antal + 1
Conn.Execute("UPDATE counter SET antal = '" & antal & "' WHERE file = '" & str & "'")
session("file") = str
End If
If antal > 1 Then
Response.write("Denne side er vist " & antal & " gange.")
Else
Response.write("Denne side er vist " & antal & " gang.")
End If
Conn.Close
Set Conn = Nothing
Set check = Nothing
Set antal = Nothing
Set str = Nothing
End sub
%>
Hvis det kan skrives pænere, må i gerne give det en skalde!!
