---
title: "Räknare!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/79192-räknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Steven"
published: "2003-06-08T11:36:51.000Z"
updated: "2003-06-08T12:10:15.000Z"
replies: 1
views: 203
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/79192-räknare"
---

# Räknare!?

## #1 — Steven, 2003-06-08T11:36Z

Tjena tjena!
Har komponerat ihop en räknare på våran sida. Är dock mycket osäker på att den verkligen stämmer. Räknaren ska funka på alla sidor och har därför lagt den i samma fil som databaskopplingarna och är då inkluderad på varenda sida. Jag skickar med koden så kan kanske nån hitta något fel. Räknaren ska räkna unika besökare på 24 timmar. 

\<%If Request.QueryString("page") \<\> "" Then
    incPage = Mid(Request.ServerVariables("URL"),2) & "?page=" & Request.QueryString("page")
Else 
    incPage = Mid(Request.ServerVariables("URL"),2)
End If
    statDate = left(Now(),10)
    unicVisitor = False
If Request.Cookies("aojStats") \<\> statDate  Then
    unicVisitor = True
    Response.Cookies("aojStats") = statDate
    Response.Expires = Date() + 1

    Set AOJ = Server.CreateObject("ADODB.Connection")
    OpenDatabaseAOJ
    SQL = "Select \* From aojstats Where statDate Like '" & statDate & "'"
    Set Stat = AOJ.execute(SQL)
    newDay = 0
    Do Until Stat.Eof or newDay = 1
        Stat.MoveNext
        newDay = 1
    Loop

    If newDay = 0 Then
        AOJ.Execute("Insert Into aojstats(statDate, incPage, unicVisitors, unicVisitorsAll) Values('" & statDate & "','" & incPage & "',0,1)")
    Else
        AOJ.Execute("Update aojstats Set unicVisitorsAll=unicVisitorsAll+1 Where statDate='" & statDate & "' And incPage Like '" & incPage & "'")
    End If    
    
End If
If Request.Cookies(incPage) \<\> incPage Then
    unicVisitor = True
    Response.Cookies(incPage) = incPage
    Response.Expires = Date() + 1
End If

If unicVisitor = True Then
    Set AOJ = Server.CreateObject("ADODB.Connection")
    OpenDatabaseAOJ
    SQL = "Select \* From aojstats Where statDate Like '" & statDate & "' And incPage Like '" & incPage & "'"
    Set Stat = AOJ.execute(SQL)
    newDay = 0
    Do Until Stat.Eof or newDay = 1
        Stat.MoveNext
        newDay = 1
    Loop

    If newDay = 0 Then
        AOJ.Execute("Insert Into aojstats(statDate, incPage, unicVisitors, unicVisitorsAll) Values('" & statDate & "','" & incPage & "',1,1)")
    Else
        AOJ.Execute("Update aojstats Set unicVisitors=unicVisitors+1 Where statDate='" & statDate & "' And incPage='" & incPage & "'")
    End If
    
    AOJ.Close
    Set AOJ = nothing
End If%\>

Jag får inte något fel, den verkar visa korrekt. Men man undrar lite när man jämför med extreme-räknaren. På extreme har jag kanske 500 besökare, men på den egna räknaren hade jag igår 1900 besökare. Men grejen är ju den att extremeräknaren ligger i en frame på sidan. Då räknas ju inte de träffar som kommer direkt på sidan. Men kan de vara så många som den missar?

/Steven

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

## #2 — Steven, 2003-06-08T12:10Z

Ingen som vågar sig på detta?

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

---

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