<%
Set FS=CreateObject("Scripting.FileSystemObject")
set RS=FS.OpenTextFile("d:\Counter.txt",1)
Num = RS.ReadAll
RS.Close
num=cint(num)+1
response.write("
מספר הגולשים שצפו באתר זה עד כה הינו " & Num &"
")
set RS=FS.OpenTextFile("d:\Counter.txt",2)
rs.write num
rs.close
%>
