实在不好意思，请朋友帮忙，按愿望给写段代码
有个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 学校='"& school &"' and 班级='" & banji & "'"
rs.open sql,conn,1,1
Do While Not rs.eof
%>
<option value="<%=rs("姓名")%>" <% if rs("姓名")=xingming then response.write "selected"%>><%=rs("姓名")%></option>
<%
rs.movenext
Loop
rs.close
%>
</select>
</form>
</div>
