| Acerca de Applet78 | Blog | Mensajes |
Franco tiene 33 años, es hombre y nos visita desde Perú.
Hola,podrian ayudarme a resolver esto, tengo un formulario en con asp. que contiene consultas a otros asp con una conexion a Base de Datos. el probema que se me presenta es como puedo hacer una consulta mixta y enviar informacion a otro asp cuando selecciono el valor de los dos combos.
ayuda.... este es la pagina. les envio.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <!-- #include file = "../funciones1.asp"-->
<html>
<head>
<title>Busqueda</title>
<meta name="vs_showGrid" content="False">
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<%Set conectar=ReturnConnection() %>
<script id="clientEventHandlersJS" language="javascript">
<!--
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
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 MS_POSITIONING="GridLayout">
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#005a97">
<tr>
<td width="170" height="115" bgcolor="#ffffff"><div align="center"><img src="file://///Ias/PORT_DESA/images/logo.gif" width="152" height="102" /></div></td>
<td width="118" valign="bottom" bgcolor="#ffffff"><div align="right"><img height="25" src="file://///Ias/PORT_DESA/images/azul1.gif" width="103" /></div></td>
<td width="278" valign="bottom" bgcolor="#ffffff"><img height="52" src="file://///Ias/PORT_DESA/images/azul2.gif" width="278" /></td>
<td width="284" valign="bottom" bgcolor="#ffffff"><img src="file://///Ias/PORT_DESA/images/azul3.gif" width="284" height="79" /></td>
</tr>
<tr>
<td colspan="4"><table width="799" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="185"><img height="18" src="file://///Ias/PORT_DESA/images/azul4.gif" width="185" /></td>
<td width="199" height="18"><strong><img height="4" src="file://///Ias/PORT_DESA/images/spacer.gif" width="4" /></strong></td>
<td width="14"> </td>
<td width="66"> </td>
<td width="48"> </td>
<td width="52"> </td>
<td width="61"> </td>
<td width="26"> </td>
<td width="30"> </td>
<td width="62"> </td>
<td width="56"><img height="4" src="file://///Ias/PORT_DESA/images/spacer.gif" width="4" /></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="10" colspan="4"> </td>
</tr>
<tr>
<td height="14" colspan="4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/fondocuadros.gif">
<tr>
<td><img height="4" src="file://///Ias/PORT_DESA/images/spacer.gif" width="4" /></td>
</tr>
</table></td>
</tr>
</table>
<p>
</p>
<% if(Request.Form("envio")="") then%>
Seleccione el Catálogo:
<form method="post" action="catalogo.asp" ID="Form1" runat="server">
<%
'Consultas
strSQL="SELECT DISTINCT CATALOGO FROM SF_LOGISTICA"
'Ejecutar consultas
Set RS=ReturnRegistros(conectar,strSQL)
%>
<select name="nombres" ID="Select1">
<% Do While Not RS.Eof %>
<option selected><%=RS("CATALOGO")%>
<%
RS.MoveNext
Loop
%>
</option>
</select>
<input type="submit" value="Buscar Catálogo" name="envio" id="Submit4" language="javascript"
onclick="return Submit4_onclick()">
<%
End If
%>
</form>
<% if(Request.Form("envio1")="") then%>
Seleccione el Producto:<br>
<form method="post" action="producto.asp" ID="Form2" runat="server">
<%
'Consultas
stpSQL="SELECT DISTINCT FAMILIA FROM SF_LOGISTICA"
'Ejecutar consultas
'Set RP=conectar.Execute(stpSQL)
Set RP=ReturnRegistros(conectar,stpSQL)
%>
<select name="produ" ID="Select2">
<%
Do While Not RP.Eof
%>
<option selected><%=RP("FAMILIA")%>
<%
RP.MoveNext
Loop
%>
</option>
</select>
<input type="submit" value="Buscar Producto" name="envio1" ID="Submit1">
</form>
<p>
<% if(Request.Form("envio2")="") then%>
Seleccione el Programador:
</p>
<form action="programador.asp" method="post" name="" id="">
<p>
<%
'Consultas
str2SQL="SELECT DISTINCT PROGRAMADOR FROM SF_LOGISTICA"
'Ejecutar consultas
Set RPRO=ReturnRegistros(conectar,str2SQL)
%>
<select name="progra" ID="select4">
<%
Do While Not RPRO.Eof
%>
<option selected><%=RPRO("PROGRAMADOR")%>
<%
RPRO.MoveNext
Loop
%>
</option>
</select>
<input type="submit" value="Buscar Programador" name="envio2" id="envio25">
<% End If %>
</p>
</form>
<p>
<% if(Request.Form("envio3")="") then%>
Seleccione el Comprador: </p>
<form name="form2" method="post" action="comprador.asp">
<p>
<%
'Consultas
str2SQL="SELECT DISTINCT COMPRADOR FROM SF_LOGISTICA"
'Ejecutar consultas
Set RPRO=ReturnRegistros(conectar,str2SQL)
%>
<select name="compra" ID="select5">
<%
Do While Not RPRO.Eof
%>
<option selected><%=RPRO("COMPRADOR")%>
<%
RPRO.MoveNext
Loop
%>
</option>
</select>
<input type="submit" value="Buscar Comprador" name="envio3" id="envio3">
<% End If %>
</p>
</form>
<p>Ver toda la Tabla: </p>
<form method="post" action='' ID="Form4">
<input type="button" value="Ver Todo" onClick="window.location='vertodo.asp'" ID="Button1"
NAME="Button1">
</form>
<form action='' method="post" name="form1">
<A HREF="consultaMixta.asp?compra">click aca! </A>
<input type="submit" name="Submit" value="Submit">
</form>
<p> </p>
<p>
<%
'Cerramos el sistema de conexion
conectar.Close
End If
%>
</p>
</body>
</html>
2kras
wgerez