Ver Mensaje Individual
  #5 (permalink)  
Antiguo 15/09/2004, 14:15
Avatar de iv19an
iv19an
 
Fecha de Ingreso: septiembre-2004
Mensajes: 44
Antigüedad: 20 años, 7 meses
Puntos: 0
Resp

Hola de nuevo.
Gracias por la respuestas.

Lo primero es que me gustaria es que si se envio correctamente la pagina se cerrase. Para ello he hecho lo siguiente. Os pongo aqui el codigo de mis 3 paginas:

El codigo del formulario, form.html:
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p align="center"><strong><u><font size="7">Formulario de contacto</font></u></strong></p>
<form method="post" action="envia.asp" name="Formulario">
<p>
<INPUT TYPE=hidden NAME="recipient" VALUE="[email protected]">
<INPUT TYPE=hidden NAME="subject" VALUE="Formulario de ejemplo">
<INPUT TYPE=hidden NAME="redirect" VALUE="web">
<INPUT TYPE=hidden NAME="required" VALUE="Personacontacto, Empresa, email ">
<input type=hidden name="missing_fields_redirect" value="http://host.es/error.html">
<input type=hidden name="print_config" value="Empresa,email,personacontacto,Poblacion,Men saje">
</p>
<p><b>Empresa:</b>
<input type="text" size="20" name="Empresa">
</p>
<p><b>NIF:</b>
<input name="NIF" type="text" size="12" maxlength="10">
</p>
<p> <b>Persona Contacto:</b>
<input type="text" size="27" name="Personacontacto">
</p>
<P>

<b>E-mail:</b>
<input type="text" size="20" name="Email" >

<P>

<b>Tel.:</b>
<input type="text" size="10" name="Telefono">


<b>Dirección:</b>
<input type="text" size="27" name="Direccion">

<P>

<b>CP:</b>
<input name="Cp" type="text" size="7" maxlength="5">

<b>Población:</b>
<input type="text" size="27" name="Poblacion">
<P> <b>Provincia:</b>
<input name="Provincia" type="text" value="" size="27">

<P><b>Profesi&oacute;n:
<select name="Profesion" id="Profesion">
<option> </option>
<option>Taller Aluminio</option>
<option>Constructor</option>
<option>Vidrero</option>
<option>Promotor</option>
<option>Instalador</option>
<option>Decorador</option>
<option>Arquitecto</option>
<option>Otros</option>
</select>
</b>
<P><b>Interesado en:
<select name="producto" id="producto">
<option> </option>
<option>Celos&iacute;as</option>
<option>Mosquiteras</option>
<option>Falsos Techos</option>
<option>Mamparas</option>
</select>
</b>
<P> <b>Introduzca aquí, sus comentarios. <br>
</b>
<textarea name="Mensaje" rows="6" cols="45"></textarea>
<P>
<center>
<B>(Exclusivo para profesionales)</B>
</center>

<center> <input type="submit" value=" Enviar "/>
<input name="reset" type="reset" value="Borrar todo" />
<input name="cancelar" value=" Cancelar " type="reset">
</center>
</FORM>
</body>
</html>



El codigo del envia.asp:

<%
Dim strempresa
Dim strNIF
Dim strPersonacontacto
Dim stremail
Dim strtelefono
Dim strdireccion
Dim strcp
Dim strpoblacion
Dim strprovincia
Dim strprofesion
Dim strproducto
Dim strmensaje
Dim objCDOMail
strempresa = Request.Form("empresa")
strNIF = Request.Form("NIF")
strPersonacontacto = Request.Form("Personacontacto")
stremail = Request.Form("email")
strtelefono = Request.Form("telefono")
strdireccion = Request.Form("direccion")
strcp = Request.Form("cp")
strpoblacion = Request.Form("poblacion")
strprovincia = Request.Form("provincia")
strprofesion = Request.Form("profesion")
strproducto = Request.Form("producto")
strmensaje = Request.Form("mensaje")
Set objCDOMail= Server.CreateObject("CDONTS.NewMail")
objCDOMail.From= "[email protected]"
objCDOMail.To= "[email protected]"
objCDOMail.Subject= "Formulario WEB"
objCDOMail.Body= "Empresa: "&strempresa & chr(13) &chr(10) & " Contacto: "& strPersonacontacto & chr(13) &chr(10) & " Telefono: " & strtelefono & chr(13) &chr(10) & " E-mail: " & stremail & chr(13) & chr(10) & " Dirección: " & strdireccion & chr(13) &chr(10) & " Poblacion: " & strpoblacion & chr(13) &chr(10) & " CP: " & strcp & chr(13) &chr(10) & " Provincia: " & strprovincia & chr(13) &chr(10) & " Profesión: " & strprofesion & chr(13) &chr(10) & " Producto: " & strproducto & chr(13) &chr(10) & " Comentarios: " & strmensaje
objCDOMail.Send
Set objCDOMail= Nothing
Response.Redirect "gracias.html"

%>


El codigo del gracias.html:

<html>
<head>
<title>Ventana Secundaria</title>
<script>
function cerrarse(){
window.close()
}
</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 bgcolor="#003366">
<div id="Layer1" style="position:absolute; left:348px; top:114px; width:340px; height:81px; z-index:1; background-color: #FFFFCC; layer-background-color: #FFFFCC; border: 1px none #000000; visibility: visible;">
<p align="center"><strong> Su formulario se ha enviado correctamente.</strong></p>
<p align="center"><strong>Gracias por contactar con "Empresa"</strong></p>
</div>



<div id="Layer2" style="position:absolute; left:481px; top:207px; width:56px; height:26px; z-index:2">
<input name="button" type=button onMouseMove="cerrarse()" value="Cerrar">
</div>
<form>
</form>

</body>
</html>


Como podeis ver este formulario esta hecho a base de otros, ya que no se mucho he ido haciendo una recopilacion de todos.

Quedo a la espera de que me digan si esta bien o que es lo que le falta.
Segun lo que me ha dixo Myakire, la pagina no se puede cerrar sin que el explorer pida confirmacion? SI es asi, no hay ninguna manera de hacerlo sin que pida confirmacion?

Muchas gracias de antemano.

Saludos