<% '============================================== ' File System object for Counter file '============================================== Dim fsoObject Dim tsObject Dim filObject Dim intVisitorNumber Dim i On Error Resume Next intVisitorNumber = 0 Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt")) Set tsObject = filObject.OpenAsTextStream intVisitorNumber = CLng(tsObject.ReadLine) intVisitorNumber = intVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True) tsObject.WriteLine cstr(intVisitorNumber) 'fleHits.writeLine cstr(currentHits) tsObject.Close Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing %>

Thou didst create the night, but I made the lamp.
Thou didst create clay, but I made the cup.
Thou didst create the deserts,  and forests,
I produced the orchards, gardens and groves.
It is I who made the glass out of stone,
And it is I who turn a poison into an antidote.



IQBAl


 














 
<% Response.Write "Total Visits   : " Response.Write"" & formatnumber((intVisitorNumber),0) & "" %> 

  

                          Developed By Munazza