j1

<% dim recNo set Rs= Server.CreateObject("ADODB.RecordSet") mySQL="SELECT * from Authors" Rs.open mySQL,conn, adopenstatic %> j1

<% do while Not rs.Eof %> <% rs.movenext loop %>

عدد الأسئلة	أسماء العلماء المفتون	الرقم
<% set RsNo=Server.CreateObject("ADODB.RecordSet") SQL="SELECT Count(*) As Num1 from Answers where AuthorId=" & Rs("Id") RsNo.open SQL,conn.ConnectionString, adopenstatic Response.Write("" & RsNO("Num1") & "") RsNo.Close set RsNo=Nothing %>	<% Response.Write(rs("Author")) %>	<% Response.Write(rs.absoluteposition) %>

جديد الموقع

القران الكريم

أسئلة القراء عن الأحاديث

الملل والنحل والفرق

مقالات ومطويات

ركن الأسرة

العالم الإسلامى

أنشطة الموقع الدعوية

خارطة الموقع

الدروس الدورية

من أعلام الدعوة



	تعرف بجماعة أنصار السنة المركز الرئيسى للجماعة فروع جماعة أنصار السنة أنشطة الجماعة اهداف الجماعة اصدارات الجماعة أقوال العلماء فى الجماعة رؤساء الجماعة منذ انشائها مكتبة المركز العام للجماعة معهد إعدادالدعاة



	عـدد زيارة هذا الموقع <% dim i Set fs=Server.CreateObject("Scripting.FileSystemObject") Set filetemp=fs.OpenTextFile(session("whichFN"), 1) i=CINT(filetemp.ReadAll) Response.Write(i) filetemp.Close Set filetemp=Nothing Set filetemp=Nothing %> زيارةًً يوجـــــد الان <% response.write(Application("visitors"))%> زائراً