que puede pasar?
Código:
<%@LANGUAGE="VBSCRIPT"%>
. . .
<%
Set objMail=Server.CreateObject("CDONTS.NewMail")
objMail.From = (usuario.Fields.Item("email").Value)
objMail.To= "[email protected]"
objMail.Subject= request("Tema")
objMail.Body= request("Sugerencia")
objMail.MailFormat=cdoMailFormatMIME
objMail.Subject="Consulta sobre: "& Request("Tema")
objMail.BodyFormat=cdoBodyFormatHTML
strTexto="<html><body><font face=""Arial, Helvetica, sans-serif"" size=""-1"">"
strTexto=strTexto&"<br>Estimado Usuario, " & Request("Nombre") & ", hemos recibido su mensaje, con el siguiente contenido:"
strTexto=strTexto&"<br><hr><br>Empresa: " & Request("empresa")
strTexto=strTexto&"<br>e-mail: " & Request("email")
strTexto=strTexto&"<br>Teléfono: " & Request("telefono")
strTexto=strTexto&"<br>Consulta:"
strTexto=strTexto&"<br>"& Request("Sugerencia")
strTexto=strTexto&"<hr>Si comprueba que alguno de los datos de contacto anteriores no son correctos, envíenos de nuevo el formulario con los datos corregidos."
strTexto=strTexto&"<br><br>Esta solicitud será archivada en su carpeta personal."
strTexto=strTexto&"<br>En breve un miembro de nuestro equipo procesara la información y, en su caso, dará cumplida respuesta."
strTexto=strTexto&"<br><br>Usted puede ver 'on-line' su solicitud, así como la respuesta de nuestros técnicos, en el apartado '<b>Mis preguntas</b>' de la pestaña '<b>Consultas</b>."
strTexto=strTexto&"</font></body></html>"
objMail.Body=strTexto
objMail.Send
set objMail = nothing
end if
%>
