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

Click here to Download a Presentation of RKay Mall    The City Logistics Retail Scenario Industrial Scenario Education Tourism & Hospitality Industry Trade & Commerce Growth Infrastructure Growth A Landmark World Class Advantage RKay En Vogue Shringaar Kids n Kin Haat o Mewar Lifestyle Flavours n Fun Zenith Images Videos          Press Note | Site Map | Disclaimer                                                                       Visitors Till Date : <% Response.Write session("TotalCount")%>   Download Latest Flash Player  Powered by : IFW Creations Copyright©rkaymall.com