احتاج مساعده في كود asp

<%

Dim rsdoctor, sSQL, db3con

rsdoctor هو اسم الجدول

If Not Trim(request.form("txtSearch")) = "" Then

set db3con = server.createobject("adodb.connection")

constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("./db/college.mdb")& ";"

قاعدة البيانات هي college

db3con.open constr

Set rsdoctor = Server.CreateObject("ADODB.Recordset")

sSearch = request.form("txtSearch")

sSQL = "SELECT education.docname,education.cv FROM dept,education where dept.dept_no=education.dept_no and dept.dept_name = '" & sSearch & "'"

rsdoctor.open sSQL, db3con ,,3

if rsdoctor.eof then

response.write "لا يوجد هيئة تعليمية "

response.write vbcrlf

else

'response.write "<table width='75%' border='1' align='center'>"

response.write vbcrlf

rsdoctor.movefirst()

while not rsdoctor.eof %>

<div align="left">

<table border="0" width="100%" id="table13" style="border-collapse: collapse; font-size: 12pt; font-weight: bold; font-family: Simplified Arabic" bgcolor="#FFFFFF" cellpadding="0" dir="ltr">

<tr>

<td width="80%" align="right">

<font color="#000000" size="4"><%response.write(rsdoctor("docname"))%> </font></td>

<td width="20%" dir="rtl" align="right">

<span lang="ar-sa">

<font size="4" color="#0000FF" face="Simplified Arabic">

الاسم:</font></span></td></tr><tr>

<td width="80%" align="right">

<font color="#000000" size="4"><%response.write(rsdoctor("cv"))%> </font></td>

<td width="20%" dir="rtl" align="right">

<font size="4" color="#0000FF" face="Simplified Arabic">

<span lang="ar-sa">السيرة الذاتية:</span></font></td></tr>

<tr>

<td width="100%" align="right" colspan="2" bgcolor="#C0C0C0">

<font color="#000000" size="4"> </font></td>

</tr></table>

<%

rsdoctor.movenext()

Wend

'response.write "</table>" & vbcrlf

end if

else

response.write "محاولة فاشلة ،الرجاء الإدخال مرة أخرى.<br>"

response.write vbcrlf

طباعة فشل الرجاء عمل محاولة أخرى

End If%>

خاصة بـ If Not Trim(request.form("txtSearch")) = "" Then]