besöks räknare...

här är iaf en kod från palles hemsida som räknar, men det med att den ska nollställa efter tre dagar...hmmm??? nja, det blir PatrikB, Vide, Emission, Rossifumi, M@rtin eller nakoz... (förlåt er alla andra duktiga asp-are om jag inte fick med er, men dom här har hjälpt mig mest!)

<%

	Application.Lock
	Application.Contents("Besokare") = Application.Contents.("Besokare") + 1
	Application.Unlock
	
	Set F = CreateObject("Scripting.FileSystemObject")
	Set T = F.CreateTextFile("c:\inetpub\wwwroot\statistik.txt")
	
	T.WriteLine Application.Contents("Besokare")
	
	
	T.Close
	
	
	Set A = CreateObject("Scripting.FileSystemObject")
	Set B = F.CreateTextFile("c:\inetpub\wwwroot\statistik.txt", 1)
	
	Statistik = B.ReadLine
	
	B.Close

%>

Skriver ut gör du så här:

Du är besökare nr: <b> <%=Statistik %> </b> !

------------------
www.groda.net *kvack*, *kvack*

Du får lägga in ett "fält" där du har datum... det datumet uppdaterar du var tredje dag.

Då kan du jämföra med dagens datum hela tiden:

If date = DateAdd(Cdate("D",3,ditt_datum_textfilen) then
'Ta bort allt och lägg till dagens datum
End If

Helt otestad idé naturligtvis... :)

------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com

[Redigerat av Vide den 17 maj 2001]