Preenchendo um combobox (select) com o Asp

Postado por em 23/09/2011 - Visitas: 2729



Este codigo permite preencher uma combobox através do acesso á um banco de dados access, o banco de dados tem uma tabela chamada "Marca" e com os campos "ma_codi e ma_nome" que são respectivamente codigo e nome da marca do veiculo.






< meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
< body>
< h2>Preenchendo uma combo com programação
< br />
< br />
< select name="cmb_marca">
<%
marca = request("marca")
´ cria o objeto de acesso a dados
set conexao = createobject("AdoDb.connection")
´ abre a conexao
conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("asp2.mdb")
set rs = conexao.execute("select * from marca order by ma_nome")
´
if rs.eof then
response.write("sem produtos")
else
response.write("")
do while not rs.eof

response.write("< option value=´" & rs("ma_codi") & "´>" & rs("ma_nome") & "< /option>" )
rs.movenext

loop
end if

%>
< /select>
< /body>




Gostou ? Compartilhe