como fitrar e redirecionar

marvazoler · Fevereiro 1, 2008

Olá galera beleza?

Tenho o seguinte problema

Tenho uma tela de filtragem com a tela de resposta para essa filtrgem, porém tem uma situação que vou ter que dependendo da filtragem ou seja o valou do campo redireciona para outra tela de resposta.

Tenho como fazer isso?

Desde já agradeço

sr.silva · Fevereiro 1, 2008

Sim.

Você pode fazer ou com ASP ou com JavaScript.

Coloque a parte do seu código aqui. Assim avaliaremos o que usar, ok ?

[]´s ;)

marvazoler · Fevereiro 1, 2008

Olá camarada beleza?

eu creio que parte fica dificil pois usa muita coisa para objetos interagirem

<% @LANGUAGE = VBScript %>
<%
	Option Explicit
	Response.Expires = 0
	'variáveis
		Dim objConn, objRS, strQuery
		Dim strConn, strQ, mBaseDir
		Dim objRSet, objRSe, strQry
		Dim linha, marcador, codigo

	'conexão com o banco
		Set objConn = Server.CreateObject("ADODB.Connection")
		strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath(mBaseDir & "banco/joana_darc_col.mdb")
		objConn.open strConn

	'abre o recordset e usa a conxeão com o banco(objConn)
		Set objRS = Server.CreateObject("ADODB.Recordset")
		Set objRS.ActiveConnection = objConn
	
	'seleciona os dados necessários da tabela Linha
		strQuery = "SELECT codigo, linha FROM linha "
		strQuery = strQuery & "ORDER BY linha"
		objRS.Open strQuery

	'abre o recordset e usa a conxeão com o banco(objConn)
		Set objRSet = Server.CreateObject("ADODB.Recordset")
		Set objRSet.ActiveConnection = objConn
	
	'seleciona os dados necessários da tabela Dia
		strQ = "SELECT codigo, dia FROM dia "
		strQ = strQ & "ORDER BY dia"
		objRSet.Open strQ

		linha = ""
		if Request.ServerVariables("REQUEST_METHOD") = "GET" then
			linha = request.querystring("linha")
		end if
%>
<html>
<head>
<style type="text/css">
<!--
.txt {
	border: 1px solid #CCCCCC;
	text-transform: uppercase;
	font-size: 9px;
}
-->
</style>
<style type="text/css">
<!--
.email {
	border: 1px solid #CCCCCC;
	text-transform: lowercase;
	font-size: 9px;
}
-->
</style>
<style type="text/css">
<!--
.tbl {
	border: 1px solid #CCCCCC;
	font-size: 9px;
}
-->
</style>
<style type="text/css">
<!--
.botao {
	border: 1px solid;
}
-->
</style>

<title>Viação Joana D'arc - Linhares-ES</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function janelanimada(endereco) {
	var linha = document.form_horario.linha.value;
	var dia = document.form_horario.dia.value;
	var trajeto = document.form_horario.trajeto.value;
	endereco = endereco + "?linha=" + linha + "&dia=" + dia + "&trajeto=" + trajeto;
  window.open(endereco,'', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,re
sizable=no,left=35,top=10,width=670,height=500');
}  

<!--
function limpa()
{
	document.form_horario.reset();
}
	
-->
</script>

<style type="text/css">
<!--
a:hover {  color: #0099CC; text-decoration: none}
.input {  font-family: Arial, Helvetica, sans-serif;
		A  color: #000000;
		  text-decoration: none;
		  background-color: #0099CC;
		  border-right: 1px solid #000000;
 		  border-left: 1px solid #000000;
		  border-top: 1px solid #000000;
		  border-bottom: 1px solid #000000;
		  font-size: 12px}
-->
</style>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
	var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
	if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<script language="JavaScript">
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { 
src.style.cursor = 'hand'; src.bgColor = clrOver; }}function 
mOut(src,clrIn) { if (!src.contains(event.toElement)) { 
src.style.cursor = 'default'; src.bgColor = clrIn; }} function 
mClk(src) { 
if(event.srcElement.tagName=='TD'){src.children.tags('A')[0].click();} 
}

function Switch(imgName, imgSrc)
{
   if (document.images) {
	  document[imgNAame].src = "http://lww.com/lwwimages/" + imgSrc;
   }
}
function escolhe_linha(campo) {
Ncampo = campo.selectedIndex;
Linha = campo.options[Ncampo].value;
location = "filtrar030_teste.asp?linha=" + Linha;
}
</script>
<script language="JavaScript">
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { 
src.style.cursor = 'hand'; src.bgColor = clrOver; }}function 
mOut(src,clrIn) { if (!src.contains(event.toElement)) { 
src.style.cursor = 'default'; src.bgColor = clrIn; }} function 
mClk(src) { 
if(event.srcElement.tagName=='TD'){src.children.tags('A')[0].click();} 
}

