webForumDet fria alternativet

db counter

ASPur ASP

0 svar · 150 visningar · startad av Bj

Medlem sedan sep. 2000314 inlägg
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.

129 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)