Frågan#1
Är det någon som kan se varför följande app. inte fungerar till 100%. Ibland får jag upp ett felmeddelande med sökvägen. (Typ volatile....)
Koden ser ut enligt följande:
<%
Dim Connection, RecSet, Page, Counts
Page=Request.ServerVariables("SCRIPT_NAME")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\hogstorp\counter\counter.mdb"
If Len(Session(Page)) = 0 Then
Set RecSet = Connect.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")
If RecSet.EOF = TRUE Then
Connect.Execute("INSERT INTO counter (fldPage, fldCount) VALUES ('"&Page&"', 0)")
End If
Set RecSet = Connect.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")
Counts=RecSet("fldCount")+1
Set RecSet = Connect.Execute("UPDATE counter SET fldCount = " & Counts & " WHERE fldPage = '" & Page & "'")
Session(Page) = "something"
Connect.Close
Else
Set RecSet = Connect.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")
Counts=RecSet("fldCount")
End If
Response.Write Counts
%>
Antalet träffar hämtas med följande:
<!-- #INCLUDE FILE="counter/counter.asp" --> besökare sedan starten.<br>
Denna kod ligger i en frames och det är alltså där det strular. Om jag testar och går direkt till counter.asp har deet hittills aldrig krånglat.