Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Mandar formulario error
 Foro Bloqueado  Tema Bloqueado


Autor Temas
erciyes
Starting Member

España
23 Posts
Mensajes - 25 Apr 2005 :  11:31:57  Ver Perfil  Enviar Email
Bien tengo este formulario pero al enviar e da error. Alguien me podria decir cuale s el problema????

Gracias

--------------------------------------------

<%@ LANGUAGE=JScript %>
<%

if (Request.Form+"." != "undefined.") {

objMail = Server.CreateObject("Persits.MailSender")

HTML = new String()
HTML += "<HTML>"
HTML += "<HEAD>"
HTML += "<TITLE>Formulario contacto</TITLE>"
HTML += "</HEAD>"
HTML += "<BODY bgcolor=#FFFFFF>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Formulario contacto</font></h4><br><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Nombre: "+Request.Form('nombre')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Apellidos: "+Request.Form('apellidos')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Telefono: "+Request.Form('telefono')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Hora de contacto: "+Request.Form('hora')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">E-mail: "+Request.Form('e-mail')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Empresa: "+Request.Form('empresa')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">¿ Que desea decirnos?: "+Request.Form('comentarios')+"</font></h4><br>"
HTML += "<h4> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Informacion: "+Request.Form('informacion')+"</form></h4><br>"
HTML += "</BODY>"
HTML += "</HTML>"

objMail.Host="smtp.e-maquinaria.com"
objMail.From = "jagiraldo@neo-si.com"
objMail.AddAddress ("jagiraldo@neo-si.com")
objMail.Subject = "Formulario de contacto"
objMail.Body = HTML
objMail.IsHTML=1
objMail.Send()

Response.write("<script>alert('Los datos han sido enviados')</script>")
}
%>
<html>
<head>
<title>Formulario</title>
<META name="description" content="Formulario">
<META name="keywords" content="Contacto">
<META name="robots" content="All">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script>
function validar(){
if ((document.tasacion.nombre.value + "." == '.')&&
(document.tasacion.apellidos.value + "." == '.')
(document.tasacion.telefono.value + "." == '.')
(document.tasacion.e-mail.value + "." == '.'))
{
alert ('Introduzca sus datos correctamente para que le podamos enviar una respuesta');
return false;
}
document.tasacion.submit();
return true;
}

