Counterproblem in asp

[Hoscha]

Hallo zusammen!
habe folgendes Problem: Ich möchte einen Counter programmieren, dessen Wert sich wieder auf 1 setzt, wenn sich der aktuelle Monatstag vom gespeicherten Wert in der txt-Datei unterscheidet. Im Klartext: wenn morgen der 16. ist, soll er 15 mit 16 vergleichen und den counter auf 1 setzen. Irgendwie klappt der unten stehende Code nicht ganz: Bei einem neuen Tag bleibt count permanent auf 1.
Vielen Danke für eure Hilfe,
Holger

<%
myday = DatePart("d", date)   'the current day

Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("counter_daily.txt")
Set ts = fs.OpenTextFile(File, 1)
txtday = ts.ReadLine      'the day saved in count_daily.txt
count = ts.ReadLine
ts.Close
  If txtday = myday Then
  count = count + 1
 Else
  count=1
 End If

Response.Write "Hits today:  " & count &""

Response.Write "<br>" & txtday &""
Response.Write "  " & myday &""

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(File,2, true)
a.WriteLine(myday)       'current date is saved
a.WriteLine(count)       'visitors are saved
a.Close

%>