Menu Select

[Underklow 0]

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 = NothingEnd 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 = NothingEnd Function

[dataset 0]

For I = 0 To Ubound(Vetor) 	If CDbl(Vetor(I)) = CDbl(RS_Tamanhos("codigo_tamanho")) Then		IF CDbl(RS_Tamanhos("codigo_tamanho")) = Cdbl(request("nome_tamanho")) THEN fixo = " Selected" ELSE fixo = "" END IF		strUni = strUni & "<option value='"&RS_Tamanhos("codigo_tamanho")&"'" & fixo & ">"&RS_Tamanhos("nome_tamanho")&"</option>"	End ifNext

Para mostrar os valores no Select criado, coloque a variável que recebeu os valores dentro das tags <select> ... </select>

response.Write "<select name='nome_tamanho' class='combo' onchange='fmIncCur.submit();'>"&strUni&"</select>"

Não esquece de destruir o objejtos

RS_Tamanhos.closeset RS_Tamanhos = Nothing

[Underklow 0]

Opa, Muito obrigado por reposnder Dataset, mas desculpe-me pela minha total ignorancia mas eu não consegui fazer a troca... teria como você fazer as alterações e colocar o codigo, dessa forma eu apenas copiaria o codigo? :)

[Underklow 0]

Opa.. Eu consegui fazer o menu select, porém eu não consigo que a variavel "nome_tamanho" seja passada, ou seja, não adianta o tamanho que eu escolho, porque o codigo não esta registrando na hora da compra... :(

 

 

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 = NothingEnd Function

 

o problema é que esse outro codigo não esta conseguindo pegar o tamanho..

 

Function Pega_Tamanho(fctCodigo_tam)	'Cria objeto de consulta a tabela de Tamahos	Set RS_Tamanho = Server.CreateObject("ADODB.Recordset")	RS_Tamanho.CursorLocation = 3	RS_Tamanho.CursorType = 0	RS_Tamanho.LockType = 3	If fctCodigo_tam <> "" Then		RS_Tamanho.Open "SELECT nome_tamanho FROM Tamanhos WHERE codigo_tamanho = "&fctCodigo_tam&"", Conexao	Else		RS_Tamanho.Open "SELECT nome_tamanho FROM Tamanhos", Conexao	End If			If Not RS_Tamanho.Eof Then			Pega_Tamanho = Empety		Else			Pega_Tamanho = RS_Tamanho("nome_tamanho")		End If	'Fecha e libera da memória o objeto de Recordset	RS_Tamanho.Close	Set RS_Tamanho = NothingEnd Function