Jump to content


Photo

Ajuda Urgente Com Menu Select


  • Faça o login para participar
2 replies to this topic

#1 Underklow

Underklow

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 13/05/2007, 20:34

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


#2 NOVAZOO

NOVAZOO

    12 Horas

  • Usuários
  • 198 posts
  • Sexo:Não informado
  • Localidade:BH/MG/BRASIL
  • Interesses:FLASH - ASP - XML - USABILIDADE - ARQUITETURA DE INFORMAÇÃO

Posted 18/05/2007, 11:58

É bem simples cara,
utilizando um loop vc lista as opções do combobox:


IF NOT RS_Tamanhos.EOF THEN
	response.write("<select id=nome name=nome>")
	WHILE NOT RS_Tamanhos.EOF
		response.write("<option value="&RS_Tamanhos("codigo_tamanho")&">"&RS_Tamanhos("nome_tamanho")&"</option>")
		RS_Tamanhos.movenext
	WEND
	response.write("</select>")
ELSE
	response.write("Não há valores para preencher o combo box.")
END IF
RS_Tamanhos.close
SET RS_Tamanhos = Nothing

Edição feita por: NOVAZOO, 18/05/2007, 12:00.

Posted Image

#3 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 26/05/2007, 03:14

Brother, cuidado com topicos com estes titulos....

a regra:

d - Jamais poste mensagens com títulos como: "ME AJUDE!!!", "PELO AMOR DE DEUS, ESTOU DESESPERADO!!!", "SOCORRO!", "HELP!", ou qualquer coisa similar que não possua um título esclarecedor. Além de ser ridículo, isto fará com que a sua mensagem tenha menos visualizações, pois provavelmente os outros participantes já estarão fartos de ver títulos como este. Além disso, qualquer um dos moderadores poderá deletar sua mensagem, sem aviso prévio e você poderá ser advertido.


Para que não viole as regras novamente veja as mesmas

http://forum.wmonlin...?act=boardrules
Qualquer dúvida entre em contato por MP

Não irei fechar o tópico, mas por favor, não crie tópicos como este novamente...Grato.
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq