Pasar variable a pop up

asegoviaz · #1 (**permalink**) 07/04/2005, 10:15

Buenas amigos, como le paso una variable a un pop-up

mariano_donati · #2 (**permalink**) 07/04/2005, 10:43

Hola, prueba con esto. Primero, la parte de JavaScript.

<SCRIPT language="JavaScript">
function popUp(parametro)
{
window.open{"tu_pagina.asp?id_prod="+parametro,"", "width=500,height=500"}
}
</SCRIPT>

Y en la pagina ASP tendrias lo siguiente:

set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "DRIVER={MicrosoftACcess Driver (*.mdb)}; DBQ=" & Server.MapPath("tu_base.mdb")

set RS = Server.CreateObject("ADODB.RecordSet")
RS.ACtiveConnection = conexion
RS.CursorTYpe = 1
RS.Open "SELECT * FROM tu_tabla"

do until RS.EOF
%>
<a href="cualquier_pagina.html" onclick="popUp(<%=RS("tu_campo")%>)">Ver foto</a>
<%
RS.MoveNext
loop

RS.CLose
set RS = nothing
conexion.Close
set conexion = nothing

Te explico mas o menos como funciona. Primero tenemos la funcion que nos abre uan ventana popUp, a la cual le pasamos un argumento "parametro" que sera el valor de la variable, en mi caso, id_prod.
Luego en la pagina ASP recorro todos los registros de una tabla cualquiera y pongo un link "ver foto", que contiene el evento onclick. Cuando hacemos click sobre el, ejecutamos la funcion popUp, pasandole como argumento el valor de un campo cualquiera del RS.Este, obviamente, será el valor de la variable id_prod de la URL que especificamos en la funcion popUp.
Espero que te sirva y que no te haya hecho mas lio con mi explicación.
Saludos.

angelseron · #3 (**permalink**) 07/04/2005, 11:19

hola mariano mi caso es parecido pero un poco diferente mira este es mi tema desde un html hay un boton gif (recomeinda la web) que al dar click llama a un poput asp donde hay un formulario que lo que haces es mandar la apgina actual de donde has clcikeado el boton y toda la cosa. el asunto es queme dado cuenta que la variable de de la pag. a enviar al correo no pasa cuando es un poput. pero tb lo porbe sin poput y todo funciona muy bien por eso creo que al hacer el poput parece que se pierde la variable link=request.servervariables("HTTP_REFERER")%>, no so experto en asp por eso te pido tu ayuda ya que este codigo me lo io un amigo y lo adpte a mi diseno,,

-te voy pasar e codigo del html que lama al poput

<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp','recomienda','width=398,hei ght=434')"><img src="../images/b_enviar.gif" width="112" height="30" border="0"></a>

- aqui va el asp

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Recommends</title>
<style type="text/css">

</style>
</head>

<body>

