Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Hellxande

Iniciante na lógica do processo

Por , em ASP Clássico

Recommended Posts

Hellxande    0

Hellxande
Postado

Bom Dia a todosEstou precisando de uma ajuda na lógica provavelmente na execução deste processo.Tenho em uma página o Componente Radio que é carregado com registros de uma Tabela, esta contém 2 campos ModalidadeNome e ModalidadeAerea, neste mesma tabela já existem 4 registros os quais compoem o Radio da página.Meu problema começa na seguinte situação:Ao selecionar uma das opções do Radio e precionar o botão Avançar que direciona p/ próxima página, esta deve carregar as informações referentes a outra Tabela a EmpresaAerea sem muita fulia estou conseguindo fazer isto funcionar, porém necessito que esta relação seja montada com base no valor do campo ModalidadeAerea.Ex: Opções do Radio- Aérea + Hotel + Serviços- Aérea + Hotel- Hotel + Serviços- HotelCaso selecione a 1º opção na outra tela deverá verificar se a opção é ModalidadeAerea através do valor do campo que é Sim ou Não e em seguida montar a relação de Empresas Aéreas que atendam ao Select já existente que busca as Empresas que tem o campo Destino igual ao Destino selecionado tb anteriormente.Caso a opção seja ModalidadeAerea mas com base no Select não tem nenhuma Empresa Aérea que atenda ao Destino, deve aparecer uma mensagem qualquer.Caso não seja ModalidadeAerea então só aparecer uma outra mensagem.Já tentei montar isto usando IF.. ELSE até mesmo com CASE porém não obtive sucesso, por causa da minha falta de experiencia, diante disso resolvi pedir socorro, pois preciso resolver isso urgentemente.Desde já agradeço a atenção e qualquer ajuda é bem vinda.AtenciosamenteHellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj

 

Obrigado pela Resposta, meu Radio esta desta forma:

 

<input type="radio" name="RadioModalidade" value="1"><%=tab("ModalidadeNome")%>

Este é a Select que trás as Empresas Aereas conforme o Destino

 

<%tab = Server.CreateObject("adodb.recordset")sql = "select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"'"set tab = db.execute(sql)%>

E o IF neste momento esta assim.

 

if RadioModalidade = 1 then	Aerea = tab("EmpresaAereaNome")elseif RadioModalidade = 0 then	Aerea = Response.Write("Não tem")end if

Sinceramente já fiz tantas alterações que já estou até perdido.

 

Mas aceito qq sugestão.

 

Atenciosamente

 

Hellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

para iniciarmos....você vai ter que submeter a página para poder fazer isso...exemplo

numa págian você tem algo assim:

<form action="lista.asp" method="post"><input type="radio" name="RadioModalidade" value="1"><%=tab("ModalidadeNome")%><input name="submit" type="submit" value="submit"></form
ai na página lista.asp(do meu exemplo acima) você faz o if

RadioModalidade = cint(request.form("RadioModalidade"))if RadioModalidade = 1 then	 Response.Write("Tem")elseif RadioModalidade = 0 then	 Response.Write("Não tem")end if

perceba que no request.form eu forço a conversão do valor para inteiro a fim de fazer o comparativo no IF

 

só que achei estranho....essa modalidade você não pode procurar no Select da query:

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

o que seria destinooculto, de onde vem essa variavel, pra que serve a variavel radiomodalidade

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj

 

Desculpe faltou ou mencionar p/ q server e de onde vem as Variavéis q perguntou.

 

DestinoOculto = Vem de uma outra página que carrega todos os Destinos existente na Tabela, ao Clicar na opção desejada abre a página com os dados relacionados a Modalidade, Data Saida, Data Retorno e etc... Nesta página é q existe o Radio.

 

RadioModalidade = Criei p/ receber o q foi selecionado na página anterior.

 

Sei que é um abuso da minha parte, porém vou postando o Código das 3 páginas, p/ ficar mais claro o seu entendimento.

 

---- Def_Destino.asp ---->

<!--#include file="Conexao.asp" --><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="100%" cellpadding="0">  <tr>	<td>	<%	tab = Server.CreateObject("adodb.recordset")	sql = "select * from Destino"	set tab = db.execute(sql)	%>	  <% while not tab.eof %>	  <table width="100%" cellpadding="0">		<tr> 		  <td><a href="Def_PreCota.asp?Cod=<%=tab("DestinoID")%>" target="mainFrame"><%=tab("DestinoNome")%></a></td>		</tr>		<%		tab.movenext		wend		%>	  </table></td>  </tr></table></body></html>
---- Def_PreCota.asp ---->

<!--#include file="Conexao.asp" --><%tabCod = Server.CreateObject("adodb.recordset")sql = "SELECT * FROM Destino where DestinoID = "&request.querystring("cod")&""set tabCod = db.execute(sql)DestinoOculto = tabCod("DestinoNome")%><html><head><title>Documento sem título</title><link rel="stylesheet" type="text/css" media="all" href="javascript/jscalendar-1.0/skins/aqua/theme.css" /><script type="text/javascript" src="javascript/jscalendar-1.0/calendar.js" charset="ISO-8859-1"></script><script type="text/javascript" src="javascript/jscalendar-1.0/calendar-setup.js" charset="ISO-8859-1"></script><script type="text/javascript" src="javascript/jscalendar-1.0/lang/calendar-en.js" charset="ISO-8859-1"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="Def_PreCota3.asp">  <table width="80%" border="0">	<tr>	  <td width="28%"><strong>Destino escolhido :</strong></td>	  <td width="72%"><%=tabCod("DestinoNome")%></td>	</tr>  </table>  <input name="DestinoOculto" type="hidden" id="DestinoOculto" value="<%=DestinoOculto%>">  <table width="80%" cellpadding="0">	<tr> 	  <td width="100%" height="410" valign="top"> 		<%		tab = Server.CreateObject("adodb.recordset")		sql = "select * from Modalidade"		set tab = db.execute(sql)		%>		<table width="100%" cellpadding="0">		  <tr> 			<td><strong>Escolha a Modalidade :</strong></td>		  </tr>		</table>		<% while not tab.eof		%>		<table width="100%" cellpadding="0">		  <tr> 			<td><input type="radio" name="RadioModalidade" value="1"><%=tab("ModalidadeNome")%></td>		  </tr>		  <%		  tab.movenext		  wend		  %>		</table>		<br>				<script>		// Esta função deve ser removida 				function formata_data(x,tecla){		// Por Tiago Araujo Silva (tiago@tiagoaraujo.com)				separador="/"; // Você pode definir o separador. Ex: "/" ou "-" ou "."		tecla=tecla.keyCode; // Identifica a tecla, caso seja backspace		valor=x.value.split(''); // Pega o valor do campo e transforma cada caractere em uma string		formatado=""; // Variável para carregar formatação temporariamente		i=0; // variável de controle		while(i<valor.length){ // Loop para cada caractere do campo			caractere=valor[i]; // Seleciona um caractere para ser formatado			numeros=/^\d+$/; // Variavel contendo números positivos				// Verifica se é número ou "barra"			if(numeros.test(caractere) || caractere==separador){ formatado+=String(caractere);}				// Verifica se precisa de barra, se a tecla for backspace, então a barra não é adicionada				// Se for para adicionar barra, aumenta ++ variável de controle "i" para pular a barra adicionada			if((formatado.length==2 || formatado.length==5) && tecla!=8){formatado+=separador; i++;}			  			i++; // Se houver, passa para o próximo caractere		}				x.value=formatado; // Atribui o valor formatado ao campo		}		</script>				<table width="100%" cellpadding="0">		  <tr> 			<td colspan="3"><strong>Data de Saída :</strong></td>			<td colspan="3"><strong>Data de Retorno :</strong></td>		  </tr>		  <tr> 			<td width="10%"><input type="text" class="texto" maxlength="10" name="DataSaida" id="DataSaida" size="12" onkeyup="this.value = format(this.value,'##/##/####');" value=""></td>			<td width="3%"><input id="btDataSaida" type="image" src="img/calendar.gif" alt="" border="0" align="absmiddle"></td>			<td width="4%"> <script type="text/javascript">			Calendar.setup({			inputField	: "DataSaida",			ifFormat	: "%d/%m/%Y",			button	  : "btDataSaida"			});			</script></td>			<td width="9%"><input type="text" class="texto" maxlength="10" name="DataRetorno" id="DataRetorno" size="12" onkeyup="this.value = format(this.value,'##/##/####');" value=""></td>			<td width="3%"><input id="btDataRetorno" type="image" src="img/calendar.gif" alt="" border="0" align="absmiddle"></td>			<td width="71%"><script type="text/javascript">			Calendar.setup({			inputField	: "DataRetorno",			ifFormat	: "%d/%m/%Y",			button	  : "btDataRetorno"			});			</script></td>		  </tr>		</table>		<br> 		<%		tab2 = Server.CreateObject("adodb.recordset")		sql = "select * from Origem"		set tab2 = db.execute(sql)		%>		<table width="100%" border="0" align="center">		  <tr> 			<td><strong>Selecione a Cidade de Origem :</strong></td>		  </tr>		  <tr> 			<td> <select name="ComboOrigem" id="ComboOrigem">				<option value="--">--</option>				<% while not tab2.eof %>				<option value="<%=tab2("OrigemNome")%>"><%=tab2("OrigemNome")%></option>				<%			tab2.movenext			wend			%>			  </select> </td>		  </tr>		</table>		<br> 		<%		tab3 = Server.CreateObject("adodb.recordset")		sql = "select * from Pessoa"		set tab3 = db.execute(sql)		%>		<table width="100%" border="0" align="center">		  <tr> 			<td colspan="6"><strong>Quantidade de Pessoas : </strong></td>		  </tr>		  <tr> 			<td width="6%"> <div align="right">Adulto</div></td>			<td width="6%"><select name="QtdAdulto" id="QtdAdulto">				<option value="00">--</option>				<option value="01">01</option>				<option value="02">02</option>				<option value="03">03</option>				<option value="04">04</option>				<option value="05">05</option>				<option value="06">06</option>				<option value="07">07</option>				<option value="08">08</option>				<option value="09">09</option>				<option value="10">10</option>			  </select></td>			<td width="7%"> <div align="right">Criança</div></td>			<td width="6%"><select name="QtdCrianca" id="QtdCrianca">				<option value="00">--</option>				<option value="01">01</option>				<option value="02">02</option>				<option value="03">03</option>				<option value="04">04</option>				<option value="05">05</option>				<option value="06">06</option>				<option value="07">07</option>				<option value="08">08</option>				<option value="09">09</option>				<option value="10">10</option>			  </select></td>			<td width="7%"> <div align="right">Infantil</div></td>			<td width="68%"> <select name="QtdInfantil" id="QtdInfantil">				<option value="00">--</option>				<option value="01">01</option>				<option value="02">02</option>				<option value="03">03</option>				<option value="04">04</option>				<option value="05">05</option>				<option value="06">06</option>				<option value="07">07</option>				<option value="08">08</option>				<option value="09">09</option>				<option value="10">10</option>			  </select></td>		  </tr>		</table>		<br> 		<%		tab4 = Server.CreateObject("adodb.recordset")		sql = "select * from AptoTipoPessoa"		set tab4 = db.execute(sql)		%>		<script language='javascript'>		function valida(nomeC)		{	  		var mark;		mark=0;  		for (var i=0;i<document.form1.elements.length;i++)		{		var objC = document.form1.elements[i];		if (objC.name == nomeC )		{		  if (objC.checked == true)			{			  mark=1;			} 		}		}		if (mark==0)		{			alert(' VocÊ Não marcou nenhum check marque pelo menos 1! ');		}		else		{			alert(' Você Marcou pelo menos 1! ');		}		}		</script>		<table width="100%" border="0" align="center">		  <tr> 			<td><strong>Tipo de Acomodações : </strong></td>		  </tr>		  <tr> 			<td><input type="checkbox" name="CheckSGL" id"CheckSGL" value="1">SGL</td>		  </tr>		  <tr> 			<td><input type="checkbox" name="CheckDPL" id"CheckDPL" value="1">DPL</td>		  </tr>		  <tr> 			<td><input type="checkbox" name="CheckTPL" id"CheckTPL" value="1">TPL</td>		  </tr>		  <tr> 			<td> </td>		  </tr>		  <tr> 			<td><div align="right"> 				<input type="submit" name="Submit" value="Prosseguir">			  </div></td>		  </tr>		</table></td>	</tr>  </table></form></body></html>
---- Def_PreCota3.asp ---->