function Switch(imgName, imgSrc)
{
   if (document.images) {
	  document[imgName]A.src = "http://lww.com/lwwimages/" + imgSrc;
   }
}
function escolhe_linha(campo) {
Ncampo = campo.selectedIndex;
Linha = campo.options[Ncampo].value
location = "linha030_teste.asp?linha=" + Linha
}
</script>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY vLink=#fb7d00 aLink=#fb7d00 link=#fb7d00 leftMargin=0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>	
	<td align="center" valign="middle"> 
	  <form name="form_horario" method="GET" action="linha030_result.asp">
		<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" class="tbl">
		  <tr> 
			<td height="20" colspan="2" align="left" valign="top"> <div align="center"><font color="#799090" size="3" face="Arial, Helvetica, sans-serif"><strong> 
				<BR>
				<font color="#3FAFC3">CONSULTA DE HORÁRIOS </font> </strong></font> 
			  </div></td>
		  </tr>
		  <tr> 
			<td height="20" colspan="2" align="left" valign="top"> <div align="center"><font color="#799090" face="Arial" size="1"> 
				<BR>
				<font color="#3FAFC3" size="2">Selecione as informações 
				desejada</font></font><font color="#799090" face="Arial" size="2"><BR>
				</font></div></td>
		  </tr>
		  <tr> 
			<td width="90" height="24" align="center" valign="middle"> <div align="left"><font face="Arial" size="2" color="#006699"><font color="#3FAFC3"> Grupo 
				Linha:</font></font></div></td>
			<td width="358" align="center" valign="middle"> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"> 
				<select name="linha" onChange="escolhe_linha(linha);">
				  <option value="">Selecione o Grupo.</option>
				  <%while Not objRS.EOF 
				  linha = CStr(linha)
				  codigo = CStr(objRS("codigo"))
				  marcador = ""
				  if linha = codigo then
					  marcador = "selected"
				  end if
				  %>
				  <option value="<%Response.Write objRS("codigo")%>" <%=marcador%>> 
				  <% Response.Write ("0" & objRS("codigo"))%>
				   -  
				  <%Response.Write objRS("linha")%>
				  </option>
				  <%objRS.MoveNext
				  Wend%>
				</select>
				</font></div></td>
		  </tr>
		  <tr> 
			<td height="24" align="left" valign="middle"> <div align="left"><font face="Arial" size="2" color="#006699"><font color="#3FAFC3"> Linha:</font></font></div></td>
			<td align="center" valign="middle"> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"> 
				<%
			'abre o recordset e usa a conxeão com o banco(objConn)
			Set objRSe = Server.CreateObject("ADODB.Recordset")
			Set objRSe.ActiveConnection = objConn
	
			'seleciona os dados necessários da tabela Trajeto
			strQry = "SELECT codigo, descr FROM trajeto "
			if linha <> "" then
				strQry = strQry & "Where linha = " & linha & " "
			end if
			strQry = strQry & "ORDER BY descr"
			objRSe.Open strQry
			%>
				<select name="trajeto">
				  <option value="0">Selecione a Linha.</option>
				  <%while Not objRSe.EOF%>
				  <option value="<%Response.Write objRSe("codigo")%>"> 
				  <% Response.Write ("0" & objRSe("codigo"))%>
				   -  
				  <%Response.Write objRSe("descr")%>
				  </option>
				  <%objRSe.MoveNext
				  Wend%>
				</select>
				</font></div></td>
		  </tr>
		  <tr> 
			<td height="24" align="left" valign="middle"><font face="Arial" size="2" color="#006699"><font color="#3FAFC3"> Dia:</font></font></td>
			<td align="center" valign="middle"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"> 
				<select name="dia">
				  <option value="0">TODOS</option>
				  <%while Not objRSet.EOF%>
				  <option value="<%Response.Write objRSet("codigo")%>"> 
				  <%Response.Write objRSet("dia")%>
				  </option>
				  <%objRSet.MoveNext
				  Wend%>
				</select>
				</font></div></td>
		  </tr>
		  <tr> 
			<td height="40" colspan="2" align="center" valign="middle"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
			  <input type="submit" name="Submit" value="Enviar" class="botao">
			  <input type="reset" name="Submit2" value="Limpar" class="botao">
			  </font></td>
		  </tr>
		</table>
  </form>
	</td>
  </tr>
</table>
</BODY>
</HTML>

Entrar

Arquivado

como fitrar e redirecionar

Recommended Posts

marvazoler 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

sr.silva 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

marvazoler 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP - Cadastro de Faturamento

Passar Hora para Campo Input automaticamente

Remover formatação ao colar um texto em uma textarea

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante