<% End If End IF if Request("words")="" and Request("number")="" then %>
رقم الحديث <%= Results("Hadith_Number") %>
المرجع <%= Results("vbook") %> الصفحة <%= Results("Page") %> الموضوع الرئيسي <%= Results("vSubject") %> الموضوع الثانوي <%'= Results("sub_Subject") %> الموضوع الفرعي <%= Results("additional_Subject") %> نوع الحديث <%= Results("Types.Text") %> نص الحديث <%= Results("Hadith.Text") %> الكتاب <%= Results("Book") %> المؤلف <%= Results("Author") %> الناشر <%= Results("Publisher") %> الطبعة <%= Results("Version") %> تاريخ الطبعة <%= Results("vDate") %> ملاحظة: سنقوم بالقريب العاجل بتطوير إمكانية البحث و التصفح. و يبقى هذا العمل خلاصة كتب الألباني حيث لا تحتوي على تفصيل تخاريج الأحاديث و لا شرحها.<% End If If Request("ID") <> "" And Request("words")="" and Request("number")="" Then %> <% Response.end End If %> <% If Request("ID") = "" And (Request("words")<>"" OR Request("number")<>"") Then Dim number number = Request("number") words = Request("words") If number = "" Then number = -1 If words = "" Then words = "noword" Set Conn = Server.CreateObject("ADODB.Connection") Found=0 counter=1 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("albani.mdb") & ";" SQLQuery = "SELECT * FROM Hadith WHERE Text LIKE '%" & words & "%' OR Hadith_Number=" & number 'Response.Write SQLQuery Set Results = Conn.Execute(SQLQuery) If not Results.EOF then Found = 1 Response.write("نتائج البحث هي:") End If Do While (Not Results.EOF) %> <% counter = counter+1 Results.MoveNext Loop Results.Close Conn.Close If Found=0 or words = "" then Response.write("
أدخل المعلومات المهندس عبد اللطيف من محمد قزيها. الإصدار الثاني بدء به في 22-10-1419هـ الموافق 8-2-1999م. دمشق الشام، هاتف +1-963-11-3713588.
لا تنسونا من صالح دعائكم.عذراً، لم نجد نتائج تحتوي على: ") Response.write(words) End If End If %>