Array
(
)

Ajuda Urgente Com Menu Select

Underklow
   - 13 mai 2007

Olá a todos,

Bom, eu sou totalmente iniciante em ASP e estou montando um comercio eletronico para os negocios da familia, porém eu me deparei com um problema. Eu gostaria de alterar um botao de radio para um menu select. Se alguém puder me ajudar eu ficaria muito grato, pois já tentei varias formas e ainda não consegui... :(

aqui vai o codigo..

#Código

Function Lista_Tamanhos(tamanhos)
´Cria objeto de consulta a tabela de tamanhos
Set RS_Tamanhos = Server.CreateObject("ADODB.Recordset")
RS_Tamanhos.CursorLocation = 3
RS_Tamanhos.CursorType = 0
RS_Tamanhos.LockType = 3
RS_Tamanhos.Open "SELECT codigo_tamanho, nome_tamanho FROM Tamanhos ORDER BY nome_tamanho", Conexao
Coluna = 0

If RS_Tamanhos.Eof Then

Else
While Not RS_Tamanhos.EOF

If tamanhos <> "" Then 
Vetor = Split(tamanhos, ",") 
For I = 0 To Ubound(Vetor) 
If CDbl(Vetor(I)) = CDbl(RS_Tamanhos("codigo_tamanho")) Then
¬><input type="radio" name="nome_tamanho" value="<¬=RS_Tamanhos("codigo_tamanho")¬>" <¬If I = 0 Then response.write "checked" End if¬>><¬=RS_Tamanhos("nome_tamanho")¬><img src="images/regua1x1.gif" height="3" width="5"><¬End if
Next 
End If 

´Monta o numero de produtos por linha
Coluna=Coluna+1
If Coluna >=4 Then
Coluna=0
¬>
<br>
<¬  End if
RS_Tamanhos.MoveNext
Wend

End If
   ´Fecha e libera da memória o objeto de Recordset
RS_Tamanhos.Close
Set RS_Tamanhos = Nothing

End Function


só pegando o barco, quem puder me ajudar com essa parte do codigo eu tambem ficaria agradecido :) . Aqui eu tenho o mesmo problema, eu não estou conseguindo transforma-lo em um menu select...

#Código
Function Pega_Cor(fctCodigo_cor)

´Cria objeto de consulta a tabela de Cores
Set RS_Cor = Server.CreateObject("ADODB.Recordset")
RS_Cor.CursorLocation = 3
RS_Cor.CursorType = 0
RS_Cor.LockType = 3

If fctCodigo_cor <> "" Then
RS_Cor.Open "SELECT url_imagem, nome_cor FROM Cores WHERE codigo_cor = "&fctCodigo_cor&"", Conexao
Else
RS_Cor.Open "SELECT url_imagem, nome_cor FROM Cores", Conexao
End If

If Not RS_Cor.Eof Then
If RS_Cor("url_imagem") <> "" Then
Pega_Cor = "<img src="&RS_Cor("url_imagem")&" border=´1´ bordercolor=´#000000´>"
Else
Pega_Cor = RS_Cor("nome_cor")
End if

End If
´Fecha e libera da memória o objeto de Recordset
RS_Cor.Close
Set RS_Cor = Nothing

End Function