|
|
|
||||||||
      
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Home | About Us | Product | Other Services | Spiritual Help | Contact Us | Site Map |
|
Counter : <% fp=Server.MapPath("Counter.txt") Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.OpenTextFile(fp) ct=Clng(a.ReadLine) if Session("ct")="" then Session("ct")=ct end if ct=ct+1 a.Close Set a=fs.CreateTextFile(fp,True) a.WriteLine(ct) a.Close Response.Write (ct) %> |
Best View in 800 x 600 resolution Internet Explorer