<html>
<body>
<form name="form1" method="post" action="submit.asp">
<select name="select">
<%
set conn=Server.CreateObject("
conn.Provider="Microsoft.J
conn.Open(Server.Mappath("
set rs = Server.CreateObject("ADODB
rs.Open "Select * from Customers", conn
do until rs.EOF
%>
<option value="<%=rs("id")%>"><%=r
<%
rs.MoveNext
loop
rs.close
%>
</select>
<select name="select2">
<%
set rs2 = Server.CreateObject("ADODB
rs2.Open "Select * from CustAnother", conn
do until rs2.EOF
%>
<option value="<%=rs2("id")%>"><%=
<%
rs2.MoveNext
loop
rs2.close
conn.close
%>
</select>
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
Main Topics
Browse All Topics
by: HurklePosted on 2003-06-12 at 13:55:06ID: 8712615
This assumes you already know how to correctly set up a data connection, this example uses obj_conn
dim sql_tbl_1
dim rst_tbl_1
dim arr_tbl_1
dim sql_tbl_2
dim rst_tbl_2
dim arr_tbl_2
dim a
set rst_tbl_1 = server.createObject("ADODB
set rst_tbl_2 = server.createObject("ADODB
sql_tbl_1 = "SELECT fld_name_you_want FROM tbl_your_table1 "
sql_tbl_2 = "SELECT fld_name_you_want FROM tbl_your_table2 "
rst_tbl_1.open sql_tbl_1,obj_conn
arr_tbl_1 = rst_tbl_1.getrows
rst_tbl_1.close
set rst_tbl_1 = Nothing
rst_tbl_2.open sql_tbl_2, obj_conn
arr_tbl_2 = rst_tbl_2.getrows
rst_tbl_2.close
set rst_tbl_2 = Nothing
response.write "<INPUT type = 'SELECT' name = 'sel_name_you_choose_1'>"
for a = 0 to ubound(arr_tbl_1,2)
response.write "<OPTION value = ' " & arr_tbl_1(0,a) & " '>" & arr_tbl_1(0,a) & "</OPTION>"
next 'a
response.write "</SELECT>"
response.write "<INPUT type = 'SELECT' name = 'sel_name_you_choose_2'>"
for a = 0 to ubound(arr_tbl_2,2)
response.write "<OPTION value = ' " & arr_tbl_2(0,a) & " '>" & arr_tbl_2(0,a) & "</OPTION>"
next 'a
response.write "</SELECT>"
Note - when I fill a select box, I usually want to things for each option - a lable, and a value.
To do this, change your sql to ..
sql_tbl_1 = "SELECT fld_for_value, fld_for_label FROM tbl_your_table1 "
and the string to build the option to..
response.write "<OPTION value = ' " & arr_tbl_2(0,a) & " '>"
response.write arr_tbl(1,a) & "</OPTION>"
Hope that makes sense, let me know if I may clarify in any way.
This example uses getrows instead of stepping through a recordset, as it's cleaner and faster.