o sea, lo que nesecito es concretamente, una ventanita emergente tipo popup, no se si podria servir el codigo que tunait puso una vez en este foro, de ventans ajustadas a una foto, modificarlo y poner un codigo .asp dentro con un .asp que envie todo a un mail, o sea seria facil supongo. no lo se, tengo la idea,pero pondria aqui el codigo de tunait y aver si se puede modificar, y el codigo .asp tambien, bah el codigo .asp lo tengo digamos,pero no se como modifiar el codigo del popup para luego insertar el .asp, estyo liado.
aca abajo coloco todos los codigos que funcionan perfectos para lo que fueron diseñados,pero me gustaria adjuntarlos para poder hacer lo que nesecito, es posible?
lo que busco es una ventanitra como la que se desplaza en esta web que vi :
http://www.rankingargentinas.com.ar/index.php?a_m=1 , la ventanita de 59
un abrazo.
codigo tunait y .asp :
<script language="javascript">
<!--
//script por Tunait
var ventana
var cont=0
var titulopordefecto = "escorts" //texto por defecto a mostrar en la barra de título en caso de omitir el argumento titulo
function afoto(cual,titulo)
{
if(cont==1){ventana.close();ventana=null}
if(titulo==null){titulo=titulopordefecto}
ventana=window.open('','ventana','resizable=yes,sc rollbars=no')
ventana.document.write('<html><head><title>' + titulo + '</title></head><body style="overflow:hidden" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0" scroll="no" onUnload="opener.cont=0"><img src="' + cual + '" onLoad="opener.redimensionar(this.width, this.height)">')
ventana.document.close()
cont++
}
function redimensionar(ancho,alto)
{
ventana.resizeTo(ancho+12,alto+50)
ventana.moveTo((screen.width-ancho)/64,(screen.height-alto)/32) //centra la ventana. Eliminar si no se quiere centrar el popup
}
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;
}
//-->
</script>
html y asp del formulario :
</head>
<body>
<br />
<form action="envio_activa.asp" method="post">
<p><br />
<br />
<br />
<br />
<br />
<br />
<br />
</p>
<table width="223" height="395" border="1" align="center" cellpadding="5" cellspacing="5">
<tr>
<td>Nombre: </td>
<td><input name="txtNombre" type="text" id="txtNombre" /></td>
</tr>
<tr>
<td>Apellido: </td>
<td><input name="txtApellido" type="text" id="txtApellido" /></td>
</tr>
<tr>
<td>Caracter: </td>
<td><input name="txtCaracter" type="text" id="txtCaracter" /></td>
</tr>
<tr>
<td>Edad: </td>
<td><input name="txtEdad" type="text" id="txtEdad" /></td>
</tr>
<tr>
<td>Signo: </td>
<td><input name="txtSigno" type="text" id="txtSigno" /></td>
</tr>
<tr>
<td>Descripcion: </td>
<td><textarea name="txtDescripcion" id="txtDescripcion"/ ></td>
</tr>
<tr>
<td> </td>
<td><input name="enviar" type="submit" id="enviar" value="enviar" /></td>
</tr>
</table>
<p> </p>
<p>
<label></label>
<br />
<br />
</p>
</form>
</body>
.asp :
<%
txtNombre = request.Form("txtNombre")
txtApellido = request.Form("txtApellido")
txtEdad = request.Form("txtEdad")
txtsigno = request.Form("txtsigno")
txtCaracter = request.Form("txtCaracter")
txtConsulta = request.Form("txtConsulta")
'Envio
Dim objNewMail
Set objNewMail = Server.CreateObject("CDO.message")
objNewMail.From = "
[email protected]"
objNewMail.To = "
[email protected]"
objNewMail.Subject = "Consulta desde el formulario"
txt = ""
txt = txt & " lo que quiero enviar " & "<br />" & "<br />"
txt = txt & " " & "<br />" & "<br />"
txt = txt & "Nombre: " & txtNombre & "<br />"
txt = txt & "Apellido: " & txtApellido & "<br />"
txt = txt & "Edad: " & txtEdad & "<br />"
txt = txt & "Signo: " & txtsigno & "<br />"
txt = txt & "Caracter: " & txtCaracter & "<br />"
txt = txt & "Consulta: " & txtConsulta & "<br />"
txt = txt & " ----------------------------------------------" & "<br />"
objNewMail.HTMLBody = txt
objNewMail.Send
'response.Write(txt)
response.redirect "envioOK.html"
%>