dim aid,bid,cid,did
aid=request("aid")
bid=reqiest("bid")
cid=request("cid")
did=request("did")
'a:
sql="select aid,aname from a where id='" & aid & "'"
rs.open sql,conn,1,1
if not rs.eof
response.write "<select name='aid' onchange='javascript:form1.submit();'>"
do while not rs.eof
response.write "<option value='" & rs("aid") & "'>" & rs("aname") & "</option>"
rs.movenext
loop
response.write "</select>"
end if
rs.close
'b:
sql="select bid,bname from b where id='" & bid & "'"
rs.open sql,conn,1,1
if not rs.eof
response.write "<select name='bid' onchange='javascript:form1.submit();'>"
do while not rs.eof
response.write "<option value='" & rs("bid") & "'>" & rs("bname") & "</option>"
rs.movenext
loop
response.write "</select>"
end if
rs.close