<% IF Session("BookXPss")<>"1" Then %>

اسم المستخدم:
كلمة السر: نسيت كلمة السر؟

تبادل الكتب

<% Else %>

تبادل الكتب

<% End If %>

• الرئيسية
• التسجيل
• حول الموقع
• اتصل بنا
• حقائق
• ساعدنا!
• أسئلة متكررة

• بريدك الالكتروني:
• أكتب ما تريد:
• اسم الدخول:
• الرمز السري:
• أدخل الرمز السري:

• جميع الحقول مطلوبة
• اسم المستخدم:
• البريد الالكتروني:
• كلمة السر:
• تأكيد كلمة السر:
• الدولة: اختر الدولة <% Set TempRs= SERVER.CreateObject("ADODB.RECORDSET") TempRs.OPEN "SELECT * FROM Countries ORDER BY Sorting",conn,3 For i = 1 To TempRS.RecordCount %> "> <%=TempRs.Fields("Name").value%> <% TempRS.MoveNext Next %>
• طريقة التبادل: من الكل لمن في داخل مدينتي فقط لمن في داخل دولتي فقط
• تنبيه في حال وصول طلب جديد: نعم لا
• رسالة إخبارية بجديد الكتب: يوميا اسبوعيا لا
• الرمز السري:
• أدخل الرمز السري:
• شروط التسجيل بســـــم الله الـــرحمــن الــــــرحيــم قوانين وضوابط التسجيل والمشاركة في موقع مقايضة الكتب (Books-Exchange) الحمد لله والصلاة والسلام على أشرف الأنبياء والمرسلين سيدنا محمد وعلى آله وصحبه الطيبين الطاهرين ثم بعد الرجاء وقبل الموافقة قراءة الشروط جيداً والالتزام بها تحتوي هذه الوثيقة على : • تعريفات • الشروط عامة • سياسة حماية الخصوصية (تعريفات) • الموقع : هو موقع مقايضة الكتب • العضو: هو كل شخص يشارك بالموقع عبر اسم عضوية خاصة به • الزائر: هو كل شخص يقوم بزيارة الموقع دون تسجيل عضوية (شروط عامة) • الالتزام بتعاليم الشريعة الإسلامية و منهج أهل السنة و الجماعة و تقاليد و عادات المجتمعات الإسلامية و العربية و الآداب العامة • عدم الدخول بالأمور السياسية و الدينية أو التقليل من شأن أي بلد أو أي شخصية كانت • إضافة كتب تمس الشرطين الأول و الثاني أو لها مجالات جنسية أو تنافي الآداب العامة بأي شكل من الأشكال • التسجيل باسم عضوية لائق لا يتسبب بأي ضيق أو إزعاج لأي شخص كان • يلتزم العضو بالمسؤولية الشخصية عن كل ما يتعلق باسم العضوية التي تخصه. • ليس للعضو الحق في مطالبة الموقع بأي ‏ ‏مقابل مادي أو مقابل معنوي نظير أي عمل قام به بالموقع. • للموقع الحق في الاحتفاظ بكل ما يتم كتابته أو إدراجه بأي جزء في الموقع من قبل العضو وعرضه للاستفادة العامة ، و للموقع كامل الحق في إضافة أو تعديل أو رفض أو حذف (جزء أو كل) من هذه الإضافة. • يمنع منعا باتا التدخل بالأمور الإدارية الخاصة بالموقع • في حال الرغبة بإبداء اقتراح أو الاتصال بإدارة الموقع يمكن استخدام نموذج الاتصال بنا المخصص لذلك. • يمنع منعا باتا نشر أي وسيلة اتصال غير تلك التي توفرها خدمات الموقع للاتصال بين الأعضاء. • يمنع منعا باتا استخدام الموقع للترويج إعلانيا , أو لأي أهداف ربحية أو غير ربحية دون أذن خطي من الموقع • يجب على العضو أن يتأكد من صحة المعلومات التي يقوم بإضافتها قدر الإمكان و متابعة الطلبات التي تصله بشكل دائم بخصوص كتبه (سياسة الخصوصية) • يلتزم الموقع التزاماً كاملاً بتأمين سريّة وخصوصيّة استخدامك لخدماته، وسوف يتخذ كافة الإجراءات المناسبة.‏ • لن يقوم الموقع باستخدام هذه المعلومات لغايات ذات طبيعة غير مشروعة أو غير قانونية.‏ • نرجو من كل مستخدم أن يقوم بتعديل هذه المعلومات وتحديثها عند الضرورة. ويمكن عمل ذلك بالاستعانة بالنصائح الّتي يقدّمها الموقع من حين لآخر.‏ • لن نقوم بكشف محتويات الرسائل الإلكترونية والمعاملات الخاصة بك إلا إذا تطلّب القانون منّا ذلك أو بسبب دعوى تم رفعها علينا أو لحماية حقوق الموقع أو الآخرين، أو في حالة الفقرة سابعاً أدناه.‏ • قد يقوم الموقع بالدخول في اتفاقيات شراكة وتعاون مع شركات أخرى تتمتع بسمعة عالميّة ولها حضور مرموق على شبكة الإنترنت. الهدف الأساسي من هذه الاتفاقيات هو إضافة خدمات أخرى لمستخدمـي الموقع؛ وبالتالي فإن أي تبادل للمعلومات بين الموقع وبين هذه الشركات سوف لن يؤثّر بأي حال من الأحوال على احترام الموقع لخصوصيّة مراسلاتك ومعلومـاتك. كمـا ويقوم الموقع بأخذ الاحتياطات الكافية للتأكّد من أن هذه الشركات ذات المستوى المرموق تحترم المبادئ الرئيسية التي يقوم عليها الموقع وبخاصةً تلك منها المتعلّقة بخصوصيّة مراسلاتك والمعلومات الّتي تقدّمهـا لموقع.‏ • يتّخذ الموقع الإجراءات المناسبة لأجل تخزين كافة المعلومات والمراسلات من خلال أنظمة محكمة محميّة وسريّة.‏ • لا يسمح نظام الموقع لموظفي الموقع بالكشف عن كلمة السر لأي مستخدم. في حال نسيان كلمة السر، يرسل الموقع تذكير بكلمة السر فقط.‏ • لا يتحمل الموقع أو أدارته أو من ينوب عنه أو أي شخص يشترك في إعداد أو إنتاج أو توزيع أي مادة في هذا الموقع أية مسؤولية عن أي ضرر مباشر أو غير مباشر مادي أو معنوي ينشأ من استعمال هذا الموقع أو من عدم التمكن من استعماله أو من أي خطأ أو حذف أو عيب يوجد فيه أو من عدم صحة المعلومات التي يقدمها أو من أي تأخير أو انقطاع في بثه. في حال لم توافق على هذه الشروط أو جزء منها فضلا أترك الموقع مباشرة قد يتم تغيير أو تعديل جزء أو كل من هذه الاتفاقية بين فترة و أخرى بما يتناسب مع مصلحة الموقع فضلا عد لقراءتها من وقت لأخر للتقيد بما فيها مشكورا ودمتم بحفظ الله ورعايته إدارة الموقع

