בס"ד

טל מנשה

ישוב דתי בצפון השומרון

 

<% 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 %>