ท่านใดเก่ง asp ช่วยผมหน่อยคับ เกี่ยวกับเรื่อง counter

<%  
Set fs = CreateObject("Scripting.FileSystemObject") 
Wfile=server.mappath("\") & "\cgi-bin\counter777614.txt"  
on error resume next 
Set a = fs.OpenTextFile(Wfile) 
hits = Clng(a.ReadLine) 
hits = hits + 1 
a.close 
if error then 
hits = 1 
end if 

Set a = fs.CreateTextFile(Wfile,True) 
a.WriteLine(hits) 
a.Close 
%>