<!--#include file="Conexao.asp" --><%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")%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="Def_Cota.asp">  <table width="80%" cellpadding="0">	<tr> 	  <td width="28%" height="19" valign="top">Destino escolhido :</td>	  <td width="72%" valign="top"><%=DestinoOculto%></td>	</tr>	<tr> 	  <td height="204" colspan="2" valign="top"> 		<%	  tab6 = Server.CreateObject("adodb.recordset")	  sql = "select * from Hotel2 where HotelDestinoNome = '"&DestinoOculto&"'"	  set tab6 = db.execute(sql)	  	  %>		<table width="80%" cellpadding="0">		  <tr> 			<td><table width="100%" border="0">				<tr> 				  <td width="195"><strong>Hoteis </strong></td>				  <td width="89"><strong>Valor</strong></td>				</tr>			  </table>			  <%while not tab6.eof%>			  <%			  if CheckSGL = 1 then					HotelSGLPreco = tab6("HotelSGLPreco")			  elseif CheckSGL = 0 then			  end if			  if CheckDPL = 1 then					HotelDPLPreco = tab6("HotelDPLPreco")			  elseif CheckDPL = 0 then			  end if			  if CheckTPL = 1 then					HotelTPLPreco = tab6("HotelTPLPreco")			  elseif CheckTPL = 0 then			  end if			  QtPessoa = (CINT(QtdAdulto) + CINT(QtdCrianca) + CINT(QtdInfantil))			  PrecoApto = (HotelSGLPreco + HotelDPLPreco + HotelTPLPreco)			  V_Data = DateDiff("d",DataSaida,DataRetorno) - 1			  Teste4 = ((QtPessoa * PrecoApto) * V_Data)			  			  			  %>			  			  <table width="100%" border="0" id="Hotel">				<tr> 				  <td width="419"><%=tab6("HotelNome")%></td>				  <td width="195"><%=Teste4%></td>				</tr>				<%				tab6.movenext				wend				%>			  </table>			  <%			  tab = Server.CreateObject("adodb.recordset")			  sql = "select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"'"			  set tab = db.execute(sql)			  %>			  <br>			  <table width="100%" border="0">				<tr> 				  <td width="68%"><strong>Empresa Aérea</strong></td>				  <td width="32%"><strong>Valor</strong></td>				</tr>			  </table>			  			  <%			  while not tab.eof			  			 if RadioModalidade = 1 then			 		Aerea = tab("EmpresaAereaNome")			 elseif RadioModalidade = 0 then			 		Aerea = Response.Write("Não tem")			 end if			 			 			 %>			  <table width="100%" border="0">				<tr>				  <td width="68%"><%=Aerea%></td>				  <td width="32%"><%=tab("EmpresaAereaPreco")%></td>				</tr>				<%				tab.movenext				wend				%>			  </table> </td>		  </tr>		</table></td>	</tr>	<tr> 	  <td colspan="2" valign="middle"> <div align="right"> 		  <input type="submit" name="Submit" value="Prosseguir">		</div></td>	</tr>  </table></form></body></html>

