Hola a todos estoy realizando un sitio web y tengo un codigo en asp para que los usuarios envien sus comentarios del sitio y me lleguen a mi correo esta es la URL del envio de comentarios:
http://www.sec4rfm.com.mx/contact/
Este este es el codigo es ASP:
<%
Dim ObjCdo, nombre, edad, sexo, email, ciudad, asunto, mensaje, IP, REFERER, body
nombre = Trim(Request.Form("nombre"))
edad = Trim(Request.Form("edad"))
sexo = Trim(Request.Form("sexo"))
email = Trim(Request.Form("email"))
ciudad = Trim(Request.Form("ciudad"))
asunto = Trim(Request.Form("asunto"))
mensaje = Trim(Request.Form("mensaje"))
IP = Request.Form("IP")
REFERER = Request.Form("REFERER")
body = body & "Nombre: " & nombre & chr(13)
body = body & "Edad: " & edad & chr(13)
body = body & "Sexo: " & sexo & chr(13)
body = body & "Ciudad: " & ciudad & chr(13)
body = body & "Mensaje: " & mensaje & chr(13) & chr(13)
body = body & "Direccion IP: " & IP & chr(13) & chr(13)
body = body & "Direccion de Referencia: " & REFERER & chr(13) & chr(13)
Set ObjCdo = Server.CreateObject("CDONTS.NewMail")
ObjCdo.MailFormat=0
ObjCdo.From = email
ObjCdo.Subject = asunto
ObjCdo.To = "DIRECCION DESTINO"
ObjCdo.body = body
ObjCdo.send
Set ObjCdo = nothing
%>
Pero ya subido al servidor y al hacer la prueba me marca el siguiente error:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/contact/send.asp, line 22
800401f3
Espero que alguien me pueda ayudar... Gracias
