Populate 2 Select Lists From Access:
Code:
Place above the <HTML> tag:
Highlight
<%Dim conn,rs,strconn,DBQValue set conn = server.createobject("adodb.connection") set rs = 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 %>
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"> <%rs.movefirst Do While Not rs.EOF%> <option value="<%=rs("FIELD NAME2")%>"><%=rs("FIELD NAME2")%></option> <%rs.movenext%> <%loop%>
Place below the </HTML> tag:
Highlight
<% rs.close conn.close set rs = nothing set conn = nothing %>