---
title: "db counter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9544-db-counter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bj"
published: "2001-05-17T07:25:00.000Z"
updated: "2001-05-17T07:25:00.000Z"
replies: 0
views: 155
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9544-db-counter"
---

# db counter

## #1 — Bj, 2001-05-17T07:25Z

Ä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.

Permalänk: https://www.webforum.nu/p/9544

---

Tråden på webben: https://www.webforum.nu/amne/asp/9544-db-counter