Algun inteligentísimo ASPeiano me puede decir qué pasó?
Ayer probé la pagina donde envío un correo y al final quedó todo bien, lo enviaba perfecto.
Hoy quise "darle formato" bonito al mail y por eso empecé a tocar el código....
Conclusión: No funciona más. Me dice que envió el correo y no envía NADA.
Lo volví todo a como estaba ayer y nada.
No envía NADA.
POR QUÉ???????????
<%@LANGUAGE="VBSCRIPT"%> <%
Dim cadena
Dim quien
Dim resp
quien=Request.Form("cognome")& "<BR>" & Request.Form("nome")
cadena=Request.Form("cognome")& "<BR>" & Request.Form("nome")& "<BR>" & Request.Form("indirizo")& "<BR>" & Request.Form("cp")& "<BR>" & Request.Form("pais")& "<BR>" & Request.Form("provincia")& "<BR>" & Request.Form("ciudad")& "<BR>" & Request.Form("telefono")& "<BR>" & Request.Form("celulare")& "<BR>" & Request.Form("email")& "<BR>" & Request.Form("comentario")& "<BR>"
%>
<%
'Creamos el Objeto del mail.
Set Mail = Server.CreateObject ("CDONTS.Newmail")
'nuestra direccion de correo.
Mail.From = Request.Form("email")
'direccion del destinatario.
Mail.To = "
[email protected]"
'El asunto del mensaje a enviar.
Mail.Subject = "Envío de Formulario"
'Todo el texto que queremos mandar.
Mail.Body = cadena
Mail.BodyFormat = CdoBodyFormatHTML
Mail.MailFormat = CdoMailFormatMime
'Envio del mail....
Mail.Send
'Limpiamos el objeto.
Set Mail = Nothing
if Mail.Sendmail then
resp = ("Su e-mail ha sido enviado. Muchas Gracias")
else
resp = ("Su e-mail no pudo ser enviado. Por favor inténtelo nuevamente Error: " & Mail.Response)
end if
%>
y luego escribo <%=resp%>
Por favor... necesito solucionar esto cuanto antes.
GRACIAS!!!!!!!!!!!!!!!!!!!!!!