pasar datos entre paginas
Publicado por Violeta (1 intervención) el 04/01/2007 19:29:31
hola necesito ayuda.
estoy programando una pagina de validación de datos, esta pagina tiene enlasado un vinculo que me lleva a una popup de busqueda, el problema esta en que necesito utilizar valores de la pagina inicial, pero no se como pasar esos valores para poder utilizarlos en la validación de los datos que de hace en la pagina principal, este es el codigo que tengo de la pagina principal (nota, no estoy usando un boton para vincular las paginas busqueda y principal, es a traves de un imagen con vinculo a la popup de busqueda):
<td rowspan="2" valign="top"><a href="Busqueda_medico.asp?mat=65489232" onclick="window.open('busqueda_medico.asp' ,'','width=589,height=580,scrollbars=yes,resizable=no');return false" target=mainFrame><img src="imagenes/botonbusca.png" alt="" width="30" height="29" border="0" /></a></td>
y este es el codigo de la popup de busqueda:
<%
Dim oConn, RS, base, a, selecita, Conex,b,matricula
'Creamos el objeto de conexion ahora...'
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\LUIS MARQUEZ\Escritorio\Nueva carpeta (3)\Bds\agen_con_ext.mdb;"
textfield=response.write(Request.QueryString("mat"))
base = "SELECT * FROM ASIST_PRU_CON_EXT Where(matricula like'" & request.form("matricula")&"')"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open base, Conex
If rs.eof and rs.bof then
Do while not RS.EOF
%>
<script language="JavaScript">
<!--
this.alert ("<%
response.Write(Rs.Fields("nomcompmed")&"\n")
response.Write(Rs.Fields("matricula"))%>");
window.history.go(-1);
//-->
</script>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conex.Close
Set Conex = Nothing
end if
%>
espero que me puedan ayudar.
estoy programando una pagina de validación de datos, esta pagina tiene enlasado un vinculo que me lleva a una popup de busqueda, el problema esta en que necesito utilizar valores de la pagina inicial, pero no se como pasar esos valores para poder utilizarlos en la validación de los datos que de hace en la pagina principal, este es el codigo que tengo de la pagina principal (nota, no estoy usando un boton para vincular las paginas busqueda y principal, es a traves de un imagen con vinculo a la popup de busqueda):
<td rowspan="2" valign="top"><a href="Busqueda_medico.asp?mat=65489232" onclick="window.open('busqueda_medico.asp' ,'','width=589,height=580,scrollbars=yes,resizable=no');return false" target=mainFrame><img src="imagenes/botonbusca.png" alt="" width="30" height="29" border="0" /></a></td>
y este es el codigo de la popup de busqueda:
<%
Dim oConn, RS, base, a, selecita, Conex,b,matricula
'Creamos el objeto de conexion ahora...'
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\LUIS MARQUEZ\Escritorio\Nueva carpeta (3)\Bds\agen_con_ext.mdb;"
textfield=response.write(Request.QueryString("mat"))
base = "SELECT * FROM ASIST_PRU_CON_EXT Where(matricula like'" & request.form("matricula")&"')"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open base, Conex
If rs.eof and rs.bof then
Do while not RS.EOF
%>
<script language="JavaScript">
<!--
this.alert ("<%
response.Write(Rs.Fields("nomcompmed")&"\n")
response.Write(Rs.Fields("matricula"))%>");
window.history.go(-1);
//-->
</script>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conex.Close
Set Conex = Nothing
end if
%>
espero que me puedan ayudar.
Valora esta pregunta


0