Tæller...
Jeg har fundet denne tæller og lavet lidt om på den:<%set FileObject = createobject(\"scripting.filesystemobject\")
totfile = server.mappath(\"counter.txt\")
If FileObject.FileExists(totfile) Then
set ActiveFile = FileObject.opentextfile(totfile)
counter = clng(ActiveFile.readline)
if session(\"been_here_before\") = \"\" then
session(\"been_here_before\") = \"Yes\"
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(totfile, true)
ActiveFile.WriteLine(counter)
end if
ActiveFile.Close
Else
Set ActiveFile = FileObject.CreateTextFile(totfile)
ActiveFile.WriteLine(\"1\")
counter=1
ActiveFile.Close
End If
Response.Write \"<b>\" & counter & \"</b> visits since 5 July 2000.<br>\"
td = FORMATDATETIME(DATE, vbShortDate)
td = Replace(td, \"/\", \"\")
td = td & \".txt\"
fpath = Server.Mappath(td)
If FileObject.FileExists(fpath) Then
set ActiveFile = FileObject.opentextfile(fpath)
counter = clng(ActiveFile.readline)
if session(\"been_here_before\") = \"\" then
session(\"been_here_before\") = \"Yes\"
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(fpath, true)
ActiveFile.WriteLine(counter)
end if
ActiveFile.Close
Else
Set ActiveFile = FileObject.CreateTextFile(fpath)
ActiveFile.WriteLine(\"1\")
counter=1
ActiveFile.Close
End If
Response.Write \"<b>\" & counter & \"</b> visits today, \" & Date & \"<br>\"
%>
Som man nok kan se så opretter den en ny .txt-fil hver dag for at vise hvor mange besøgende der har været den gældene dag. Hvordan kan jeg gøre så den bare nulstiller en evt. .txt-fil og begynder på ny. Det er så jeg ikke lige pludselig har tonsvis af filer liggende som bare fylder.