<TABLE WIDTH=347 HEIGHT=444 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0 ID="Tabla_01">
<TR>
<TD WIDTH=347 HEIGHT=11 COLSPAN=3></TD>
</TR>
<TR>
<TD WIDTH=14 HEIGHT=421></TD>
<TD WIDTH=321 HEIGHT=421 valign="top"><TABLE ID="Tabla_01" WIDTH=321 HEIGHT=421 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=3>
<IMG SRC="images/cabe_recomendar.gif" WIDTH=321 HEIGHT=108 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3>
<IMG SRC="images/titu_recomendar.gif" WIDTH=321 HEIGHT=31 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=7 HEIGHT=266 background="images/f_recomen_izq.gif"></TD>
<TD WIDTH=308 HEIGHT=266 valign="top"><table width="308" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"><table width="308" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"><span class="Estilo9">
<%If request.form("enviar") = "" then
link=request.servervariables("HTTP_REFERER")%>
<FORM METHOD="POST" ACTION="recomendar_friend.asp">
<TABLE WIDTH="300" BORDER="0" CELLSPACING="0" CELLPADDING="0"
ALIGN="center">
<TR>
<TD COLSPAN="3"><br>
<DIV ALIGN="center"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <b>Tell a friend about this page. <br>
</b></font></DIV>
<DIV ALIGN="center"> </DIV></TD>
</TR>
<TR>
<TD WIDTH="120" height="30" class="Estilo12">Your name</font></TD>
<TD WIDTH="5"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD WIDTH="175"><input type="text" NAME="Nombre" style="font-size:11px; background-color:#FCF6E7; font-family:verdana;color:#3c78bd; BORDER-RIGHT: #84A4C8 1px solid; BORDER-TOP: #84A4C8 1px solid; BORDER-LEFT: #84A4C8 1px solid; WIDTH: 170px; height: 18px; BORDER-BOTTOM: #84A4C8 1px solid" maxlength="65"></TD>
</TR>
<TR>
<TD height="30"><span class="Estilo12">Your e-mail</span></TD>
<TD WIDTH="12"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD><INPUT TYPE="text" NAME="tuemail" style="font-size:11px; background-color:#FCF6E7; font-family:verdana;color:#3c78bd; BORDER-RIGHT: #84A4C8 1px solid; BORDER-TOP: #84A4C8 1px solid; BORDER-LEFT: #84A4C8 1px solid; WIDTH: 170px; height: 18px; BORDER-BOTTOM: #84A4C8 1px solid" maxlength="65"></TD>
</TR>
<TR>
<TD height="30"><span class="Estilo12">Name of your friend</span></TD>
<TD WIDTH="12" rowspan="2"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD><input type="text" name="nombreamigo" style="font-size:11px; background-color:#FCF6E7; font-family:verdana;color:#3c78bd; BORDER-RIGHT: #84A4C8 1px solid; BORDER-TOP: #84A4C8 1px solid; BORDER-LEFT: #84A4C8 1px solid; WIDTH: 170px; height: 18px; BORDER-BOTTOM: #84A4C8 1px solid" maxlength="65">
</TD>
</TR>
<TR>
<TD height="30"><span class="Estilo12">E-mail of your friend</span></TD>
<TD><INPUT TYPE="text" NAME="email1" style="font-size:11px; background-color:#FCF6E7; font-family:verdana;color:#3c78bd; BORDER-RIGHT: #84A4C8 1px solid; BORDER-TOP: #84A4C8 1px solid; BORDER-LEFT: #84A4C8 1px solid; WIDTH: 170px; height: 18px; BORDER-BOTTOM: #84A4C8 1px solid" maxlength="65"></TD>
</TR>
<TR>
<TD height="73"><span class="Estilo12">Comment on<br>
this page:</span></TD>
<TD WIDTH="12"></TD>
<TD><textarea rows="4" name="comentarios" cols="25" style="font-size:11px; background-color:#FCF6E7; font-family:verdana;color:#3c78bd; BORDER-RIGHT: #84A4C8 1px solid; BORDER-TOP: #84A4C8 1px solid; BORDER-LEFT: #84A4C8 1px solid; BORDER-BOTTOM: #84A4C8 1px solid"></textarea>
</TD>
</TR>
<TR><TD COLSPAN="3" HEIGHT="50"><center><input type="hidden" name="enviar" size="2" value="SI"><input type="hidden" name="link" size="20" value="<%=link%>"><INPUT TYPE="submit" NAME="sub" VALUE="Send"></center></TD></TR></TABLE></FORM>
<%End If%>
<%If request.form("enviar") = "SI" then%>
<p>
</span>
<P ALIGN="CENTER"><span class="Estilo34"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <br>
<br>
<br>
Sent email, Thanks To recommend Our Site. <br>
</font></span><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<div align="center">http://www.peruforless.com</div>
</font></strong>
<div align="center"><span class="Estilo34"></span></div>
<span class="Estilo34"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<br>
</font></span><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<P ALIGN="CENTER"><span class="Estilo34">  <a href="javascript:close();">Close window</a></span></P>
</font>

<span class="Estilo9">
<P ALIGN="CENTER">
<%strHost = "mail.peruforless.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"

Mail.FromName = request.form("nombre")

Mail.AddReplyTo request.form("tuemail")

'response.write request.form("email1")

Mail.AddAddress request.form("email1")
titulo=Request.form("")&" Te Recomienda un Articulo de peruforless.com "
Mail.Subject = titulo
Mail.IsHTML = True

mensaje="<html><head>"
mensaje=mensaje & "<title>Recomendacion</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <table width=405 border=0 cellpadding=0 cellspacing=1 bgcolor=#999999>"&vbcrlf
mensaje=mensaje & " <tr><td bgcolor=#FFFFFF>"&vbcrlf
mensaje=mensaje & " <a href=http://www.peruforless.com>"&vbcrlf
mensaje=mensaje & " <img border=0 src=http://www.peruforless.com/images/cabe_mail.jpg width=405 height=99></a></td></tr>"&vbcrlf
mensaje=mensaje & " <tr> <td bgcolor=#FFFFFF>"&vbcrlf
mensaje=mensaje & " <table border=0 width=390 align=center>"&vbcrlf
mensaje=mensaje & " <tr><td><br><br><font color=#FF0000>Hi!<b>"&request.form("nombreamigo")& "</font></b><br>"&vbcrlf
mensaje=mensaje & " <p>Your friend: <b><font color=#000000>"& Request.form("Nombre")&" </font></b>(<font color=#000000><a href=mailto:"&request.form("tuemail")&">"&vbcrlf
mensaje=mensaje & request.form("tuemail")&"</a></font>) "&vbcrlf
mensaje=mensaje & " te recomienda que visites:</p>"&vbcrlf
mensaje=mensaje & " <p size=4><a href="&Request.form("link")&">"&Request.form("link ")&"</a></p>"&vbcrlf
mensaje=mensaje & " <p>Además te Comenta que:"&vbcrlf
mensaje=mensaje & " </td></tr></table>"&vbcrlf
mensaje=mensaje & " <div align=justify>"&vbcrlf
mensaje=mensaje & " <table border=0 width=390 bgcolor=#FFFFFF align=center>"&vbcrlf
mensaje=mensaje & " <tr><td><br><b>"&Request.form("comentarios")&"</td>"&vbcrlf
mensaje=mensaje & " </tr> </table></b> </div>"&vbcrlf
mensaje=mensaje & " <p align=center><img border=0 src=http://www.peruforless.com/images/hotel_puntos02.gif ></p>"&vbcrlf
mensaje=mensaje & " <center>Mensaje enviado desde <a href=http://www.peruforless.com>http://www.peruforless.com</a><br>"&vbcrlf
mensaje=mensaje & " Texas USA<br><br></center></body></html>"&vbcrlf

