Asp classic 试图在asp中显示特定access数据库记录集中的其他字段

我是ASP新手，有一个表单，允许用户从access数据库填充的下拉框中选择除法代码。一旦他们选择了部门，我希望能够从同一记录集中收集其他字段（姓名、地址、城市、州、邮政编码），并将这些字段传递到另一个asp页面。我能够将所选代码写入数据库，但不知道如何从表中的特定行收集其他字段。我的代码是

<%

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("data/jobdata.mdb")
objconn.Open

Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM EagleLocations "
objRs.Open strSQL, objconn
Response.Write "<select name=DCode><option value='' selected></option>"
Do While Not objRS.EOF 

Response.Write "<option value='" & objrs("DCode") &"'>"& objRs("DCity") &"</option>"
objRS.MoveNext
Loop
Response.Write "</select>"
objRs.Close
objconn.Close

%>

如何让页面同时从所选的DCode获取DName、DADRESS1、DADRESS2、DCity、DState和DZIP字段

---

这是我的接收页面代码，我试图从上一页的表单中获取数据，以写入其他数据库：

<%
Dim objconn,strSQL,objRS

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("data/jobdata.mdb")

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL= "SELECT * FROM EagleLocations where Dcode =" & Request.Form("DCode")
objRs.Open strSQL, objconn

    DIM strjobstart, strpm, strdcode, strdname, strcustname, strjobsite, strjobsubject, strworkmancompcode
    strjobstart = Request.Form("jobstart")
    strpmcode = Request.Form("pmcode")
    strdcode = Request.Form("dcode")
    strdname = Request.Form("dname")
    strcustname = Request.Form("listcustname")
    strjobsite = Request.Form("listjobsite")
    strjobsubject = Request.Form("jobsubject")
    strworkmancompcode = Request.Form("workmancompcode")

    IF strjobstart <> "" AND strpmcode <> "" AND strdcode <> "" AND strcustname <> "" AND strjobsite <> "" AND strjobsubject <> "" AND strworkmancompcode <> "" THEN

    ' Process the form as you like here
    ' For example enter form to your database or send it via email

jobstart = request.form("jobstart")
pmcode = request.form("pmcode")
dcode = request.form("dcode")
dname = request.form("dname")
custname = request.form("listcustname")
jobsite = request.form("listjobsite")
jobsubject = request.form("jobsubject")
workmancompcode = request.form("workmancompcode")

Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("data/jobcode.mdb")

strSql = "INSERT INTO JobCodeTemp (jobstart,pmcode,dcode,dname,custname,jobsite,jobsubject,workmancompcode) values( '" & jobstart & "' , '" & pmcode & "' , '" & dcode & "' , '" & dname & "' , '" & custname & "' , '" & jobsite & "' , '" & jobsubject & "' , '" & workmancompcode & "' )"

Cnn.Execute(strSql)
Cnn.Close
Set Cnn = Nothing


    'Redirect to the index.asp page
Response.Redirect "display.asp"

---

你能澄清一些事情吗。1.您需要在此页上选择这些字段还是只需要在下一页上选择它们。2.如果您在当前页面上需要它们：JQuery或javascript是否可以用于完成此任务。您是否可以在接收页面上创建另一个记录集，使用类似于
strSQL=“SELECT*FROM EagleLocations where Dcode=”&Request.Form（“Dcode”）的查询
我需要下一页这些附加字段中的信息，只是因为我正在将该页中的信息写入另一个数据库，但我对JQuery或javascript也一无所知。如果我更改了流程，我会在接收页上创建记录集，并使其正常工作。这很可能意味着我需要为用户的整个流程添加另一个步骤。这是我的接收页面代码：