---
title: "Counter på sidan!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/29268-counter-på-sidan"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "cobraeyes"
published: "2000-05-23T09:30:00.000Z"
updated: "2000-05-23T12:38:00.000Z"
replies: 9
views: 273
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/programmering/29268-counter-på-sidan"
---

# Counter på sidan!

## #1 — cobraeyes, 2000-05-23T09:30Z

Är det någon som har ett bra script till en counter.

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

## #2 — Tomas, 2000-05-23T09:33Z

<http://www.thecounter.com>  om du inte orkar göra en egen...

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

## #3 — cobraeyes, 2000-05-23T09:35Z

Grejen är inte den att jag inte orkar...det är så att jag inte riktigt kommit igång med programeringen. Men jag är i akut behov av ett "eget" script!

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

## #4 — Tomas, 2000-05-23T09:49Z

Kolla då <http://www.aspcode.com,>  där finns säkert koden om du vill göra den i asp, eller vad hade du tänkt dig?

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

## #5 — Csson, 2000-05-23T10:20Z

Eller om vi pratar Perl:
 <http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Access_Counters/Graphical/>  <http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Access_Counters/Text_Based/>  <http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Logging_Accesses_and_Statistics/> 

/Csson

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

## #6 — Annelie, 2000-05-23T10:58Z

Bilder får du göra eller om du vill ha mina som jag har på min sida så hojta till. Denna räknare stegar BARA första gången och sedan kan man "springa runt" utan att få en glädje räknare ;) Detta script är mitt så....Men varsågod om det är ngt sånt här du vill ha :)
\<%
Dim dbCounterPath
Dim myConn
Dim SQLStmt
Dim SQLupd
Dim rsCounter
Dim totCountDigits
Dim CounterBgColor
Dim CounterBorderColor
Dim strPage

' Response.Write   Server.MapPath("/katalog/katalog.mdb")
  strPage = Request.ServerVariables("URL")
  ' cookie check
  ' om den finns eller ej
  If Request.Cookies(strPage) = "" Then
    Response.Cookies(strPage) = 1
    Application.Lock
    'Response.Write strPage & "\<br\>"
    dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")
	Set myConn = CreateObject("ADODB.Connection")
	Set rsCounter = CreateObject("ADODB.Recordset")
	myConn.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; " & dbCounterPath
	' New Page ? 
	SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
	set rsCounter = myConn.Execute(SQLStmt)
    'rsCounter.Open SQLStmt, myConn
    if rsCounter.EOF then
      rsCounter.Close
      Set rsCounter = nothing
      SQLStmt = "INSERT INTO tblCount (fldCount,Page) VALUES (0,'" & strPage & "');"
      'SQLStmt = "INSERT INTO tblCount (fldCount,Page) VALUES (0,'NISSE');"
      'Response.Write SQLStmt & "\<br\>"
      myConn.Execute SQLStmt
    else
      rsCounter.Close
      Set rsCounter = nothing
    end if
    ' Get count and add 1
    SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
    set rsCounter = myConn.Execute(SQLStmt)
	rsCounter.MoveFirst
	count = Int(rsCounter("fldCount") + 1)
	rsCounter.Close
	Set rsCounter = nothing
	' Update
	SQLupd ="UPDATE tblCount SET fldCount = " & Count & " where Page='" & strPage & "'"
	myConn.Execute (SQLupd)
	myConn.Close
	Set myConn = nothing
	Application.UnLock
   end if				
				
sub WriteCounter				

  strPage = Request.ServerVariables("URL")
				
  CounterBgColor = "#F6D9AC"
  CounterBorderColor = "#666666"

  totCountDigits = 5		' så många siffror ska räknaren bestå av
				
  dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")
	
  'Response.Write dbCounterPath & "\<br\>"
  'Response.Write strPage & "\<br\>"

' hämta uppgift om hur många besök som varit
  Application.Lock
  dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")
  Set myConn = CreateObject("ADODB.Connection")
  Set rsCounter = CreateObject("ADODB.Recordset")
  myConn.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; " & dbCounterPath
  SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
  'Response.Write SQLStmt & "\<br\>"

  set rsCounter = myConn.Execute(SQLStmt)
  'rsCounter.Open SQLStmt, myConn
		
  Count = rsCounter("fldCount")
				
  rsCounter.Close
  Set rsCounter = nothing
  myConn.Close
  Set myConn = nothing
			
	' hur många siffror ska räknaren bestå av
  If Len(Count) \< totCountDigits Then
    Do Until Len(Count) = totCountDigits
      Count = "0" & Count
    Loop
  End If
					
  Application.UnLock
			

  ' Denna funktion ändrar text siffrorna till bild siffror

  Count = Replace(Count,"0","\<img src=/katalog/0.gif border=0\>")
  Count = Replace(Count,"1","\<img src=/katalog/1.gif border=0\>")
  Count = Replace(Count,"2","\<img src=/katalog/2.gif border=0\>")
  Count = Replace(Count,"3","\<img src=/katalog/3.gif border=0\>")
  Count = Replace(Count,"4","\<img src=/katalog/4.gif border=0\>")
  Count = Replace(Count,"5","\<img src=/katalog/5.gif border=0\>")
  Count = Replace(Count,"6","\<img src=/katalog/6.gif border=0\>")
  Count = Replace(Count,"7","\<img src=/katalog/7.gif border=0\>")
  Count = Replace(Count,"8","\<img src=/katalog/8.gif border=0\>")
  Count = Replace(Count,"9","\<img src=/katalog/9.gif border=0\>")

		Response.Write  "\<table border=0 cellspacing=0 cellpadding=0\>" & vbcrlf
		Response.Write "\<tr bgcolor=#636363\>" & vbcrlf
		Response.Write "    \<td\>"
		Response.Write "      \<table border=0 cellspacing=1 cellpadding=0\>"
		Response.Write "        \<tr bgcolor=" & CounterBgColor & "\> "
		Response.Write "          \<td\>" & count & "\</td\>"
		Response.Write "        \</tr\>"
		Response.Write "      \</table\>"
		Response.Write "    \</td\>"
		Response.Write "  \</tr\>"
		Response.Write "\</table\>"
end sub

%\>

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

## #7 — woodi, 2000-05-23T11:34Z

Annelie
Oj vilken lång kod för en räknare!  :)

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

## #8 — Annelie, 2000-05-23T12:27Z

Mmm men storleken har ju ingen betydelse ;)

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

## #9 — cobraeyes, 2000-05-23T12:32Z

> Mmm men storleken har ju ingen betydelse

så sant som det var sagt!

"It ain't the size that matters, it's the motion of the ocean"

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

## #10 — emission, 2000-05-23T12:38Z

Flyttas till ASP.

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

---

Tråden på webben: https://www.webforum.nu/amne/programmering/29268-counter-på-sidan