<% fp = Server.C:\Inetpub\wwwroot("aspcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Response.Write ct %> <% =ShowDigits %>
   
For Web Hosting Details
For Server Information
HOME

Server Status

What You Get

Email Help

COSTS

Contact Us

Forum

   Planned Maintenance

 For Affordable Web hosting

 We Also Build To Order/Specification (Details)

 30th April 05 *MAINTENANCE Now Complete*

Brand New MSN