ابحث عن كتاب

تصنيفات الكتب

• اضغط لعرض الكل...
• علوم / تكنولوجيا / كمبيوتر (<%=BooksCount_Tech%>)
• تطوير الذات / تنمية بشرية / علم النفس (<%=BooksCount_Self%>)
• إدارة / تسويق / أعمال / ثراء (<%=BooksCount_Buss%>)
• روايات / أدب / شعر (<%=BooksCount_Story%>)
• تاريخ / سيرة (<%=BooksCount_History%>)
• إسلاميات (<%=BooksCount_Islam%>)

آخر الكتب المضافة

• اضغط لعرض الكل...
<% SQL = "Select Top 5 * FROM Book_BookProfile Where LibraryID=1 Order By CreatedDate DESC" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 If RS.Eof = False Then For i=1 To 5 %>
• "> <%=Rs.Fields("BookName").value%>
<% Rs.MoveNext if rs.eof = true then exit for Next End if %>

آخر الأعضاء المنضمين

• اضغط لعرض الكل...
<% SQL = "Select TOP 5 * FROM Book_UserProfile where EmailConfirmation=1 Order By CreatedDate DESC" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 If RS.EOF = False Then For i = 1 To 5 %>
• "><%=Rs.Fields("UserName").value%> من (<%=GetUserCountry(Rs.Fields("ID").value)%> - <%=GetUserCity(Rs.Fields("ID").value)%>)
<% rs.MoveNext If rs.Eof Then Exit for next End if %>

آخر التعليقات

<% SQL = "Select Top 5 * FROM Book_BookRating Order By CreatedDate DESC" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 If RS.Eof = False Then For i=1 To 5 %>
• "> <%=Mid(Rs.Fields("Comments").value,1,30)%> ... » <%=GetUserName(Rs.Fields("UserID").value)%>
  على كتاب <%=GetBookName(Rs.Fields("BookID").value)%>
<% Rs.MoveNext if rs.eof = true then exit for Next End if %>

<% if Session("BookXPss") = "1" Then SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT Count(ID) FROM Book_RequestExchange Where Closed=0 And Accept=0 And BookID In(SELECT ID " SQL= SQL & "From Book_BookProfile Where UserID=" & SQLNationalText & "'" & Session("UserID") & "')" RS.OPEN SQL, CONN, 3 InboxCount = Rs.Fields(0).value SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT Count(ID) FROM Book_RequestExchange Where Accept=0 And Closed=0 And" SQL= SQL & " UserID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 3 RequestCounts = Rs.Fields(0).value SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT Count(ID) FROM Book_ExchangeBack Where RequestID in (SELECT ID FROM" SQL= SQL & " Book_RequestExchange Where UserID=" & SQLNationalText & "'" & Session("UserID") & "')" RS.OPEN SQL, CONN, 3 ExchangeCounts = Rs.Fields(0).value SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT Count(ID) FROM Book_BookProfile Where UserID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 3 BooksCount = Rs.Fields(0).value SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT Count(ID) FROM Book_UserFrind Where UserID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 3 FrindsCount = Rs.Fields(0).value %>

طلبات واردة	طلب مقايضة	طلبات مرسلة	كتبي	أصدقائي
(<%=InboxCount%>)	(<%=ExchangeCounts%>)	(<%=RequestCounts%>)	(<%=BooksCount%>)	(<%=FrindsCount%>)

