---
title: "Hjälp till min besöksräknare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56977-hjälp-till-min-besöksräknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ceeron"
published: "2002-10-24T14:10:46.000Z"
updated: "2002-10-24T16:22:12.000Z"
replies: 1
views: 239
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/56977-hjälp-till-min-besöksräknare"
---

# Hjälp till min besöksräknare

## #1 — Ceeron, 2002-10-24T14:10Z

Halloj

Hade tänkt o göra en db som ska innehålla alla visits mina sidor får. Det finns olika poster för alla mina olika sidor...

db: 
Name = unikt namn för varje sida
Counter = räknaren

Jag har lagt all kod i en include fil för att jag ska kunna infoga olika besöksräknare på olika sidor. Jag dimmar namnet på sidan innan jag infogar för att koden ska veta vilken post som ska användas (page = blabla).

Kod:

\<%	

	Application.Lock
	Application.Contents("visits") = Application.Contents("visits") -- 1
	Application.Unlock 

	If page = "pelle" Then path = Nothing
	Else
	path = "../"
	End If

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.Mappath("" & path & ""Counter.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visits = "SELECT \* FROM Counter WHERE Name = 'SkarmRent'" 

	RecSet.Open visits, Connect, adOpenStatic, adLockOptimistic 

	RecSet("Visits") = Application.Contents("visits")

	RecSet.Update

	count = RecSet("Visits")

	RecSet.Close
	Set RecSet = nothing
	Connect.Close
	Set Connect = nothing
	
%\>

Jag vet egentligen inte vad jag håller på med så tacksam för hjälp ;)

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

## #2 — LarsG, 2002-10-24T16:22Z

Denna kod ökar på visits med 1 för den givna sidan. Om den inte finns i databasen så lagras en post.

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("" & path & ""Counter.mdb") 

connect.execute "update counter set visits = visits + 1  where name = '" & page & "'",rows,128
if  rows = 0 then
connect.execute "insert into counter(name,visits) values('" & page & "',1)",rows,128
end if
Connect.Close 
Set Connect = nothing
```

Counter är inget bra tabellnamn om man använder Jet SQL eftersom det är ett nyckelord i den sql-dialeketen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/56977-hjälp-till-min-besöksräknare