function cerrar(){
window.close();
}
</script>
<style type="text/css">
<!--
@import url("../estilos/emaquinariav2.css");
-->
</style>
</head>
<body bgcolor="#EFF0F1" leftmargin="0" topmargin="0">
<blockquote>
<p><img src="../images/logos/logoblanco1.jpg" width="221" height="52"></p>
<p align="justify" class="titulosmallazul"> <span class="titulo"> <span class="e-">
e-</span><span class="maquinaria">maquinaria</span></span><font size="-1">
</font> le ofrece los mejores expertos para asesorarle y hacer as&iacute;
su trabajo m&aacute;s f&aacute;cil. No lo dude, si necesita ayuda a la hora
de comprar, vender o alquilar una m&aacute;quina no dude en contactar con
nosotros, no le defraudaremos. Tiene a su disposici&oacute;n nuestro numero
de tel&eacute;fono <span class="titulosmall">902 160 518</span>, tambi&eacute;n
puede ponerse en contacto a trav&eacute;s del siguiente formulario<font color="#EFF0F1">.</font></p>
</blockquote>
<hr>
<div align="center">
<table width="700" border="0" cellpadding="1" cellspacing="0" bgcolor="#EFF0F1" class="estilo4">
<tr class="estilo7">
<td width="20%"><blockquote><form name="form6" method="post" action="formulario.asp">
<p><span class="titulosmall">Nombre: </span><span class="titulosmallazul">(*)</span></p>
</blockquote></td>
<td width="30%">
<input name="Nombre" type="text" id="Nombre" size="30">
</td>
<td width="15%"><span class="titulosmall">Apellidos: </span><span class="titulosmallazul">(*)</span></td>
<td width="35%">
<input name="Apellidos" type="text" id="Apellidos" size="30">
</td>
</tr>
<tr class="estilo7">
<td><blockquote>
<p><span class="titulosmall">Telefono:</span> <span class="titulosmallazul">(*)</span></p>
</blockquote></td>
<td>
<input name="Telefono" type="text" id="Telefono" size="30">
</td>
<td class="titulosmall"><span class="titulosmall">E-mail:</span> <span class="titulosmallazul">(*)</span></td>
<td>
<input name="Hora de contacto" type="text" id="Hora de contacto" size="30">
</td>
</tr>
<tr class="estilo7">
<td class="titulosmall"><blockquote>
<p>Empresa:</p>
</blockquote></td>
<td>
<input name="E-mail" type="text" id="E-mail" size="30">
</td>
<td class="titulosmall">Actividad:</td>
<td>
<input name="Empresa" type="text" id="Empresa" size="30">
</td>
</tr>
<tr class="estilo7">
<td height="23"><blockquote>
<div align="left" class="titulosmall">&iquest;En que le podemos ayudar?</div>
</blockquote></td>
<td colspan="3" rowspan="2">
<textarea name="&iquest;Que desea decirnos?" cols="60" rows="7" wrap="PHYSICAL" id="&iquest;Que desea decirnos?"></textarea>
</td>
</tr>
<tr class="estilo7">
<td>&nbsp;</td>
</tr>
<tr class="estilo7">
<td colspan="4">
<blockquote>
<p class="titulosmall">Los Campos se&ntilde;alados con<span class="titulosmallazul">
(*)</span> son obligatorios.</p>
</blockquote>
</td>
</tr>
<tr class="estilo7">
<td colspan="4">
<div align="center">
<INPUT name="submit" TYPE="button" onClick="javascript:cerrar();" VALUE="Cerrar">
<INPUT name="submit" TYPE="submit" onClick="validar()" VALUE="Enviar">
</div>
</form></td>
</tr>
</table>
</div>
</body>
</html>


erciyes
Starting Member

España
23 Posts
Posted - 25 Apr 2005 :  12:56:21  Ver perfil  Enviar e-mail
He cambiado el codigo a uno mas simple y me envia el correo pero despues de una hora no me ha llegado ningunno. Os dejo el codigo si em podeis ayudar me harais un gran favor.

Salu2

<%

'response.Write(Request.Form("Origen"))
'response.Write(Request.Form("Destino"))
'response.Write(Request.Form("Asunto"))
'response.Write(Request.Form("Mensaje"))
'response.end

Origen = Request.Form("Origen")
Destino = Request.Form("Destino")
Asunto = Request.Form("Asunto")
Mensaje = Request.Form("Mensaje")


Dim Mail

set Mail=Server.CreateObject("Persits.MailSender")


Mail.Host = "server smtp"
Mail.From = "e-mail"
Mail.FromName = "Carlos"
Mail.AddAddress "e-mail"
Mail.Subject = "REcomendar"

Mail.Body = "Hola mundo!"
On Error Resume Next
Mail.Send

if Err <> 0 Then
Response.Write ( "Error: " & Err.Description )
else
Response.Write ( "Mail enviado." )
end if


response.Write(Enviado)

'response.end

%>


Inicio Pagina

ce
Average Member

España
523 Posts
Posted - 26 Apr 2005 :  09:55:14  Ver perfil  Enviar e-mail  Visit ce's Homepage
A ver....
1. recojes los valores de origen, destino, etc. pero luego no los usas ¿?
2. el mail lo envias a: Mail.AddAddress "e-mail"... que es "e-mail"?? deberia ser:
Mail.AddAddress destino
3. donde pones: Mail.Host = "server smtp" deberia ser Mail.Host = "smtp.tudominio.com", no?

Resumiendo y teniendo en cuenta tus datos:

Origen = Request.Form("Origen")
Destino = Request.Form("Destino")
Asunto = Request.Form("Asunto")
Mensaje = Request.Form("Mensaje")

Mail.Host = "smtp.tudominio.com"
Mail.From = origen
Mail.FromName = "Titulo del mail"
Mail.AddAddress Destino
Mail.Subject = Asunto
Mail.Body = Mensaje
On Error Resume Next
Mail.Send
....


Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar