Marcão

Opa, Obrigado pela ajuda de todo mundo aí. Eu consegui fazer o menu select (bem +/-). Agora o Problema é que essa variavel "nome_tamanho" que está no meu select não responde, ou seja, quando eu clico no produto "G" ele não funciona... :( 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 If RS_Tamanhos.Eof Then Else %> <select name="nome_tamanho"> <option value=""></option> <% 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 %> <option value="<%=RS_Tamanhos("codigo_tamanho")%>" <%If I = 0 Then response.write "checked" End if%>><%=RS_Tamanhos("nome_tamanho")%></option><%End if Next End If RS_Tamanhos.MoveNext Wend %></select> <% End If 'Fecha e libera da memória o objeto de Recordset RS_Tamanhos.Close Set RS_Tamanhos = Nothing End Function

Desculpe-me pelo post desnecessário.. Obrigado pela sua ajuda, mas o codigo que você passou não deu certo... :(

Opa.. nada ainda.. :( Microsoft VBScript compilation error '800a0400' Expected statement /funcoes/funcoes.asp, line 2661 End Function ^

Obrigado Andreia pela sua ajuda, porém essa alteração me da o seguinte erro Microsoft VBScript compilation error '800a0400' Expected statement /funcoes/funcoes.asp, line 2662 Wend ^

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