<% Set FS=Server.CreateObject("Scripting.FileSystemObject") Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False) fcount=RS.ReadLine RS.Close fcount=fcount+1 'This code is disabled due to the write access security on our server: Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False) RS.Write fcount RS.Close Set RS=Nothing Set FS=Nothing %> Islamic Ahlul Bayt Assembly of Canada
About us
News & Views
Islamic Centers in Canada
Our Team
Magazines
Projects
What is Shi'ism?
Contact us
Picture Gallery  
Related Links  
 
Islamic Ahlul Bayt Assembly of Canada
» Home