Hvordan redigerer jeg denne counter til at skrive til kun én fil?

Hejsa allesamme,
jeg har denne counter på min hjemmeside, men der er et problem efter at jeg har tilsat en "Du er besøger nr. i dag" counter til så skriver den et nyt tekstdokument hver dag hvor der står hvor mange der var besøgende den dag (712002.txt) - Er det ikke muligt at gøre det sådan at den kun skriver til en fil så der er en alm. counter.txt (med altal counts i alt) og så en day.txt hvor den skriver alle de forskellige dages counts i.... eks.
712002 = 2
6292002 = 12
6282002 = 4
osv...

Counterens kode er:
<%set FileObject = createobject("scripting.filesystemobject")
totfile = server.mappath("counter.txt")

If FileObject.FileExists(totfile) Then
set ActiveFile = FileObject.opentextfile(totfile)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(totfile, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close       

Else

Set ActiveFile = FileObject.CreateTextFile(totfile)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close

End If

Response.Write "<center><font face='verdana' size='1'>Du er besøger nr. <b>" & counter & "</b> på denne hjemmeside</font></center><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)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(fpath, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close

Else

Set ActiveFile = FileObject.CreateTextFile(fpath)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close
             
End If

Response.Write "<center><font face='verdana' size='1'>Du er besøger nr. " & counter & "</b> i dag"
%>