---
title: "Counter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5408-counter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-02-28T17:27:00.000Z"
updated: "2000-02-29T13:56:00.000Z"
replies: 4
views: 530
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/5408-counter"
---

# Counter

## #1 — cgi, 2000-02-28T17:27Z

Hur gör man en räknare i ASP.

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

## #2 — Brimba, 2000-02-28T18:20Z

Hinner inte skriva mycket men tex kan du ju bara plussa på 1 för varje gång sidan laddas och sen lägger du in det i ett databas fält. På det sättet ökar det ju hela tiden, sen kan man ju göra räknaren mer eller mindre komplicerad, tex "unika" besökare eller statistik per dag osv.
Hinner inte skriva något exempel nu, men skriv gärna vad du vill ha så skall jag försöka få ner några rader  :)

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

## #3 — toha, 2000-02-28T21:56Z

Det skall följa med en komponent i Option Pack samt PWS som kan sköta sånt. Tror det heter något med "PageCounter".

I alla fall nåt...

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

## #4 — nanne, 2000-02-29T07:40Z

\*Tata\* <http://www.tcp-ip.com/Weblinks.asp?cat=ASPCounters> 

Annars så kan man ju alltid göra en tabell som lägger in en post per IP nummer. DÅ kan man ju t.ex föra statistik på webläsare, OS och sånt 3vligt.

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

## #5 — Brimba, 2000-02-29T13:56Z

Ett exempel på en relativt enkel räknare:

```
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\databas\raknare.mdb"
SQLeller = "SELECT datum FROM raknare"
SET RS = Connection.Execute(SQLeller)

RS.MoveFirst
i=false

Do Until i=true If RS.EOF then

	 SQLStmt = "INSERT INTO raknare"
	 SQLStmt = SQLStmt & "(antal, datum)"
	 SQLStmt = SQLStmt & "VALUES('" & 1 & "','" & date & "')"
	 i=true
Elseif RS("datum") = date Then

	 SQLStmt = "UPDATE raknare SET antal = antal +1 WHERE datum = #" & date & "#"
	 i=true

End If
If i=true Then RS.MoveFirst
RS.MoveNext
Loop

Connection.Execute(SQLStmt)
%>
```

Den kollar först om det finns någon post på det datumet annars får den lägga till en så att den kan updatera den.

Hoppas det var till lite hjälp   :)

Det är kanske inte den snyggaste koden, men jag har provat lite olika lösningar men har inte lyckats lösa det på smidigare sätt, någon som vet?

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

---

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