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..
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...
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