Atenciosamente

 

Hellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

tente o seguinte

troque de:

RadioModalidade = Request.form("RadioModalidade")
para

RadioModalidade = cint(Request.form("RadioModalidade"))
troque de:

if RadioModalidade = 1 then					 Aerea = tab("EmpresaAereaNome")			 elseif RadioModalidade = 0 then					 Aerea = Response.Write("Não tem")			 end if
para:

if RadioModalidade = 1 then					 Aerea = tab("EmpresaAereaNome")			 else					 Aerea = "Não tem"			 end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado JonathandjNovamente devo lhe pedir desculpas pois estou esquecendo de lhe perguntar onde e como devo colocar a verificar para saber se a Modalidade escolhida é ou não um Modalidade Aérea.AtenciosamenteHellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

se na tabela EmpresaAerea tiver um campo com a modalidade você faz no sql

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj

 

Com base em sua última sugestão

 

Na Tabela EmpresaAerea criei um campo chamado EmpresaAereaModalidade neste criei registros q fazem a ligação com a tabela Modalidade.

 

Com isso alterei o Select da forma que sugeriu tb.

Porém tive q voltar a parte da variável RadioModalidade pois estava dando erro e alterar o IF ficando assim:

 

Select:

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

IF

if RadioModalidade = "Aéreo + Hotel + Serviço" then	  Aerea = tab("EmpresaAereaNome")				else	  Aerea = "Não tem"end if

