Writing counters with ASP

Counter <%


  


Dim Fso,f,no,i ' Defining variables is definitely a good habit


  


Set fso = CreateObject ("Scripting.FileSystemObject") ' establishes an instance of an object


  


Set f = fso. OpenTextFile (Server.MapPath ("count.no"), 1, True) ' establishes a text file and opens it as read-only.


  


if F.atendofstream Then ' determines if this file does not exist


  


no=1


  


Else


  


No=f.readline


  


no=no+1


  


End If


  


F.close


  


set F=FSO. OpenTextFile (Server.MapPath ("count.no"), 2,true) ' ready to write


  


F.write (No) ' Write to


  


F.close


  


' Improved logo 1


  


no=cstr (NO) ' neat digital


  


for I=1 to 5-len (NO)


  


no= "0" &no


  


Next


  


%>


  


<font color=white size=3pt> You are <font color=red><%=no%></font> a visitor </font>