<% END IF %> <%SELECT CASE lcase(RepAll(Request("Sec"),3))%> <% CASE LCase("Reg") InvitationID= RepAll(Request("InvitationID"),3) InvitedBy=RepAll(Request("InvitedBy"),3) UserName= RepAll(Request("UserName"),3) Email= RepAll(Request("EmailAddress"),3) Password= RepAll(Request("Password"),3) ConfirmPassword= RepAll(Request("Password2"),3) Country= RepAll(Request("CountryID"),3) 'City= RepAll(Request("CityID"),3) 'CityName= RepAll(Request("CityName"),3) UserRegCode= RepAll(Request("UserRegCode"),3) SecCode= RepAll(Request("SecCode"),3) If IsMail(Email) = False Then %> <% Response.End End if IF IsNull(UserName)=true Then %> <% Response.End End IF IF Password <> ConfirmPassword or IsNull(Password)=true Then %> <% Response.End End IF IF Country="0" Then %> <% Response.End End IF SQL = "Select ID FROM Book_UserProfile Where UserName=" & SQLNationalText & "'" & UserName & "'" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 IF Rs.Eof = False Then %> <% Response.End End IF SQL = "Select ID FROM Book_UserProfile Where EmailAddress=" & SQLNationalText & "'" & Email & "'" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 IF Rs.Eof = False Then %> <% Response.End End IF GUID = QGUID() SQL = "Select * FROM Book_UserProfile" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 2,3 with RS .AddNew .Fields("ID").value =GUID .Fields("CreatedDate").value =FullTodaySerial .Fields("LastVisit").value =FullTodaySerial .Fields("UserName").value =UserName .Fields("Confirmation").value =GUID .Fields("EmailAddress").value =Email .Fields("Password").value =Password .Fields("CountryID").value =Country .Fields("CityID").value =City .Fields("CityName").value =CityName .Fields("InvitationID").value =InvitationID .Fields("InvitedBy").value =InvitedBy .update end with sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "نشكر لك اهتمامك بموقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "في حال لم تقم بادخال طلب تسجيل فضلا قم بتجاهل هذه الرسالة" & vbcrlf & "
" sBody = sBody & "لإتمام طلب التسجيل هناك خطوة واحدة فقط " & vbcrlf & "
" sBody = sBody & "قم بالضغط على الوصلة التالية أو قم بنسخها و لصقها في متصفحك لإتمام العملية" sBody = sBody & vbcrlf & vbcrlf & "
" & "
" sBody = sBody & "" sBody = sBody & "http://www.books-exchange.com/Default.asp?Sec=RegConf&Email=" & Email sBody = sBody & "&ConfID=" & GUID & "" & vbcrlf & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" sBody = sBody & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) %> <% CASE LCase("RegConf") Email= RepAll(Request("Email"),3) ConfID= RepAll(Request("ConfID"),3) SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL = "Select * FROM Book_UserProfile Where EmailAddress=" & SQLNationalText & "'" & Email & "'" SQL = SQL & " and Confirmation=" & SQLNationalText & "'" & ConfID & "'" RS.OPEN SQL, CONN, 2,3 IF RS.Eof = True Then Rs.Close %> <% Else Rs.Fields("EmailConfirmation").value = 1 sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "نشكر لك تأكيد التسجيل" & vbcrlf & vbcrlf & "
" sBody = sBody & "================================================" & vbcrlf & vbcrlf & "
" sBody = sBody & "اسم المستخدم" & ": " & Rs.fields("UserName").value & vbcrlf & "
" sBody = sBody & "كلمة السر" & ": " & Rs.fields("Password").value & vbcrlf & vbcrlf & "
" sBody = sBody & "================================================" & vbcrlf & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" sBody = sBody & vbcrlf & "
" Rs.Update Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) %> <% End if %> <% CASE lcase("facts") SQL= "select Count(ID) from Book_RequestExchange" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountRequestExchange= Rs.Fields(0).value SQL= "select Count(ID) from Book_ExchangeBack" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountExchangeBack= Rs.Fields(0).value SQL= "select Count(ID) from Book_UserProfile" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountUserProfile= Rs.Fields(0).value SQL= "select Count(ID) from Book_UserProfile Where EmailConfirmation=1" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountEmailConfirmation= Rs.Fields(0).value SQL= "select Count(ID) from Book_BookProfile" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountBookProfile= Rs.Fields(0).value SQL= "select Count(ID) from Book_BookProfile Where LibraryID=1" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 CountBookProfile1= Rs.Fields(0).value %>

حقائق حول الموقع
افتتح الموقع رسميا في:	ديسمبر - 2008
عدد طلبات المقايضة حتى الان:	(<%=CountRequestExchange%>)
عدد مرات المقايضة التي تمت حتى الان:	(<%=CountExchangeBack%>)
عدد الاعضاء الفاعلين حتى الان:	(<%=CountEmailConfirmation%>)
نسبة تسجيل الاعضاء بالموقع يوميا:	(<%=Round(CountUserProfile / 80,0)%>)
عدد الكتب المعروضة للمقايضة حتى الان:	(<%=CountBookProfile1%>)
إجمالي عدد الكتب المضافة حتى الان:	(<%=CountBookProfile%>)
نسبة الكتب بالنسبة للاعضاء:	(<%=Round(CountBookProfile/CountEmailConfirmation,0)%>)
أول تجديد و تحسين للموقع في:	مارس - 2009
أول جائزة حصل عليها الموقع في:	ديسمبر - 2008

حقائق حول القرائة
سرعة قراءة الفرد العربي:	150 كلمة في الدقيقية
سرعة قراءة الفرد الغربي:	250 كلمة في الدقيقة
متوسط عدد الكتب التي يقرائها الفرد في اليابان سنويا	40 كتاب سنويا
متوسط قراءة الفرد العربي في السنة:	4 ورقات سنويا
متوسط الوقت الذي يقضيه الفرد العربي بالقراءة:	6 دقائق سنويا

