实在不好意思，请朋友帮忙，按愿望给写段代码
    有个access数据库。数据库文件名是db1.mdb，里面有个表，表名是data。表中有四个字段：id、姓名、班级、学校。见下图。
 
    求助能人帮我写段asp下拉框代码，实现下列功能：如下图

    1、点击选择学校下拉框：出现学校字段中不重复A小学、B小学、C小学……
    2、选择学校下拉框中的A小学，在选择班级下拉框出现班级字段中A小学的所有不重复所有班级的选项。
    3、选择班级下拉框中的一个班级，在选择学生的下拉框中出现姓名字段中该班级的所有学生姓名选项。
    我是个刚刚接触asp者，实在没能力实现上面程序，请会的朋友帮忙，先表谢意。

------解决方案--------------------
写了一个，本地测试通过的，把下面代码保存到同一个页面，你确定下数据库路径就可以直接用了：
<%
dim conn,db 
dim connstr 
db="./db1.mdb" '自己指定下路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 

set conn=server.createobject("ADODB.CONNECTION") 
If Err Then
    err.Clear
    Set Conn = Nothing
response.Write db
    Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
    Response.End
Else 
conn.open connstr 
End If

school = Request.form("school")
banji = Request.form("banji")
xingming = Request.form("xingming")

Set rs = server.CreateObject("adodb.recordset")
%>

<form action="" method="POST">
<select name="school" onchange="javascript:submit()">
<option value="">请选择学校</option>
<%
sql = "Select distinct(学校) from data"
rs.open sql,conn,1,1
Do While Not rs.eof 
%>
<option value="<%=rs("学校")%>" <% if rs("学校")=school then response.write "selected"%>><%=rs("学校")%></option>
<%
rs.movenext
Loop 
rs.close
%>
</select>
<select name="banji" onchange="javascript:submit()">
<option value="">请选择班级</option>
<%
sql = "Select distinct(班级) from data where 学校='"& school &"'"
rs.open sql,conn,1,1
Do While Not rs.eof 
%>
<option value="<%=rs("班级")%>" <% if rs("班级")=banji then response.write "selected"%>><%=rs("班级")%></option>
<%
rs.movenext
Loop 
rs.close
%>
</select>
<select name="xingming" onchange="javascript:submit()">
<option value="">请选择姓名</option>
<%
sql = "Select 姓名 from data where 学校='"&&n