<%
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
%>
hoseini.org-----------------------
اشعار
رویدادهای فرهنگی در آمریکای شمالی
مراسم اربعین در کانادا
مراسم اربعین سالار شهیدان امام حسین (ع) در بیش از
شصت مرکز اسلامی جامعه شیعیان مقیم کانادا برگزارشد
در این مراسم باشکوه ، سخنرانان به تشریح دستاوردهای
قیام خونین ابی عبدالله (ع) پرداختند و مناسبت های این روز
