Besökare per dag

Lägg detta i global.asa:

Sub Session_OnStart

If Application("dag") = "" OR Application("dag") <> Day(Date()) Then
  Application("dag") = Day(Date())
  Application("antalIdag") = 0   
End If

Application("antalIdag") = Application("antalIdag") + 1

End Sub

------------------
Peter D

I global.asa

Sub Session_OnStart 

Application.lock
if  Cdate(Application("currentDate")) <> date then
   Application("currentDate") = date
   Application("visitors") = 1
else
   Application("visitors") = clng(Application("visitors")) + 1
end if
Application.unlock
end sub

och sen om du vill visa antal besökare

response.write "Antal besök i dag " & application("visitors") & "<br>"

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 26 aug 2001]

vad ska jag skriva där jag vill att antal besökare ska stå?

läs LarsGs inlägg igen, och speciellt då de sista raderna.

------------------
mördar-anders, det är jag.

ska jag skriva den raden i tex statistik.asp då?

Det låter utmärkt.

------------------
essentitia preter non sans multiplicandum

Det verkar inte funka för att det står bara "Antal besök i dag".

Funkar global.asa i pws?

LarsG skrev fel - currentDate ska det vara överallt...

Sub Session_OnStart 
Application.lock
if Cdate(Application("currentDate")) <> date then
Application("currentDate") = date
Application("visitors") = 1
else
Application("visitors") = clng(Application("visitors")) + 1
end if
Application.unlock
end sub

Global.asa ska ligga i din wwwroot.

------------------
Peter D

Hmm, lite slarvigt. Har ändrat det nu.

Måste man starta om PWS eller så för att förändringar i global.asa skall märkas?

------------------
essentitia preter non sans multiplicandum

Hmm, lite slarvigt. Har ändrat det nu.

Gott! :)

Måste man starta om PWS eller så för att förändringar i global.asa skall märkas?

Jag tror man måste det... :q
Själv brukar jag krasha den.

------------------
Peter D

det funkar inte för mig.

Så här har jag gjort:

I global.asa har jag följande text:

Sub Session_OnStart
Application.lock
if Cdate(Application("currentDate")) <> date then
Application("currentDate") = date
Application("visitors") = 1
else
Application("visitors") = clng(Application("visitors")) + 1
end if
Application.unlock
end sub

Global.asa har jag lagt i wwwroot-katalogen.

Sedan har jag gjort en fil som heter statistik.asp och i den filen finns det
den kod:

<% response.write "Antal besök i dag " & application("visitors") & "<br>" %>

Kolla om jag har gjort något fel.