Ajuda Urgente Com Menu Select

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

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