Populate 2 Select Lists From Access w/Multiple Record Sets:
Code:
Place above the <HTML> tag:
Highlight
<%Dim conn,rs,strconn,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 QUERY OR TABLENAME" rs.open strsql, conn, 2, 2 strsql2 = "select * from QUERY OR TABLENAME" rs2.open strsql2, conn, 2, 2 %>
Place in the <BODY>:
Highlight
<select name="FIELD NAME1"> <%Do While Not rs.EOF%> <option value="<%=rs("FIELD NAME1")%>"><%=rs("FIELD NAME1")%></option> <%rs.movenext%> <%loop%> </select> <br><br> <select name="FIELD NAME2"> <%rs2.Do While Not rs.EOF%> <option value="<%=rs2("FIELD NAME2")%>"><%=rs2("FIELD NAME2")%></option> <%rs2.movenext%> <%loop%>
Place below the </HTML> tag:
Highlight
<% rs.close rs2.close conn.close set rs = nothing set rs2 = nothing set conn = nothing %>