طلب مساعدة عاجلة من الممبرمجين المحترفين في لغة Asp

<%@ language= vbscript codepage="1256" %>

<%

dim conn

dim ado

conn ="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("DB\Citzen_DB.mdb")

set ado=Server.CreateObject("ADODB.Connection")

ado.ConnectionString = conn

if ado.state=1 then ado.close

ado.Open

%>

<html>

<head>

<title>الصفحة الرئيسية </title>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

<meta http-equiv="Content-Language" content="ar-om">

<meta name="Microsoft Theme" content="mstheme3099 1011">

<meta name="Microsoft Border" content="trb, default">

</head>

<body topmargin="0" leftmargin="0" >

<table border="2" align="center" dir="rtl" width="794" height="30">

<tr>

<td colspan="3">

<b>

<font size="4">

<marquee direction="right">مرحبا بكم في نظام بيانات المواطنين</marquee>

</font>

</b>

</td>

</tr>

<tr>

<td width="120"></td>

<td height="32">

<%

'******************

' First Select(Regon)

'******************

dim v_Re_id

v_Re_id =Request.Form("Re_List")

dim rs

set rs = Server.CreateObject("ADODB.Recordset")

rs.open "select * from Regon Order by Re_id ",ado,1,3

if v_Re_id ="" then

v_Re_id=rs("Re_id")

end if

'**********************

' Second select(Wilaya)

'**********************

dim v_Wilaya_ID

v_Wilaya_ID =Request.Form("Wilaya_List")

dim rs2

set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.open "select * from Wilaya where Re_id=" & v_Re_id,ado,1,3

if v_Wilaya_ID ="" then

v_Wilaya_ID=rs2("Wilaya_ID")

end if

'**************************

' Third select(Village)

'**************************

dim v_Village_id

v_Village_id =Request.Form("Village_List")

dim rs3

set rs3 = Server.CreateObject("ADODB.Recordset")

rs3.open "select * from Village where Wilaya_id =" & v_Wilaya_id ,ado,1,3

if v_Village_id ="" then

v_Village_id = rs3("Village_id")

end if

'************************

' Forth select(Citzen )

'************************

dim rs4

set rs4 = Server.CreateObject("ADODB.Recordset")

rs4.open "select * from Citzen where Village_id= " & v_Village_id ,ado,1,3

%>

<form name="Main_form" method="post" action="Citzen_Details.asp" >

<br>

<p align="center" dir="ltr">

<font dir="rtl" face="Arabic Transparent" size="4">

<span style="background-color: #FFCC99">

<select size="1" name="Re_List" style="font-weight: 700" >

<option value="#"> <-- لطفاً اختر المحافظة/المنطقة--> </option>

<%

if rs.bof=False then rs.movefirst

Do until rs.eof

%>

<option value="<%=rs("Re_id")%>"><%=rs("Re_Name")%></option>

<%rs.movenext

loop

rs.close%>

</select>

</span></font></p>

<hr>

<p align="center" dir="ltr">

<font dir="rtl" face="Arabic Transparent" size="4">

<span style="background-color: #FFCC99">

<select size="1" name="Wilaya_List" style="font-weight: 700" >

<option value="#"> <-- لطفاً اختر الولاية --> </option>

<%

if rs2.bof=False then rs2.movefirst

Do until rs2.eof%>

<option value="<%=rs2("Wilaya_id")%>"><%=rs2("Wilaya_Name")%></option>

<%rs2.movenext

loop

rs2.close

%>

</select>

</span></font></p>

<hr>

<p align="center" dir="ltr">

<font dir="rtl" face="Arabic Transparent" size="4">

<span style="background-color: #FFCC99">

<select size="1" name="Village_List" style="font-weight: 700" >

<option value="#"> <-- لطفاً اختر القرية--> </option>

<%

if rs3.bof=False then rs3.movefirst

Do until rs3.eof

%>

<option value="<%=rs3("Village_id")%>">

<%

=rs3("Village_Name")

%>

</option>

<%

rs3.movenext

loop

rs3.close

%>

</select>

</span></font></p>

<hr>

<p align="center" dir="ltr">

<font dir="rtl" face="Arabic Transparent" size="4">

<span style="background-color: #FFCC99">

<select size="1" name="Citzen_List" style="font-weight: 700" >

<option value="#"> <-- لطفاً اختر رقم البطاقة الشخصية ثم اضغط على زر إبحث--> </option>

<%

if rs4.bof=False then rs4.movefirst

Do until rs4.eof

%>

<option value="<%=rs4("Citzen_id") %>"><%=rs4("Citzen_IDCard")%></option>

<%

rs4.movenext

loop

rs4.close

%>

</select>

</span></font><br>

</p>

<p align="center">

<input type="submit" name="find" value="إبحث" size="150" style="font-weight: 700" >

</p>

</form>

</td>

<td height="32" width="130"></td>

</tr>

</table>

<%

ado.Close

%>

</body>

</html>