كتب تخريج الحديث النبوي الشريف
للشيخ ناصر الدين الألباني

<% If Request("ID") <> "" And Request("words")="" Then 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 Hadith.*, Books.*, Subjects.*, Types.*, Books.[Date] AS vDate, Books.Reference AS vbook, Subjects.Text as vSubject FROM Books, Hadith, Subjects, Types WHERE (Hadith.Book_ID=Books.ROW_ID AND Hadith.Type_ID=Types.ROW_ID AND (Hadith.Subject_ID=Subjects.ROW_ID OR Hadith.Subject_ID1=Subjects.ROW_ID OR Hadith.Subject_ID2=Subjects.ROW_ID) AND Hadith.ROW_ID=" & Request("ID") & ");" SQLQuery = "SELECT Hadith.*, Books.*, Subjects.*, Types.*, Books.[Date] AS vDate, Books.Reference AS vbook, Subjects.Text as vSubject, (SELECT Subjects.Text FROM Subjects, Hadith WHERE Subjects.ROW_ID=Hadith.Subject_ID1 AND Hadith.ROW_ID=" & Request("ID") & ") AS sub_Subject, (SELECT Subjects.Text FROM Subjects, Hadith WHERE Subjects.ROW_ID=Hadith.Subject_ID2 AND Hadith.ROW_ID=" & Request("ID") & ") AS additional_Subject,* FROM Books, Types, Subjects INNER JOIN Hadith ON Subjects.ROW_ID=Hadith.Subject_ID WHERE Books.ROW_ID=Hadith.book_ID AND Types.ROW_ID=Hadith.type_ID AND Hadith.ROW_ID=" & Request("ID") & ";" 'Response.Write SQLQuery Set Results = Conn.Execute(SQLQuery) If not Results.EOF then Found = 1 %>
رقم الحديث

<%= 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 End IF if Request("words")="" and Request("number")="" then %>

ملاحظة: سنقوم بالقريب العاجل بتطوير إمكانية البحث و التصفح. و يبقى هذا العمل خلاصة كتب الألباني حيث لا تحتوي على تفصيل تخاريج الأحاديث و لا شرحها.
أدخل المعلومات المهندس عبد اللطيف من محمد قزيها. الإصدار الثاني بدء به في 22-10-1419هـ الموافق 8-2-1999م. دمشق الشام، هاتف +1-963-11-3713588.
لا تنسونا من صالح دعائكم.

<% 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) %>
  1. "> <%= Results("Text") %>
<% counter = counter+1 Results.MoveNext Loop Results.Close Conn.Close If Found=0 or words = "" then Response.write("

عذراً، لم نجد نتائج تحتوي على: ") Response.write(words) End If End If %>