<% if session("EnterCount")=1 then sPath = Server.mapPath("counter.txt") Set fs = CreateObject ("Scripting.FileSystemObject") Set CountFile = fs.OpenTextFile(sPath, 1) sVisits = Trim(CountFile.Readline()) CountFile.Close lVisits = CLng(sVisits) + 1 Set CountFile = fs.OpenTextFile(sPath, 2) CountFile.Writeline(lVisits) CountFile.Close Set Fs = Nothing Set CountFile = Nothing session("TotalCount")=lVisits session("EnterCount")=0 end if sPath = Server.mapPath("counter.txt") Set fs = CreateObject ("Scripting.FileSystemObject") Set CountFile = fs.OpenTextFile(sPath, 1) sVisits = Trim(CountFile.Readline()) CountFile.Close session("TotalCount")=sVisits %>
  RKay Mall Udaipur, Rajasthan,INDIA RKay Mall Udaipur, Rajasthan,INDIA Click here to Download a Presentation of RKay Mall   
 
       Press Note | Site Map | Disclaimer                                                                       Visitors Till Date : <% Response.Write session("TotalCount")%>
  Download Latest Flash Player
 Powered by : IFW Creations Copyright©rkaymall.com