Ajuda Urgente Com Menu Select

[Marcão]

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

[.Andreia.]

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
%>
<select name="nome_tamanho">
<%
            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")%>"><%=RS_Tamanhos("nome_tamanho")%></option>
                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
%>
</select>
<%
    End If
   'Fecha e libera da memória o objeto de Recordset
    RS_Tamanhos.Close
    Set RS_Tamanhos = Nothing

End Function

[Marcão]

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
^

[.Andreia.]

tenta de novo, alterei algumas coisas:

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
%>
<select name="nome_tamanho">
<%
            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")%>"><%=RS_Tamanhos("nome_tamanho")%></option>
                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

[Marcão]

Opa.. nada ainda.. :(

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/funcoes/funcoes.asp, line 2661 

End Function
^

[bareta]

evite fazer posts desnecessarios...

Function Lista_Tamanhos(tamanhos)

sql="select * from Tamanhos order by nome_tamanho"
set RS_Tamanho=conexao.execute(sql)    

    Coluna = 0    

    If RS_Tamanhos.Eof Then

    Else
%>
<select name="nome_tamanho">
<%
If tamanhos <> "" Then 

While Not RS_Tamanhos.EOF

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")%>"><%=RS_Tamanhos("nome_tamanho")%></option>
<%
End If 
Next 

RS_Tamanhos.MoveNext
Wend
end if
%>
</select>
<%
    End If

    RS_Tamanhos.Close
    Set RS_Tamanhos = Nothing

End Function
%>

testa ai... tinha uns end if fora do lugar e um faltando...

[Marcão]

Desculpe-me pelo post desnecessário..

Obrigado pela sua ajuda, mas o codigo que você passou não deu certo... :(

[pgmador]

amigo, pra podermos te ajudar melhor, teríamos que saber em que linha está dando o erro, e qual o erro.

A linha 2661 não tem como a gente saber qual é.

[bareta]

qual erro esta dando^???

[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