Combine Two Record Sets from Access in One Select List:

This example is for an update page.

Code:

update.asp

<%
dim conn, rs, rs2, strID, strconn, strsql, strsql2, DBQValue
	set conn = server.createobject("adodb.connection")
	set rs = server.createobject("adodb.recordset")
	set rs2 = server.createobject("adodb.recordset")
	conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & server.mappath("DATABASE NAME.mdb")

strsql = "select * from DATABASE OR QUERY NAME where"
	strsql = strsql & " ID = " 		&_ 
	Request.Querystring("ID")
	rs.open strsql, conn, 2, 2

strsql2 = "select * from DATABASE OR QUERY NAME where"
	strsql2 = strsql2 & " ID = " 		&_ 
	Request.Querystring("ID")
	rs2.open strsql2, conn, 2, 2

end if%>

</head>
<body>

<% 
rs.movefirst
Do While NOT rs.EOF 
%>

<table>

<tr>
<td valign=middle class=font><b>Division:</b></td>
<td>
<select name="Division">

<%Do While Not rs2.EOF%>
	<option value="<%=rs2("Division_ID")%>" 
	<%if rs2("Division_ID") = rs("Division_ID") then%>
		Selected
	<%end if%>
	><%=rs2("Division_Name")%></option>
<%rs2.movenext%>
<%loop%>

</select>
</td>
</tr>

</table>

</form>

<% 
rs.movenext
Loop 
%>

</body>
</html>

<%    
rs.close
rs2.close
conn.close 
set rs = nothing
set rs2 = nothing
set conn = nothing
%>