<% CASE LCase("UpdateNewBook") LibraryID=RepAll(Request("LibraryID"),3) CategoryID=RepAll(Request("CategoryID"),3) BookName=RepAll(Request("BookName"),3) BookNameTranslation=RepAll(Request("BookNameTranslation"),3) IsTranslated=RepAll(Request("IsTranslated"),3) BookEdition=RepAll(Request("BookEdition"),3) PublisherName=RepAll(Request("PublisherName"),3) AuthorName=RepAll(Request("AuthorName"),3) BookLanguage=RepAll(Request("BookLanguage"),3) BookISBN=RepAll(Request("BookISBN"),3) BookPages=RepAll(Request("BookPages"),3) BookCondition=RepAll(Request("BookCondition"),3) PublishYears=RepAll(Request("PublishYears"),3) GoogleLink=RepAll(Request("GoogleLink"),4) AmazonLink=RepAll(Request("AmazonLink"),4) OtherLink=RepAll(Request("OtherLink"),4) BookComments=RepAll(Request("BookComments"),3) BookSummary=RepAll(Request("BookSummary"),3) BookIndexID=RepAll(Request("BookIndexID"),3) BookSubIndexID=RepAll(Request("BookSubIndexID"),3) If LibraryID = "0" or CategoryID="0" or BookLanguage="0" or BookCondition="0" Then %> <% Error ="1" End if If IsNull(BookName) = true or IsNull(AuthorName) Then %> <% Error ="1" End if If Error <>"1" Then SQL= "SELECT * FROM Book_BookProfile" IF Go = 1 then SQL = SQL & " Where ID=" & SQLNationalText & "'" & BookID & "'" End if Set Rs= SERVER.CreateObject("ADODB.RECORDSET") Rs.OPEN SQL,conn,2,3 With Rs If Go <> 1 Then .AddNew .Fields("ID").value = QGUID() .Fields("UserID").value = Session("UserID") .Fields("CreatedDate").value = FullTodaySerial End if .Fields("LibraryID").value = LibraryID .Fields("CategoryID").value = CategoryID .Fields("BookName").value = BookName .Fields("BookNameTranslation").value = BookNameTranslation .Fields("IsTranslated").value = IsTranslated .Fields("BookEdition").value = BookEdition .Fields("PublisherName").value = PublisherName .Fields("AuthorName").value = AuthorName .Fields("BookLanguage").value = BookLanguage .Fields("BookISBN").value = BookISBN .Fields("BookPages").value = BookPages .Fields("BookCondition").value = BookCondition .Fields("PublishYears").value = PublishYears .Fields("GoogleLink").value = GoogleLink .Fields("AmazonLink").value = AmazonLink .Fields("OtherLink").value = OtherLink .Fields("BookComments").value = BookComments .Fields("BookSummary").value = BookSummary .Fields("BookIndexID").value = BookIndexID .Fields("BookSubIndexID").value = BookSubIndexID .Update End with If Go <> 1 Then %> <% Else %> <% End If End IF %> <% CASE LCase("SendInvitation") Email=RepAll(Request("FrindEmailAddress"),3) UserRegCode=RepAll(Request("UserRegCode"),3) SecCode=RepAll(Request("SecCode"),3) If IsMail(Email) = False Then %> <% Error ="1" End if IF UserRegCode <> SecCode Then %> <% Error ="1" End IF If Error <>"1" Then GUID = QGUID() SET TempRS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_UserInvitation" TempRS.OPEN SQL, CONN, 2,3 TempRS.AddNew TempRS.Fields("ID").value = GUID TempRS.Fields("UserID").value = Session("UserID") TempRS.Fields("CreatedDate").value = FullTodaySerial TempRS.Fields("Email").value = Email TempRS.Update TempRS.Close sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "لقد وصلتك دعوة للانضمام لموقع مقايضة الكتب" & vbcrlf & vbcrlf & "
" sBody = sBody & "هذه الدعوة خاصة بك و لايمكنك التسجيل بدون هذه الدعوة حيث أن التسجيل مغلق" & vbcrlf & vbcrlf & "
" sBody = sBody & "لقبول هذه الدعوة و التسجيل بالموقع تحتاج إلى الضغط على الوصلة التالية" & vbcrlf & vbcrlf & "
" & "
" sBody = sBody & "" sBody = sBody & "http://www.books-exchange.com/Register.asp?InvitedUser=1&InvitationID=" & GUID & "" & vbcrlf & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) %> <% End IF %> <% Case LCase("AcceptRequest") CID = RepAll(Request("CID"),3) %>

اختر الكتاب \ الكتب التي تود أن تقايضها

<% SQL = "Select * FROM Book_BookProfile Where LibraryID=1" SQL = SQL & " And UserID=" & SQLNationalText & "'" & GetRequesterUserID(CID) & "' ORDER By CreatedDate DESC" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 For i=1 To Rs.RecordCount If ChangeCell = "bgcolor=#F2F5FE" Then ChangeCell="" else ChangeCell = "bgcolor=#F2F5FE" End if %> > <% Rs.MoveNext Next %>

الاختيار	اسم الكتاب	الكاتب
" checked name="BookSelected">	"> <%=Rs.Fields("BookName").value%>	<%=Rs.Fields("AuthorName").value%>

كيف تود أن يتم الاتصال بك