Mail.Body = mensaje
Mail.Send %>
<%End If%>
</span></td>
</tr>
</table></td>
</tr>
</table></TD>
<TD WIDTH=6 HEIGHT=266 background="images/f_recomen_der.gif"></TD>
</TR>
<TR>
<TD COLSPAN=3>
<IMG SRC="images/abj_recomendar.gif" WIDTH=321 HEIGHT=16 ALT=""></TD>
</TR>
</TABLE></TD>
<TD WIDTH=12 HEIGHT=421></TD>
</TR>
<TR>
<TD WIDTH=347 HEIGHT=12 COLSPAN=3></TD>
</TR>
</TABLE>
</body>
</html>

*** dicho codigo me funciona bien cuando lo utilizo sin el poput saludos un abrazo alli te mando la url de mi web que aplique el codigo pero ahportia esta en el modo sin poput por eso funciona buen, con poput no manda el url manda todo menos el url.

http://www.peruforless.com/budgetTou...s_arequipa.htm

Cap.Buscapina · #4 (**permalink**) 07/04/2005, 19:30

Me voy a meter y tal vez solo cree confución, pero no es mas fácil enviar informacion en la url de la llamada al popup

ej
<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp?variable=" & valorvariable & "','recomienda','width=398,hei ght=434')"><img src="../images/b_enviar.gif" width="112" height="30" border="0"></a>

no se si es lo que preguntas pero a lo mejor te puede ayudar, y si no , suerte.

chau

mariano_donati · #5 (**permalink**) 08/04/2005, 09:22

Mira, puedes crearte un codigo similar al primero que puse yo. Es decir, create una función JavaScript para abrir un popUp y pasale un argumento, el cual contendrá el valor de la variable, llamemosla, "pagina", o el nombre que hayas designado. Vamos por parte, la función javascript sería así:

<script language="javascript">
function popUp(parametro)
{
window.open("recomienda_friend.asp?pagina="+parame tro,"","directories=no, bla, bla")
}

Entonces ahora desde el botón que tienes llamas a la función popUp y le pasas como argumento la variable, creo que tu la llamaste asi, "LINK". Te quedaría algo así:

<a href="#" onclick="popUp(<%=Link%>)">....</a>

Intenta con eso y luego avisame que tal te fue. Te comento que yo tampoco soy un experto en esto, y mucho menos de javascript, más bien soy novato en esto de programación, pero he utilizado varias veces códigos similares por lo que ya me acostumbré. Espero que te hayan servido.
Saludos.

angelseron · #6 (**permalink**) 08/04/2005, 10:03

gracias por responder como puedo aniar este comando

<%=Server.HTMLEncode(Request.ServerVariable("SCRIP T_NAME"))%>

a este que usa el poput

<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp','recomienda','width=398,hei ght=434')"><img src="../images/b_enviar.gif" width="112" height="30" border="0"></a>, lo que pasa que etsba aninado pero parec que lo esoy poniendo mal nose si estara bien porque me sale error deen esa linea

<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp?<%=Server.HTMLEncode(Request .ServerVariable("SCRIPT_NAME"))%>','recomienda','w idth=398,hei ght=434')"><img src="../images/b_enviar.gif" width="112" height="30" border="0"></a>

mariano_donati · #7 (**permalink**) 08/04/2005, 10:41

Mira, si yo estaría en tu situación haría lo siguiente. Guardo en una variable el comando. Y fijate, que estas pasando mal las variables por la URL. Recuerda que luego del signo de pregunta, tenemos que definir el nombre de la variable, y luego a esta le asignas el valor que corresponda, en este caso, supongo que debe ser el comando que me pasaste. Te quedaría así:

tu_variable = Server.HtmlEncode(Request.SeverVariable("SCRIPT_NA ME"))

y luego le pasas este valor por la URL.

<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp?nombre_variable=<%=tu_variab le%>')

Espero que te funcione.
Saludos.

angelseron · #8 (**permalink**) 08/04/2005, 14:27

gracias mna or responde pero un duda que por alli me dijeron..mira yo tengo la web www.peruforless.com/default.htm en el default.htm supongamos pongo el boto que me dastes que va llmar un poput

<a href="#" onClick="MM_openBrWindow('../recomendar_friend.asp?nombre_variable=<%=tu_variab le%>')>imagen.gif</a>

mi pregunat en que aldo pondria la tu_variable = Server.HtmlEncode(Request.SeverVariable("SCRIPT_NA ME"))

del default.html , quiesoera sber tb si par que funcine tiene que ser esta pagina default.asp o con html tb funcionana esos comandos.