كيف اعمل هذا الكود بلغة ASP

لنفرض أنك و ضعت فورم في صفحة الاستعلام عند و ضع رقم الموظف سينقلك إلى صفحة ASP لعرض النتيجة. و بالتالي في صفحة العرض هذه سيقرأ الـ request form

وسيبحث في البيانات عن السجل (الـ record) حيث رقم الموظف يساوي قيمة الـ request form هذه

في صفحة العرض سيكون:

'تستطيع تغيير الأسماء هنا حسب الذي عندك
' adoCon is the Connection String to database
strsql = "SELECT * FROM [اسم الجدول] WHERE [رقم الموظف]=" & request.form("اسم الحق في صفحة الاستعلام")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, adoCon

'إذا لايوجد سجل
If rs.EOF Then

'انهي كل شئ و اكتب الخطأ
  Response.Clear
  Response.Write "لا يوجد هذا الموظف"

' وإلا
Else

  rs.MoveFirst

End If

'استخراج اسم الموظف من السجل الموجود
 NameOftheEmployee = rs("EmployeeName")

'إغلاق الاتصال
 rs.Close
 Set rs = Nothing

و تستطيع استخدام التالي بدلاً من استخدام في الأعلى:

Response.Clear

Response.Write "لا يوجد هذا الموظف"

 Response.redirect "otherpagename.asp"

أولا شكرا لك يا أخ محمد على مشاركتك

لكن الكود أعطني خطأ في EOF ، حيث أني لدي كود طويل جداً حيث أقوم بعرض نتائج الاستعلام في جداول كثيره ولم أعرف أين أضع جلمة ELSE

وشكراً

طيب جرب التالي:

في أعلى الكود (في رأس الصفحة) ضع الكود التالي بعد فتح الـ ADODB.Recordset

strsql = "SELECT * FROM [اسم الجدول] WHERE [رقم الموظف]=" & request.form("اسم الحقل في صفحة الاستعلام")
Set rs = adoCon.Execute(strsql)
If rs.EOF Then
Response.redirect "otherpagename.asp"
End if

سيبحث في الداتابيز عن رقم الموظف قبل كل شئ، إن لم يجده سيحولك إلى صفحة الخطأ التي تعرفها كيفما تشاء: otherpagename.asp

شكرا لك جزيلاً يا أخ محمد لقد نجح الكود

أشكرك جزيل الشكر

على الرحب و السعة أخي

و بالتوفيق