---
title: "Räknare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10542-räknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bj"
published: "2001-07-12T18:48:00.000Z"
updated: "2001-07-13T18:25:00.000Z"
replies: 3
views: 223
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/10542-räknare"
---

# Räknare

## #1 — Bj, 2001-07-12T18:48Z

Nogon som vet hur man kan få nedanstående räknare att inte räkna några träffar om man trycker på reload?

```
<%set FileObject = createobject("scripting.filesystemobject")
totfile = server.mappath("counter.txt")

If FileObject.FileExists(totfile) Then
set ActiveFile = FileObject.opentextfile(totfile)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(totfile, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close         

Else

Set ActiveFile = FileObject.CreateTextFile(totfile)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close

End If

Response.Write "" & counter & " besökare sedan starten 1996.<br>"
td = FORMATDATETIME(DATE, vbShortDate)
td = Replace(td, "/", "")
td = td & ".txt"
fpath = Server.Mappath(td)

If FileObject.FileExists(fpath) Then
set ActiveFile = FileObject.opentextfile(fpath)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(fpath, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close
                     
Else

Set ActiveFile = FileObject.CreateTextFile(fpath)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close
               
End If

Response.Write "varav " & counter & " st besök idag.<br>"
%>
```

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

## #2 — Pace, 2001-07-12T18:56Z

```
If Session("har_redan_raknat") = "" Then
'lägg till 1 på räknaren
Session("har_redan_raknat") = "yepp"
End If
```

Detta är ett enkelt sätt, men det borde finnas fler.

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

## #3 — Eclipse, 2001-07-13T12:19Z

```
' ## GLOBAL.ASA

SUB Session_OnStart
	SQL = "UPDATE [mySite] SET [x_counter] = [x_counter]+1 WHERE [x_ID] = 1;"
	Conn.Execute(SQL)
END SUB
```

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

## #4 — PatrikB, 2001-07-13T18:25Z

Lägger din kod för räknaren i global.asa's Sub Session_OnEnd
Jag skulle även lägga in en cookie så att besökaren endast räknades en ggn per dag. Vissa besökare återkommer ju flera ggr per dag, annars blir det en "glädje" räknare ;)

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10542-räknare