Diante disso se escolho um Destino Ex: Porto Seguro e A Modalidade "Aéreo + Hotel+ Serviço" funciona perfeito, pois me traz a Empresa, e tb Funciona se Escolho a Modalidade "Aéreo + Hotel", pois me apresenta o "Não Tem".

Porém qdo escolho as opções "Hotel + Serviço" e "Hotel" não me apresenta nada.

 

Pensei em fazer vários IF desta forma:

if RadioModalidade = "Aéreo + Hotel + Serviço" then	   Aerea = tab("EmpresaAereaNome")				else	   Aerea = "Não tem"end if			 if RadioModalidade = "Aéreo + Hotel" then	   Aerea = tab("EmpresaAereaNome")				else	   Aerea = "Não tem"end if			 if RadioModalidade = "Hotel + Serviço" then	   Aerea = tab("EmpresaAereaNome")				else	   Aerea = "Não tem"end ifif RadioModalidade = "Hotel" then	   Aerea = tab("EmpresaAereaNome")				else	   Aerea = "Não tem"end if
Mas tb não funcionou, sendo assim volto a lhe pedir ajuda.

 

Atenciosamente

 

Hellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

se você relacionou as tabelas você pode fazer outro select

 

while not tab.eof			  set rsAux = db.execute("select nomeModalidade,id from modalidades where id =&cint(tab("campoModalidade")))			 if not rsAux.eof then					 Aerea = rsAux("nomeModalidade")			 else					 Aerea ="Não tem"			 end if						  			 %>			  <table width="100%" border="0">				<tr>				  <td width="68%"><%=Aerea%></td>				  <td width="32%"><%=tab("EmpresaAereaPreco")%></td>				</tr>				<%				tab.movenext				wend

veja que fiz outro select, você deve colocar o nome dos campos e tabela de acordo com o que tens ai

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj Bom Dia !!Infelizmente ontem não pude lhe responder, porém tentei entender o q sugeriu, porém não consegui, pois não estou sabendo se devo substituir o Select antigo por este novo e depois de tantas alterações me com o nome dos campos... hehhSendo assim lhe pergunto teria como você me explicar a sua sugestão de alguma outra forma.AtenciosamenteHellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

certo, vamos lá...vou tentar entender melhor o que deseja e faço o possivel pra te passar da forma mais imples de entender

primeiro...pelo que entendi você quer listar empresaArea, se dentro da empresa tiver modalidade então exibe.

sendo assim ficaria mais ou menos assim

 

Faz a busca da empresaArea e armazena no recordset tab, nesse recordset vai armazenar os dados de EmpresaAereaModalidade

sql = "select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"'"set tab = db.execute(sql)
pergunto....no campo EmpresaAereaModalidade da tabela EmpresaArea, você gravou os dados como? números ou texto? Coloque um exemplo de como estão gravados

 

Responde essa pergunta que sigo mostrando como fazer

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj

 

Respondendo a sua pergunta estou colocando uma imagem de como esta atualmente a Tabela EmpresaAerea

 

Imagem Postada

 

Diante disso qdo o usuário selecionar a opção no Radio e clicar no Submiti p/ abrir a outra página desejo que

seja mostrado as Empresas Aereas que atendam ao Requisitos de EmpresaAereaDestino e EmpresaAereaModalidade

Caso não atendam nenhum ou somente um dos requisítos mostrar uma frase por exemplo "Não Tem"

 

Atenciosamente

 

Hellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

então seria isso aqui

if len(trim(tab("EmpresaAereaModalidade")))>1 then	 Aerea = tab("EmpresaAereaModalidade") else	 Aerea = "Não tem" end if

retire

if RadioModalidade = 1 then					 Aerea = tab("EmpresaAereaNome")			 elseif RadioModalidade = 0 then					 Aerea = Response.Write("Não tem")			 end if

 

porém pergunto, esse Radio teria a função de mostrar ou não a EmpresaAereaNome? ou seja, se o usuário clicar é pra exibir, se não clicar não exibe,independente de ter ou não EmpresaAereaNome

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado JonathandjSim tem q exibir caso tem EmpresaAereaNome que atenda aos Requisitos EmpresaAereaDestino e EmpresaAereaModalidade, caso não atenda deve apresenta uma frase qualquerConforme o q você me sugeriu eu só mudei p/ mostrar a EmpresaAereaNome ou invés da EmpresaAereaModalidade, e está funcionando assim:Atendendo os requisitos EmpresaAereaDestino e EmpresaAereaModalidade aparece EmpresaAereaNome perfeitamente.Porém não atendendo, fica em branco não esta aparece nada.Gostaria que mostra-se a frase "Não Tem".Ex: Se selecionar a opção Aéreo + Hotel + Serviço no Radio deve fazer a verificação na Tabela EmpresaAerea tendo registros que atendam ao requisito EmpresaAereaDestino e EmpresaAereaModalidade, deve mostrar EmpresaAereaNome.Mesma coisa p/ opção Aéreo + Hotel.Caso seja escolhida a opção Hotel + Serviço ou a opção Hotel não irá atender pois não existirá registro p/ isso, sendo assim deverá aparecer a frase "Não tem".Acho q agora consegui explicar melhor.. :rolleyes: AtenciosamenteHellxandePrezado JonathandjSim tem q exibir caso tem EmpresaAereaNome que atenda aos Requisitos EmpresaAereaDestino e EmpresaAereaModalidade, caso não atenda deve apresenta uma frase qualquerConforme o q você me sugeriu eu só mudei p/ mostrar a EmpresaAereaNome ou invés da EmpresaAereaModalidade, e está funcionando assim:Atendendo os requisitos EmpresaAereaDestino e EmpresaAereaModalidade aparece EmpresaAereaNome perfeitamente.Porém não atendendo, fica em branco não esta aparece nada.Gostaria que mostra-se a frase "Não Tem".Ex: Se selecionar a opção Aéreo + Hotel + Serviço no Radio deve fazer a verificação na Tabela EmpresaAerea tendo registros que atendam ao requisito EmpresaAereaDestino e EmpresaAereaModalidade, deve mostrar EmpresaAereaNome.Mesma coisa p/ opção Aéreo + Hotel.Caso seja escolhida a opção Hotel + Serviço ou a opção Hotel não irá atender pois não existirá registro p/ isso, sendo assim deverá aparecer a frase "Não tem".Acho q agora consegui explicar melhor.. :rolleyes: AtenciosamenteHellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hellxande    0

Hellxande
Postado

Prezado Jonathandj

 

Despois de muito me bater achei a origem e a solução do problema, alterei a posição do meu While e td funcionou lindamente !!

 

Deixei o Select da forma q me sugeriu:

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

Alterei o Código desta forma:

 

<%			  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			 			 			 %>			  <table width="100%" border="0">				<tr> 				  <td>				  <% while not tab.eof%>				  <%=Aerea%>				  <%				  tab.movenext				  wend				  %>				  </td>				</tr>							  </table></td>

Sendo assim até o momento como falei esta funcionando lindamente... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Muito Obrigado pela ajuda e me desculpe qq coisa.

 

Atenciosamente

 

Hellxande

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito