<%@ Language="VBScript" %> Quartos.org.lb <% Response.Expires= -1 Response.AddHeader "Cache-Control", "no-cache" Response.AddHeader "Pragma", "no-cache" %> <% if Session("ct") = "" then fp = Server.MapPath("count.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = CLng(a.ReadLine) ct = ct + 1 Session("ct") = ct a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) a.Close Set a = Nothing Set fs = Nothing else ct = CLng(Session("ct")) end if %>
 
Who we are Calendar Al Nashra Al Nashra by topics Homily mp3 audio
06/06/2010		 Icons
         
Click to enlarge  
 
       
           
  You are visitor number: <%=ct%> Since (07-03-2003)    

P.O.Box 186 Beirut - Lebanon
Telephone 961 1 200612 - 200613 - 217612
Fax: 200611
© 2009 - Orthodox Archdiocese of Beirut