Selecionar Dados No Access

[Guest Josiane]

olá pessoal, como faço para que os dados do banco apareça numa caixa suspensa,

tipo, tenho um produto, que possui o campo "cor", quero q apareça na caixa,,mas não to conseguindo...

[.Andreia.]

Caixa suspensa seria um select? Posta o codigo, q você disse q não tá conseguindo

[Guest Guest]

<%

Dim obj, RS, Str,objRecordset

Set obj = Server.CreateObject("ADODB.Connection")

obj.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Banco_Site.mdb")

if request.queryString("valor")= 1 then

Str = "Select * from femininaAD "

end if

if request.queryString("valor")= 2 then

Str = "Select * from masculinoAD "

end if

if request.queryString("valor")= 3 then

Str = "Select * from femininaIF "

end if

if request.queryString("valor")= 4 then

Str = "Select * from caBaADInf "

end if

if request.queryString("valor")= 5 then

Str = "Select * from masculinoIF "

end if

if request.queryString("valor")= 6 then

Str = "Select * from sutiã "

end if

Set Rs = obj.Execute(Str)

%>

.

.

.

<%

while not RS.eof

%>

<table border="2" cellspacing="1" width="615" id="AutoNumber1" height="1">

<tr>

<td width="191" height="1">

<span style="background-color: #FFFFFF">

<img border="0" src="http://localhost/fotos/<%=RS("imagem")%>" width="237" height="195"></span></td>

<td width="424" height="1">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="119">

<tr>

<td width="100%" height="19"><b>Código:</b><%=RS("cod_prod")%>&nbsp;</td>

</tr>

<tr>

<td width="100%" height="19"><b>Descrição</b>: <%=RS("desc_prod")%>&nbsp;</td> </tr>

<tr>

<td width="100%" height="19"><b>Preço Varejo:</b><%=RS("precovarejo")%><b> Preço Atacado:</b><%=RS("precoatacado")%></td> </tr>

<tr>

<td width="100%" height="19"><b>Cores disponíveis:

<select size="1" name="cor"></select><tr> <td width="100%" height="19"><b>Tamanho: </b>

<select size="1" name="tamanho">

<option>p</option>

<option>m</option>

<option selected>g</option>

</select></td>

</tr>

<tr>

<td width="100%" height="19">

<p>

<input type="button" value="Qtd adicionada: " name="B3">:

<input type="text" name="T1" size="20"></p>

</td>

</tr>

<tr>

<td width="100%" bgcolor="#F5F5F5" height="19">&nbsp;</td>

</tr>

<tr>

<td width="100%" bgcolor="#CC0000" height="19"><font color="#FFFFFF"><b>OBS: "Os preços

no atacado são acima de 10 peças"</b> </font> </td>

</tr>

<tr>

<td width="100%" height="7">

<p align="left >listar produtos inclusos<a href="pedido.asp">comprar</a> </td>

</tr>

</table>

</tr>

<tr>

<td width="191" bgcolor="#CDE8F8" height="1">

<p align="center">

</a><font size="1" face="Verdana" color="#3A9CCD">

<a href="http://localhost/detalhe.asp?valor=<%=RS("controle")%>">detalhes</a></font></td>

<td width="424" bgcolor="#CDE8F8" height="1">

<p align="right"><font color="#0000FF"><a href="produto.asp">

<font color="#3A9CCD">voltar</font></a></font></td>

</tr>

</table>

<%

RS.movenext

wend

%>

[Guest Josiane]

Na realidade to tentando criar um site de vendas com um catalogo de produtos..mas estou tendo dificuldades,,você sabe onde encontro algum tutorial q fale + sobre o assunto,,já fiz o catalogo, falta o cliente efetivar a compra atravez do catalogo...não sei como dar continuidade