السلام عليكم
ماهو الخطأ في هذا الكود
عند فتح الصفحة اخر حقل لا يظهر وعند اختيار الدولة
يتم تحميل المدن الخاصة بالدولة المختارة ولاكن حقل الدولة لا يظل على الاختيار
مرفق الكود مع قاعدة البيانات
فزعتكم شباب
سلام
كود:<%@language=VBScript CodePage="1256"%> <html> <% Dim ConnectionString Dim AR ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & Server.MapPath("data.mdb") Set AR=Server.CreateObject("ADODB.Connection") AR.ConnectionString =ConnectionString AR.Open %> <% ip_address=(Request.ServerVariables("remote_addr")) country = request.form("country") info =request.form("info") City = request.form("City") %> <% Function AddF() addSQL= " insert into info (ip_address,info,City,country) values ('"&ip_address&"','"&City&"','"&country&"','"&info&"')" AR.execute(addSQL) %> <head> </head> <body> <p><font face="Times New Roman" size="3">Thank you...</font></p> <% End Function %> <% If info="" then response.write "خطأ .. يجب اكمال جميع البيانات في الحقول" Else AddF() End If %> <p align="center"><b><font face="Times New Roman" size="7" color="#C11111">add info </font></b></p> <form name=frmAdd method="POST" action="citycountry.asp"> <p><b>Country </b><b>: </b> <% Set objRS = AR.Execute("Select * FROM country order by ID") %> <SELECT NAME="country" SIZE="1" ONCHANGE=frmAdd.submit()> <% ' Continue until we get to the end of the recordset. Do Until objRS.EOF ' For each record we create a option tag and set it's value to the country %> <option value= <%=objRS("ID")%>><%=objRS("country")%></OPTION> <% ' Get next record objRS.MoveNext Loop %> <% objRS.Close %> </SELECT> </p> <p><b>City </b><b>: </b> <SELECT NAME="City" SIZE="1"> <% Set objRs = AR.Execute("Select * FROM City where Country = " & Request.Form ("country") & " order by ID") %> <% ' Continue until we get to the end of the recordset. Do Until objRs.EOF ' For each record we create a option tag and set it's value to the country %> <OPTION value= <%=objRs("ID")%>><%=objRs("City")%></OPTION> <% ' Get next record objRs.MoveNext Loop %> </SELECT> </p> <p><b>Info </b><b>:</b></p> <p><b> <textarea rows="11" name="info" cols="78"></textarea></b></p> <p><input type="submit" value="Add" name="add"></p> </form> <% ' Close Data Access Objects and free DB variables objRS.Close Set objRS = Nothing AR.Close Set AR = Nothing %> </body> </html>
