snabb och fel fri räknare

Kollade lite på wfScript...
http://script.webforum.nu/wf/Forum1/HTML/000043.html
http://script.webforum.nu/wf/Forum1/HTML/000002.html

Skulle vilja ha en kod utan Global.asa fil...

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Du vill inte ha rätt fri räknare då? ;)

------------------
// Skarre

Jag får inte igång den räknaren med global.asa saken som bara skriver ränkare upp och ned.. den visar inte antal besökare :( skriver inget.. mummel (har allt i global.asa filen som det står)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

count.asp

<%
If Request.Cokies("Add") = "" Then

Set Conn = CreateObject("Scripting.FileSystemObject")
Set RecSet = Conn.OpenTextFile(Server.Mappath("count.txt"))
Counter = RecSet.Readline

Counter = Counter + 1

RecSet.Close

Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.Close

Response.Cokies("Add") = "Count"
Response.Cokies("Add").Expires = DateAdd("d",1,Now())

End If
%>

<%
Set Conn = CreateObject("Scripting.FileSystemObject")
Set RecSet = Conn.OpenTextFile(server.mappath("count.txt"))
Counter = RecSet.Readline
Counter = Counter + 0
RecSet.Close
Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.Close
%>

Där koden ska visas.

<!--#include file="count.asp"-->
<%=Counter%>

Funkar MUMMA :e
(kaka kaka kaka... du vet hur det stavas)

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

[Redigerat av Sico den 11 feb 2002]

tack!

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck