Min räknare räknar lite för mycket?

Har en fil Global.asa som ser ut på följande sätt
Kod:

<SCRIPT LANGUAGE=VBScript RUNAT=SERVER>

Sub Application_OnStart
  Application("dbas")="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("shop.mdb")
  Application("Visits") = 0
  Application("Active") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session.Timeout = 10
  Application.Lock
	Application("Visits") = Application("Visits") + 1
	intTotal_Visitors = Application("Visits")
  Application.Unlock
  Session("VisitorID") = intTotal_Visitors
  
  Application.Lock
	Application("Active") = Application("Active") + 1
  Application.Unlock
End Sub

Sub Session_OnEnd
  Application.Lock
	Application("Active") = Application("Active") - 1
  Application.Unlock

  Set conn=Server.CreateObject("ADODB.Connection")
  conn.Open "Shop"
  sql="DELETE * FROM kundvagn WHERE sid=" & Session.SessionID
  conn.Execute(sql)
  conn.close
  Set conn=nothing
End Sub
</SCRIPT>

den ska räkna totala antalet besökare på sidan. Innan jag har loggat in så räknar den upp med 1 och sedan räknar detn upp med 1 till när jag loggar in på sidan. Vill bara att den ska räkna mig en gång...ska jag använda mig av cokies då eller??
Någont förslag skulle i så fall sitta fint