Underklow

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