<% Case LCase("CancelRequest") CID = RepAll(Request("CID"),3) SQL = "Delete From Book_RequestExchange Where ID=" & SQLNationalText & "'" & CID & "'" SQL = SQL & " And UserID=" & SQLNationalText & "'" & Session("UserID") & "'" Set TempRS = Conn.Execute(SQL) %> <% Case LCase("RejectRequest") CID = RepAll(Request("CID"),3) ClosedReason= RepAll(Request("ClosedReason"),1) SQL = "SELECT * FROM Book_RequestExchange Where ID=" & SQLNationalText & "'" & CID & "'" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.Open SQL ,Conn,2,3 With RS .Fields("Closed").value = 1 .Fields("ClosedReason").value =ClosedReason .Update end With %> <% Case LCase("AskRejectRequest") CID = RepAll(Request("CID"),3) %> <% Case LCase("DeleteFrind") CID = RepAll(Request("CID"),3) SQL = "Delete From Book_UserFrind Where FrindID=" & SQLNationalText & "'" & CID & "'" SQL = SQL & " And UserID=" & SQLNationalText & "'" & Session("UserID") & "'" Set TempRS = Conn.Execute(SQL) %> <% Case LCase("DeleteBook") CID = RepAll(Request("CID"),3) SQL = "Delete From Book_BookProfile Where ID=" & SQLNationalText & "'" & CID & "'" SQL = SQL & " And UserID=" & SQLNationalText & "'" & Session("UserID") & "'" Set TempRS = Conn.Execute(SQL) %> <% CASE lcase("NewBook") IF Go=1 Then SQL= "SELECT * FROM Book_BookProfile Where ID=" & SQLNationalText & "'" & BookID & "'" Set RS= SERVER.CreateObject("ADODB.RECORDSET") RS.OPEN SQL, Conn, 3 IF RS.EOF = False Then with RS LibraryID = .Fields("LibraryID").value CategoryID= .Fields("CategoryID").value BookName= .Fields("BookName").value BookNameTranslation= .Fields("BookNameTranslation").value IsTranslated= .Fields("IsTranslated").value BookEdition= .Fields("BookEdition").value PublisherName= .Fields("PublisherName").value AuthorName= .Fields("AuthorName").value BookLanguage= .Fields("BookLanguage").value BookISBN= .Fields("BookISBN").value BookPages= .Fields("BookPages").value BookCondition= .Fields("BookCondition").value PublishYears= .Fields("PublishYears").value GoogleLink= .Fields("GoogleLink").value AmazonLink= .Fields("AmazonLink").value OtherLink= .Fields("OtherLink").value BookComments= .Fields("BookComments").value BookSummary= .Fields("BookSummary").value BookIndexID= .Fields("BookIndexID").value BookSubIndexID= .Fields("BookSubIndexID").value end with END IF End if %> <% CASE lcase("NewInvitation") Randomize vRegCode = Second(Now) + Minute(Now) & Hour(Now) + Second(Now) %> <%CASE lcase("Exchangebox")%> <%CASE lcase("Inbox")%> <%CASE lcase("Pending")%> <%CASE lcase("MyFrind")%> <%CASE lcase("MyBook")%> <% Case LCase("Exchange") CID = RepAll(Request("CID"),3) ContactPerson= RepAll(Request("ContactPerson"),3) BookSelected= RepAll(Request("BookSelected"),3) SQL = "Select * FROM Book_ExchangeBack" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 2,3 with RS .AddNew .Fields("ID").value = QGUID .Fields("CreatedDate").value = FullTodaySerial .Fields("RequestID").value = CID .Fields("BookID").value = BookSelected .Fields("ContactWay").value = ContactPerson .Update End With %> <% CASE lcase("UserInfo") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & Session("UserID") & "'" Set Rs= SERVER.CreateObject("ADODB.RECORDSET") Rs.OPEN SQL,conn,3 %>

الاعلام و التنبيهات

هل تريد أن يصلك تنبيه على بريدك حال وصولك طلبات جديدة؟	>نعم >لا
هل تريد أن تصلك نشرة أسبوعية بأخر مستجدات الموقع و الكتب الجديدة؟	>نعم >لا

السماح بالمقايضة:
>	لمن هم في مدينتي فقط
>	لمن هم في بلدي فقط
>	للكل (أي بلد و أي مدينة)

بياناتك الشخصية

اسم المستخدم:	<%=Rs.Fields("UserName").value%>
بواسطة العضو:	<%=GetUserName(Rs.Fields("InvitedBy").value)%>
البلد:	اختر البلد <% Set TempRs= SERVER.CreateObject("ADODB.RECORDSET") TempRs.OPEN "SELECT * FROM Countries ORDER BY Sorting",conn,3 For i = 1 To TempRS.RecordCount %> " <%IF Rs.Fields("CountryID").value = TempRs.Fields("ID").value Then Response.write("selected")%>> <%=TempRs.Fields("Name").value%> <% TempRS.MoveNext Next %>
المدينة:	فضلا اختر المدينة <% Set TempRs= SERVER.CreateObject("ADODB.RECORDSET") TempRs.OPEN "SELECT * FROM Cities Where CountryID=" & Rs.Fields("CountryID").value,conn,3 For i = 1 To TempRS.RecordCount %> " <%IF Rs.Fields("CityID").value = TempRs.Fields("ID").value Then Response.write("selected")%>> <%=TempRs.Fields("Name").value%> <% TempRS.MoveNext Next %> مدينة اخرى فضلا اكتبها ">

