Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoLIVRE Responder mensagem 

 Combo Dinamico Atualizado em 27/01/2012 ás 17:33:00

Postado em 04/02/2006 ás 15:31:00

Boa Tarde!


Estou com  dúvida de como recuperar os dados de um combo dinâmico para uma outra página,  pois o mesmo possui um único <option> com 2 variaveis de sessão sendo assim, preciso dessas  variaveis de sessão para utilizar na instrução de update na outra página.Pensei em criar uma função que pudesse armazenar esses valores utilizando o evento onChange, porém não sei como fazer.Segue abaixo parte do código.


 Obrigado,
 Júlio César.


set con = Server.CreateObject("ADODB.CONNECTION")


con.open "DSN=combo"


sql= "select id, nome from Combo "


set rs = con.execute(sql)


%>
<form action="" method="post">
<select name="combo" size=1 >
<% While not rs.eof %>
<% Session("teste")= rs.fields.item("nome").value %>
<% Session("teste1")= rs.fields.item("id").value %>
<option value="<%=rs.fields.Item("id").value%>" > <%=Session("teste") %>- <%=Session("teste1") %>


 <% rs.movenext %>
 <% wend %>


</option>
</select>


 




 



Postado em 27/01/2012 ás 17:33:00

Amigos, preciso de uma ajuda.

Não sei mais o que fazer. Tenho o combo funcionando perfeitamente no IE mas no Firefox ele perde os dados. Já tentei de tudo, alguém poderia me ajudar... meu chefe tá me pressionando diariamente...rsrsrsrs

Abaixo, segue o código:



<%
'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento)
Letra = mid(StrAcento, i, 1)
Select Case Letra
Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
Letra = "A"
Case "é","É","ê","Ê","Ë","ë","È","è"
Letra = "E"
Case "í","Í","ï","Ï","Ì","ì"
Letra = "I"
Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
Letra = "O"
Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
Letra = "U"
Case "ç","Ç"
Letra = "C"
Case "não"
Letra = "N"
End Select
texto = texto & Letra
next
TiraAcento = texto
end function

%>















PAis































PAis
 

estado  

Cidade  
Plano  




E este alimenta o combo:



<%

'Abre a conexão com o banco de dados
Set ConexaoSql = Server.CreateObject("ADODB.Connection")
ConexaoSql.Open (ConStr)
If Err.Number <> 0 Then
ConexaoSql.close
ConexaoSql.Open (ConStr2)
End if
ConexaoSql.cursorLocation = 3



'Cria o objeto que executará um comando no banco de dados
Set Comando = Server.CreateObject("ADODB.Command")
Comando.ActiveConnection = ConexaoSql
Comando.CommandText = "sp_Hoteis_HP_Cidades_Divisoes"
Comando.CommandType = adCmdStoredProc

'Primeiro parâmetro a ser criado é o de retorno "Return"
Comando.Parameters.Append Comando.CreateParameter("Return", adInteger, adParamReturnValue)

'Define os parâmetros de entrada
Comando.Parameters.Append Comando.CreateParameter("@in_tp", adInteger, adParamInput, 4, 0)

Comando.Parameters.Append Comando.CreateParameter("@in_estado", advarchar, adParamInput, 3, request.queryString("id"))

Comando.Parameters.Append Comando.CreateParameter("@in_plano", advarchar, adParamInput, 2, 0)

'Cria o objeto que conterá os resultados da stored procedure
Set rstConsultaRede = Server.CreateObject("ADODB.Recordset")

'Executa o comando no banco de dados atribuindo à um Recordset
Set rstConsultaRede= Comando.Execute


%>


Topo

Postado em 04/02/2006 ás 16:01:00

Grande,

Mesmo que o COMBO seja dinâmico, você recuperará o valor dele na outra página da mesma forma que se o mesmo fosse fixo.

Request.Form("combo")

Atenciosamente,

Mazza, George.
·Desenvolvimento Web
·Design
·Fotografia Digital
www.georgemazza.com


Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados