Problema Na Apresentação Do Resultado

Hellxande · Setembro 2, 2007

Olá a todos.

Estou com um problema de apresentação de um resultado que não estou conseguindo resolver.

O trecho de Código abaixo faz uma filtragem se existe um EmpresaAerea que atende a estes requisitos

<%if RadioModalidade = "Aéreo + Hotel + Serviço" then	  Aerea = tab("EmpresaAereaNome")elseif RadioModalidade = "Aéreo + Hotel" then			 	  Aerea = tab("EmpresaAereaNome")				elseif RadioModalidade = "Hotel + Serviço" then			 	  Aerea = Response.Write("Não tem")else	  Aerea = Response.Write("Não tem")end if			 			 %>

Existindo ele me apresenta neste outro trecho

<select name="ComboEmpresaAerea" id="ComboEmpresaAerea"><% while not tab.eof %>							 <option value="<%=Aerea%>"><%=tab("EmpresaAereaNome")%></option><%tab.movenextwend%></select>

Meu problema começa aqui, pois quando tem mais de 1 me apresenta as duas porém a Variável <%=Aerea%> não é atualizada na outra página conforme a escolha que faço.

Na outra página estou resgatando o resultado da seguinte forma

EmpresaAerea = Request.Form("ComboEmpresaAerea")

e apresentado assim

<%=EmpresaAerea%>

Porém sempre me mostra o mesmo resultado.

O q estou fazendo de errado, alguém pode me ajudar??

Qual ajuda é bem vinda.

Abraços a todos.

Hellxande

jrcardozo · Setembro 3, 2007

você precisa fazer uma verificação se os dois values são iguais e escrever selected no select

Hellxande · Setembro 7, 2007

Prezado Jonathan

Obrigado pela sugestão, conforme o q você falou alterei o meu Código da seguinte forma:

<select name="ComboEmpresaAerea" id="ComboEmpresaAerea"><% while not tab.eof %><%If Aerea = Aerea Then%>	  <option value="<%=Aerea%>" selected><%=tab("EmpresaAereaNome")%></option><% Else%>	  <option value="<%=Aerea%>"><%=Aerea%></option><%End If%><%tab.movenextwend%></select>

Porém continuo com o mesmo problema, o q estou fazendo de errado.

Atenciosamente

Hellxande

Ted k' · Setembro 7, 2007

Monte seu codigo completo æ!

Mais esse "RadioModalidade" é uma variável ou é um objeto!

Hellxande · Setembro 8, 2007

Prezado Ted K'

Respondendo a sua pergunta RadioModalidade em um momento é uma variável, mas o problema esta a apresentação do resultado escolhido no Objeto ComboEmpresaAerea.

Conforme sugeriu estou postando meu código completo

Esta é a 3º Página do site, é apartir daqui q começa o problema.

ASP

<%

Destino = Request.Form("DestinoOculto")

QtdAdulto = Request.Form("QtdAdulto")

QtdCrianca = Request.Form("QtdCrianca")

QtdInfantil = Request.Form("QtdInfantil")

DestinoOculto = Request.Form("DestinoOculto")

CheckSGL = Request.Form("CheckSGL")

CheckDPL = Request.Form("CheckDPL")

CheckTPL = Request.Form("CheckTPL")

DataSaida = Request.Form("DataSaida")

DataRetorno = Request.Form("DataRetorno")

RadioModalidade = Request.form("RadioModalidade")

OrigemOculto = Request.Form("ComboOrigem")

tab6 = Server.CreateObject("adodb.recordset")

sql = "select * from Hotel where HotelDestinoNome = '"&DestinoOculto&"'"

set tab6 = db.execute(sql)

%>

<html>

<head>

<title>Metas Tour Operator</title>

<!--

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

.style2 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

font-size: 11px;

}

.style3 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

}

-->

</style>

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

-->

</script>

</head>

<body>

<tr>

<tr>

<tr>

<tr>

<tr>

<td width="34%"><span class="style2">Destino escolhido :</span></td>

</tr>

</table>

<tr>

<tr>

<td class="style3"><strong>Hoteis </strong></td>

</tr>

</table>

<%while not tab6.eof%>

<%

if CheckSGL = "Sim" then

HotelSGLPreco = tab6("HotelSGLPreco")

elseif CheckSGL = "Não" then

end if

if CheckDPL = "Sim" then

HotelDPLPreco = tab6("HotelDPLPreco")

elseif CheckDPL = "Não" then

end if

if CheckTPL = "Sim" then

HotelTPLPreco = tab6("HotelTPLPreco")

elseif CheckTPL = "Não" then

end if

QtdPessoa = (CINT(QtdAdulto) + CINT(QtdCrianca) + CINT(QtdInfantil))

PrecoApto = (HotelSGLPreco + HotelDPLPreco + HotelTPLPreco)

V_Data = DateDiff("d",DataSaida,DataRetorno) - 1

ValorTotalOculto = ((QtdPessoa * PrecoApto) * V_Data)

%>

</span>

<tr>

<%=tab6("HotelNome")%></td>

<td width="65%" class="style3"><a onClick="window.open('Def_PreHotel.asp?CodHotel=<%=tab6("HotelID")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,re

izable=no'); return false;" href="Def_PreHotel.asp?CodHotel=<%=tab6("HotelID")%>">ver

detalhes</a></td>

</tr>

<%

tab6.movenext

wend

%>

</table>

<%

tab = Server.CreateObject("adodb.recordset")

sql = "select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"' AND EmpresaAereaModalidade = '"&RadioModalidade&"'"

set tab = db.execute(sql)

%>

<br>

</span>

<tr>

<td class="style3"><strong>Empresa Aérea</strong></td>

</tr>

</table>

<%

if RadioModalidade = "Aéreo + Hotel + Serviço" then

Aerea = tab("EmpresaAereaNome")

elseif RadioModalidade = "Aéreo + Hotel" then

Aerea = tab("EmpresaAereaNome")

elseif RadioModalidade = "Hotel + Serviço" then

Aerea = Response.Write("Não tem")

else

Aerea = Response.Write("Não tem")

end if

%>

</span>

<tr>

<%

while not tab.eof

%>

<%If Aerea = Aerea Then%>

<option value="<%=Aerea%>" selected><%=tab("EmpresaAereaNome")%></option>

<% Else%>

<%End If%>

<%

tab.movenext

wend

%></select>

</td>

</tr>

</table></td>

</tr>

</table>

<br/>

<br />

<tr>

</tr>

</table></th>

</tr>

</table>

</form></th>

</tr>

<tr>

</map></td>

</tr>

</table>

</th>

</tr>

</table>

</map>

</td>

</tr>

</table>

</body>

</html>

Esta é página 4, onde é apresentado o resultado da Cotação:

ASP

<%

Session.LCID = 1046

'Variáveis

DataAtual = Date()

Origem = Request.Form("OrigemOculto")

Destino = Request.Form("DestinoOculto2")

DataSaida = Request.Form("DataSaidaOculto")

DataRetorno = Request.Form("DataRetornoOculto")

'EmpresaAerea = Request.Form("AereaOculto")

EmpresaAerea = Request.Form("ComboEmpresaAerea")

Hotel = Request.Form("RadioHotel")

AptoSGL = Request.Form("CheckSGLOculto")

AptoDPL = Request.Form("CheckDPLOculto")

AptoTPL = Request.Form("CheckTPLOculto")

QtdAdulto = Request.Form("QtdAdultoOculto")

QtdCrianca = Request.Form("QtdCriancaOculto")

QtdInfantil = Request.Form("QtdInfantilOculto")

QtdPessoa = Request.Form("QtdPessoaOculto")

ValorTotal = Request.Form("ValorTotalOculto")

Modalidade = Request.Form("RadioModalidade")

DataValidade = Date() + 2

tab = Server.CreateObject("adodb.recordset")

sql = "select * from EmpresaAerea where EmpresaAereaNome = '"&EmpresaAerea&"'"

set tab = db.execute(sql)

Temp = tab("EmpresaAereaPreco")

tab2 = Server.CreateObject("adodb.recordset")

sql = "select * from Servicos where ServicoDestino = '"&Destino&"'"

set tab2 = db.execute(sql)

ServicoNome = tab2("ServicoNome")

ServicoSGLPreco = tab2("ServicoSGLPreco")

ServicoDPLPreco = tab2("ServicoDPLPreco")

ServicoTPLPreco = tab2("ServicoTPLPreco")

%>

<html>

<head>

<title>Metas Tour Operator</title>

<!--

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

.style7 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

font-size: 11px;

}

.style9 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

}

.style11 {font-size: 11px}

.style14 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; }

-->

</style>

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

-->

</script>

</head>

<body>

<tr>

<tr>

<tr>

<tr>

<tr>

<td width="29%"><span class="style7">DATA DA EMISSÃO:</span></td>

</tr>

</table>

<tr>

<td colspan="5"><span class="style7">PACOTE TURÍSTICO ESCOLHIDO:</span></td>

</tr>

<tr>

<td width="21%"><span class="style9">Local de Origem:</span></td>

<td width="23%"><span class="style9">Data de Saída:</span></td>

</tr>

<tr>

<td><span class="style9">Local de Destino:</span></td>

<td><span class="style9">Data de Retorno:</span></td>

</tr>

<tr>

<td colspan="2" class="style7">Serviço para o destino:</td>

</tr>

<tr>

</tr>

</table>

<tr>

<td><span class="style7">EMPRESA AÉREA:</span></td>

<td width="49%"><span class="style7">HOTEL:</span></td>

</tr>

<tr>

</tr>

</table>

<tr>

<td colspan="3"><span class="style7">TIPO(S) DE ACOMODAÇÕES:</span></td>

<td colspan="4"><span class="style7">QUANTIDADE DE PESSOA(S):</span></td>

</tr>

<tr>

<td width="11%"><div align="center" class="style9">Adulto</div></td>

<td width="9%"><div align="center" class="style9">Criança:</div></td>

<td width="10%"><div align="center" class="style9">Infantil:</div></td>

<td width="21%"><div align="center" class="style9">Total Pessoas:</div></td>

</tr>

<tr>

</tr>

<tr>

TOTAL DA COTAÇÃO:</span></td>

</tr>

<tr>

<td><span class="style9">Valor:</span></td>

<td colspan="3"><span class="style9">Orçamento válido até</span></td>

</tr>

<tr>

DADOS COMPLEMENTARES:</span></td>

</tr>

<tr>

<td colspan="8"><span class="style14">NÃO HÁ RESERVAS, SOMENTE

COTIZAÇÃO. PREÇOS SUJEITOS A ALTERAÇÃO

SEM PRÉVIO AVISO OU À CONFIRMAÇÃO DOS SERVIÇOS

SOLICITADOS. FORMA DE PAGAMENTO AÉREO E TERRESTRE: 05 VEZES SEM

JUROS EM CHEQUE PRÉ-DATADO DE PESSOA FÍSICA OU ENTRADA

+ 2 X CARTÃO VISA. APENAS PARTE TERRESTRE: 1 + 1 EM CHEQUE PRÉ-DATADO

DE PESSOA FÍSICA.</span></td>

</tr>

</table>

<tr>

</span></td>

</tr>

</table></th>

</tr>

</table>

</form></td>

</tr>

<tr>

</map></td>

</tr>

</table></th>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

Espero q com isso seja melhor entender o meu problema.

Desde já agradeço a ajuda.

Atenciosamente

Hellxande

Ted k' · Setembro 8, 2007

meio confuso seus códigos mais tente isso aki!

ASP

<%

set tab = db.execute("select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"' AND EmpresaAereaModalidade = '"&RadioModalidade&"'")

if ""&tab("EmpresaAereaModalidade")&"" = "Aéreo + Hotel + Serviço" Or ""&tab("EmpresaAereaModalidade")&"" = "Aéreo + Hotel" then

Aerea = tab("EmpresaAereaNome")

elseif ""&tab("EmpresaAereaModalidade")&"" = "Hotel + Serviço" then

Aerea = Response.Write("Não tem")

else

Aerea = Response.Write("Não tem")

end if

%>

Hellxande · Setembro 8, 2007

Prezado Ted K'

Sua sugestão com certeza melhorou muito o meu código, brigadão. Porém esta parte por mais q esteja confuso esta funcionando, meu problema é nesta outra área:

<select name="ComboEmpresaAerea" id="ComboEmpresaAerea"><%while not tab.eof%><%If Aerea = Aerea Then%><option value="<%=Aerea%>" selected><%=tab("EmpresaAereaNome")%></option><% Else%><option value="<%=Aerea%>"><%=Aerea%></option><%End If%><%tab.movenextwend%></select>

Pq por mais tenham várias Empresas Aéreas qdo seleciono qq uma sempre me apresenta na outra página a mesma.

E eu não sei onde estou errado.

Atenciosamente

Hellxande

Ted k' · Setembro 9, 2007

é amigo difícil?

tentou colocar um response.write no "Area" pra saber qual é o balor que está chegando?

por exemplo, veja æ se está chegando o valor!

e tente ver se roda assim amigo:

ASP

<%If ""&Aerea&"" = ""&Aerea&"" Then%>

Hellxande · Setembro 13, 2007

Prezado Amigos.

Primeiramente gostaria de agradecer a tds q tentaram me auxiliar nesta questão, porém infelizmente nenhuma sugestão das q foram feitas, resolveu o problema. Mas depois de muito bater a cabeça descobri q eu estava montando errado meu código, diante disso vou postar aqui a correção e implementação que aproveitei fazer p/ atender a minha necessidade, p/ q outras pessoas possam ter algum proveito disso.

Neste ponto estou fazendo a verificação do que a Variável Aerea irá receber

<%if RadioModalidade = "Aéreo + Hotel + Serviço" then	   if not tab.eof then			   Aerea = tab("EmpresaAereaNome")	   else			   Aerea = Response.Write("Não existe Empresa Aérea para este percurso")	   end ifelseif RadioModalidade = "Aéreo + Hotel" then	   if not tab.eof then		   Aerea = tab("EmpresaAereaNome")	   else		   Aerea = Response.Write("Não existe Empresa Aérea para este percurso")	   end ifelseif RadioModalidade = "Hotel + Serviço" then	   Aerea = Response.Write("Não existe Empresa Aérea para esta modalidade escolhida")else	   Aerea = Response.Write("Não existe Empresa Aérea para esta modalidade escolhida")end if%>

Aqui estou montando o meu Objeto ComboEmpresaAerea

<select name="ComboEmpresaAerea" id="ComboEmpresaAerea"><% while not tab.eofIf Aerea = tab("EmpresaAereaNome") Then%>		 <option value="<%=tab("EmpresaAereaNome")%>" selected><%=Aerea%></option><%Else%>	 <option value="<%=tab("EmpresaAereaNome")%>"><%=tab("EmpresaAereaNome")%></option><%End If%><%tab.movenextwend%></select>

O Código com certeza não é dos melhores... hehe..

Mas até atendendo as minhas necessidades.

Espero ajudar alguém com isso.

Abraços a tds.

Hellxande

Arquivado

Problema Na Apresentação Do Resultado

Recommended Posts

Hellxande 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Hellxande 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Hellxande 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Hellxande 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Hellxande 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

select com varias categorias por horario

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

Fóruns

Tempo Real

Informação importante