<% CASE LCase("UpdateUserPassword") CurrentPassword=RepAll(Request("CurrentPassword"),3) NewPassword=RepAll(Request("NewPassword"),3) ConfirmPassword=RepAll(Request("ConfirmPassword"),3) IF NewPassword <> ConfirmPassword Then %> <% Error ="1" End IF SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 3 IF Rs.Fields("Password").value <> CurrentPassword Then %> <% Error ="1" End IF IF Error <>"1" Then SET TempRS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & Session("UserID") & "'" TempRS.OPEN SQL, CONN, 2,3 TempRS.Fields("Password").value = NewPassword TempRS.Update TempRS.Close sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "لقد تم تغيير بيانات الدخول الخاصة بك" & vbcrlf & vbcrlf & "
" sBody = sBody & "================================================" & vbcrlf & vbcrlf & "
" sBody = sBody & "اسم المستخدم" & ": " & Rs.fields("UserName").value & vbcrlf & "
" sBody = sBody & "كلمة السر" & ": " & NewPassword & vbcrlf & vbcrlf & "
" sBody = sBody & "================================================" & vbcrlf & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" 'Call SendMail("do_not_reply@books-exchange.com",Rs.fields("EmailAddress").value,"تبادل الكتب",sBody) %> <% End If %> <% CASE LCase("UpdateUserEmail") Email=RepAll(Request("NewEmailAddress"),3) If IsMail(Email) = False Then %> <% Error ="1" End if SQL = "Select ID FROM Book_UserProfile Where EmailAddress=" & SQLNationalText & "'" & Email & "'" SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 IF Rs.Eof = False Then %> <% Error ="1" End IF IF Error <>"1" Then GUID = QGUID() sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "لإعادة تنشيط حسابك هناك خطوة واحدة فقط " & vbcrlf & "
" sBody = sBody & "قم بالضغط على الوصلة التالية أو قم بنسخها و لصقها في متصفحك لإتمام العملية" & vbcrlf & vbcrlf & "
" & "
" sBody = sBody & "" sBody = sBody & "http://www.books-exchange.com/Register.asp?Sec=RegConf&Email=" & Email & "&ConfID=" & GUID & "" & vbcrlf & vbcrlf & "
" & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 2,3 Rs.Fields("EmailAddress").value = Email Rs.Fields("Confirmation").value = GUID Rs.Fields("EmailConfirmation").value = 0 Rs.Update Rs.Close %> <% End IF %> <% CASE LCase("UpdateUserInfo") CountryID=RepAll(Request("CountryID"),3) CityID=RepAll(Request("CityID"),3) CityName=RepAll(Request("CityName"),3) ExchangeFromAll=RepAll(Request("ExchangeFromAll"),3) AlertNewRequest=RepAll(Request("AlertNewRequest"),3) WeeklyAlert=RepAll(Request("WeeklyAlert"),3) IF CountryID = "0" Then %> <% Error ="1" End IF IF CityID = "0" Then %> <% Error ="1" End IF IF CityID = "-1" And IsNull(CityName) Then %> <% Error ="1" End IF IF Error <>"1" Then SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & Session("UserID") & "'" RS.OPEN SQL, CONN, 2,3 Rs.Fields("CountryID").value = CountryID Rs.Fields("CityID").value = CityID Rs.Fields("CityName").value = CityName Rs.Fields("ExchangeFromAll").value = ExchangeFromAll Rs.Fields("AlertNewRequest").value = AlertNewRequest Rs.Fields("WeeklyAlert").value = WeeklyAlert Rs.Update Rs.Close %> <% End IF %> <% CASE lcase("RequestExchange") CID= RepAll(Request("CID"),3) vCanExchange =CanExchange(CID,Session("UserID")) IF vCanExchange <> "0" Then %> <% else SQL= "SELECT * FROM Book_RequestExchange" SET TempRS= SERVER.CREATEOBJECT("ADODB.RECORDSET") TempRS.OPEN SQL, CONN, 2,3 TempRS.AddNew TempRS.Fields("ID").value = QGUID TempRS.Fields("CreatedDate").value = FullTodaySerial TempRS.Fields("UserID").value = Session("UserID") TempRS.Fields("BookID").value = CID TempRS.Update TempRS.Close SendAlert = CanReciveAlertMail(GetBookOwner(CID)) If SendAlert <> "0" Then sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "لقد و صلك طلب مقايضة كتاب" & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",SendAlert,"تبادل الكتب",sBody) End if %> <% End IF %> <% CASE lcase("BookAlert") CID= RepAll(Request("CID"),3) SQL= "Update Book_BookProfile Set AlertByUser=AlertByUser+1 Where ID=" & SQLNationalText & "'" & CID & "'" Set TempRS = Conn.Execute(SQL) Call SendMail("do_not_reply@books-exchange.com","Mohammed@badwi.com","BE-Alert",GetBookName(CID)) %> <% CASE lcase("AddToFrind") CID= RepAll(Request("CID"),3) SQL= "SELECT * FROM Book_UserFrind Where FrindID=" & SQLNationalText & "'" & CID & "'" SQL= SQL & " And UserID=" & SQLNationalText & "'" & Session("UserID") & "'" SET TempRS= SERVER.CREATEOBJECT("ADODB.RECORDSET") TempRS.OPEN SQL, CONN, 3 If TempRS.Eof = True Then SQL= "SELECT * FROM Book_UserFrind" SET TempRS= SERVER.CREATEOBJECT("ADODB.RECORDSET") TempRS.OPEN SQL, CONN, 2,3 TempRS.AddNew TempRS.Fields("ID").value = QGUID TempRS.Fields("CreatedDate").value = FullTodaySerial TempRS.Fields("FrindID").value = CID TempRS.Fields("UserID").value = Session("UserID") TempRS.Update TempRS.Close END IF %> <% CASE lcase("AddBookComment") BookID= RepAll(Request("BookID"),3) Comments= RepAll(Request("Comments"),3) Rating= RepAll(Request("Rating"),3) If IsNull(Comments) = True Then %> <% Error ="1" End if If IsNull(Rating) = True Then %> <% Error ="1" End if IF Error <>"1" Then SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_BookRating" RS.OPEN SQL, CONN, 2,3 Rs.AddNew Rs.Fields("ID").value = QGUID Rs.Fields("CreatedDate").value = FullTodaySerial Rs.Fields("BookID").value = BookID Rs.Fields("UserID").value = Session("UserID") Rs.Fields("Comments").value = Comments Rs.Fields("Rating").value = Rating Rs.Update Rs.Close %> <% End IF %> <% CASE lcase("ContactAct") Name= RepAll(Request("ContactUsUserName"),3) Email= RepAll(Request("ContactUsEmaile"),3) Message= RepAll(Request("ContactUsMsg"),3) SecCode= 1'RepAll(Request("SecCode"),3) UserRegCode= 1'RepAll(Request("UserRegCode"),3) IF UserRegCode <> SecCode Then %> <% Error ="1" End IF If IsMail(Email) = False Then %> <% Error ="1" End if If IsNull(Message) = True Then %> <% Error ="1" End if IF Error <>"1" Then SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Books_ContactUs" RS.OPEN SQL, CONN, 2,3 Rs.AddNew Rs.Fields("ID").value = QGUID() Rs.Fields("CreatedDate").value = FullTodaySerial Rs.Fields("Name").value = Name Rs.Fields("Email").value = Email Rs.Fields("Msg").value = Message Rs.Update Rs.Close sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "لقد تم استلام رسالتك بنجاح" & vbcrlf & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) sBody = Name & "
" & Email & "
" & Message Call SendMail("do_not_reply@books-exchange.com","Mohammed@badwi.com","BE-Con",sBody) %> <% End IF %> <% CASE lcase("Password") %> <% CASE lcase("RetrievePassword") Name= RepAll(Request("Name"),3) Email= RepAll(Request("Email"),3) SecCode= RepAll(Request("SecCode"),3) UserRegCode= RepAll(Request("UserRegCode"),3) IF UserRegCode <> SecCode Then %> <% Error ="1" End IF If IsNull(Name) = True And IsNull(Email) = True Then %> <% Error ="1" End if IF IsNull(Email) = false Then If IsMail(Email) = False Then %> <% Error ="1" End if End IF IF Error <>"1" Then IF IsNull(Name) = False Then SQL = "SELECT * FROM Book_UserProfile Where UserName=" & SQLNationalText & "'" & Name & "'" Else SQL = "SELECT * FROM Book_UserProfile Where EmailAddress=" & SQLNationalText & "'" & Email & "'" End IF SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.OPEN SQL, CONN, 3 IF RS.EOF = False Then Email= Rs.Fields("EmailAddress").value sUserName= Rs.Fields("UserName").value sPassword= Rs.Fields("Password").value sBody = "بسم الله الرحمن الرحيم" & vbcrlf & "
" sBody = sBody & "السلام عليكم و رحمة الله و بركاته" & vbcrlf & "
" sBody = sBody & "بناء على طلبك فلقد تم ارسال كلمة السر" & vbcrlf & vbcrlf & "
" sBody = sBody & "=======================================" & vbcrlf & "
" sBody = sBody & "اسم المستخدم:" & vbcrlf & "
" sBody = sBody & sUserName & vbcrlf & "
" sBody = sBody & "كلمة السر:" & vbcrlf & "
" sBody = sBody & sPassword & vbcrlf & "
" sBody = sBody & "=======================================" & vbcrlf & "
" sBody = sBody & "إدارة موقع مقايضة الكتب" & vbcrlf & "
" sBody = sBody & "(لكي لا تبقى المعرفة حبيسة الرفوف)" & vbcrlf & vbcrlf & "
" sBody = sBody & "http://www.books-exchange.com" & vbcrlf & "
" Call SendMail("do_not_reply@books-exchange.com",Email,"تبادل الكتب",sBody) %> <% Else %> <% End IF End IF %> <% CASE lcase("Policy") %> <% CASE lcase("FAQ") %> <% CASE lcase("Help") %> <% CASE lcase("AllUser") %> <% CASE lcase("Profile") UserID=GetUserID(lcase(RepAll(Request("User"),3))) Set RS= Conn.Execute("Update Book_UserProfile Set Visits=Visits+1 Where ID=" & SQLNationalText & "'" & UserID & "'") SQL= "SELECT * FROM Book_UserProfile Where ID=" & SQLNationalText & "'" & UserID & "'" Set RS= SERVER.CreateObject("ADODB.RECORDSET") RS.OPEN SQL, Conn, 3 IF Rs.Eof = True Then %>

---

<% Else %> <% End If %> <% CASE lcase("Book") ID=lcase(RepAll(Request("BookID"),3)) Set RS= Conn.Execute("Update Book_BookProfile Set Visits=Visits+1 Where ID=" & SQLNationalText & "'" & ID & "'") SQL= "SELECT * FROM Book_BookProfile Where ID=" & SQLNationalText & "'" & ID & "'" Set RS= SERVER.CreateObject("ADODB.RECORDSET") RS.OPEN SQL, Conn, 3 IF Rs.Eof = True Then %> <% Else %> <%End IF%> <% CASE lcase("list") Cat = lcase(RepAll(Request("Cat"),1)) %> <% CASE lcase("FindAct") BookName=RepAll(Request("BookName"),3) CategoryID=RepAll(Request("CategoryID"),1) CountryID=RepAll(Request("CountryID"),1) CityID=RepAll(Request("CityID"),1) AuthorName=RepAll(Request("AuthorName"),3) PublisherName=RepAll(Request("PublisherName"),3) BookLanguage=RepAll(Request("BookLanguage"),1) BookISBN=RepAll(Request("BookISBN"),3) PublishYears=RepAll(Request("PublishYears"),3) BookNameTranslation=RepAll(Request("BookNameTranslation"),3) SubSec=RepAll(Request("SubSec"),3) SQL= "Select * From Book_BookProfile Where ID <>N'0'" If IsNull(Trim(BookName)) = False Then SQL=SQL & " And BookName like " & SQLNationalText & "'%" & BookName & "%'" CanFind="1" End IF 'If lcase(SubSec) <> "quick" then If CategoryID <> 0 Then SQL=SQL & " And CategoryID=" & CategoryID CanFind="1" End IF If IsNull(Trim(AuthorName)) = False Then SQL=SQL & " And AuthorName Like " & SQLNationalText & "'%" & AuthorName & "%'" CanFind="1" End IF If IsNull(Trim(PublisherName)) = False Then SQL=SQL & " And PublisherName Like " & SQLNationalText & "'%" & PublisherName & "%'" CanFind="1" End IF If BookLanguage<>"0" Then SQL=SQL & " And BookLanguage=" & SQLNationalText & "'" & BookLanguage & "'" CanFind="1" End IF If IsNull(Trim(BookISBN)) = False Then SQL=SQL & " And BookISBN=" & SQLNationalText & "'" & BookISBN & "'" CanFind="1" End IF If IsNull(Trim(PublishYears)) = False Then SQL=SQL & " And PublishYears=" & SQLNationalText & "'" & PublishYears & "'" CanFind="1" End IF If IsNull(Trim(BookNameTranslation)) = False Then SQL=SQL & " And BookNameTranslation Like " & SQLNationalText & "'%" & BookNameTranslation & "%'" CanFind="1" End IF If CountryID<> 0 Then SQL=SQL & " And UserID In (Select ID From Book_UserProfile Where CountryID=" & CountryID & ")" CanFind="1" End IF If CityID <> 0 Then SQL=SQL & " And UserID In (Select ID From Book_UserProfile Where CityID=" & CityID & ")" CanFind="1" End IF 'End If %> <%'=SQL%> <% If CanFind <> "1" Then %>

---

<% Else Set TempRs= SERVER.CreateObject("ADODB.RECORDSET") TempRs.OPEN SQL,conn,3 IF TempRS.Eof = True Then %>

---

<% Else TempRS.PAGESIZE= 10 page= Clng(Page) IF Page > TempRS.PAGECOUNT Then Page= TempRS.PAGECOUNT IF Page= "" Then page= 1 IF Page < 1 Then page= 1 TempRS.ABSOLUTEPAGE= Page For i = 1 to TempRS.PAGESIZE %>

اسم الكتاب	البلد	المدينة
"> <%=TempRS.Fields("BookName").value%>	"> <%=GetUserCountry(TempRS.Fields("UserID").value)%>	"> <%=GetUserCity(TempRS.Fields("UserID").value)%>
اسم المؤلف	نوع العرض
"> <%=TempRS.Fields("AuthorName").value%>	<% SELECT CASE TempRS.Fields("LibraryID").value case 1 Response.Write("كتاب معروض") case 2 Response.Write("كتاب مطلوب") case 3 Response.Write("كتاب تحت القراءة") End select %>
<% sUName = GetUserName(TempRS.Fields("UserID").value) %> بواسطة: [ <%="" & sUName & ""%> ] في: [ <%=GetFullDate(TempRS.Fields("CreatedDate").value,0)%> ]

<% TempRS.MoveNext If TempRS.Eof Then Exit For Next if Page=< 1 then PrevPage= 1 Else PrevPage= Page-1 end if if Page=>TempRS.Pagecount then NextPage= TempRS.Pagecount else NextPage= Page+1 end if BookFindParam= "&BookName=" & BookName & "&CategoryID=" & CategoryID & "&CountryID=" BookFindParam = BookFindParam & CountryID & "&CityID=" & CityID & "&AuthorName=" & AuthorName BookFindParam = BookFindParam & "&PublisherName=" & PublisherName & "&BookLanguage=" & BookLanguage BookFindParam = BookFindParam & "&BookISBN=" & BookISBN & "&PublishYears=" & PublishYears BookFindParam = BookFindParam & "&BookNameTranslation=" & BookNameTranslation %>

<% SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT * FROM Book_Tips Where CreatedDate in (select max(CreatedDate) from Book_Tips)" RS.OPEN SQL, CONN, 3 If RS.Eof = False Then %>

<%=Rs.Fields("Contents").Value%>

<% End If %>

<% SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL= "SELECT TOP 5 * FROM Book_Contents Where CategoryID=1 Order By CreatedDate Desc" RS.OPEN SQL, CONN, 3 If RS.Eof = False Then for i = 1 to 5 %>

<%=RS.Fields("Subject").value%>

<%=RS.Fields("Brief").value%> <% IF RS.Fields("OutsideLinks").value <> "0" Then %> " target="<%=RS.Fields("TargetLink").value%>"> اضغط هنا للمزيد... <% Else %> " target="<%=RS.Fields("TargetLink").value%>"> اضغط هنا للمزيد... <% End If %>

<% rs.MoveNext If rs.Eof Then Exit for next End if %>