[rootsandculture]

Hi, i'm looking for help, i'm nor programmer, but i've got my old site which i want to put online again, but i'm getting error in the line 70 of this .asp when i complete data in formulary.

Set MailObj = Server.CreateObject("CDONTS.NewMail")

This is the code:

<%@ Language=VBScript %>
<% option explicit %>
<%
Response.Buffer = True
Response.Expires = -1441
%>

<% 'Definimos las variables
Dim MailObj
Dim varTo
Dim varSubject
Dim varBody
Dim varNombre
Dim varApellido
Dim varEmpresa
Dim varPuesto
Dim varDireccion
Dim varCiudad
Dim varProvincia
Dim varPais
Dim varEmail
Dim varTel
Dim varConsulta

'Llenamos las variables con contenido
varTo = "contact@rootsand.com"
varSubject = Request.Form("chkSubject")
varNombre = Request.Form("txtNombre")
varApellido = Request.Form("txtApellido")
varEmpresa = Request.Form("txtEmpresa")
varPuesto = Request.Form("txtPuesto")
varDireccion = Request.Form("txtDir")
varCiudad = Request.Form("txtCiudad")
varProvincia = Request.Form("txtProv")
varPais = Request.Form("txtPais")
varEmail = Request.form("txtEmail")
varTel = Request.Form("txtTel")
varConsulta = Request.Form("txtCons")

'Construimos el mensaje
varBody = varBody & "Mensaje enviado desde el sitio web"
varBody = varBody & chr(10)
varBody = varBody & "************************************************* ***"
varBody = varBody & chr(10)
varBody = varBody & "Nombre y Apellido: "& varNombre & varApellido
varBody = varBody & chr(10)
varBody = varBody & "Empresa: "& varEmpresa
varBody = varBody & chr(10)
varBody = varBody & "Puesto: "& varPuesto
varBody = varBody & chr(10)
varBody = varBody & "Direccion: "& varDireccion
varBody = varBody & chr(10)
varBody = varBody & "Ciudad: "& varCiudad
varBody = varBody & chr(10)
varBody = varBody & "Provincia: "& varProvincia
varBody = varBody & chr(10)
varBody = varBody & "Pais: "& varPais
varBody = varBody & chr(10)
varBody = varBody & "Email: "& varEmail
varBody = varBody & chr(10)
varBody = varBody & "Tel: "& varTel
varBody = varBody & chr(10) & chr(13)
varBody = varBody & "Mensaje"
varBody = varBody & chr(10)
varBody = varBody & "********************************************"
varBody = varBody & chr(10)
varBody = varBody & varConsulta

'Enviamos el mensaje
Set MailObj = Server.CreateObject("CDONTS.NewMail")
MailObj.Send varEmail, varTo, varSubject, varBody

'Liberamos memoria en el servidor
Set MailObj = Nothing

'Redirigimos a la pagina de confirmacion
Response.Redirect "formulario.asp?Mode=Ok"
%>

Any help

[Merlotti]

I'm not sure of you're To and From email addresses - assuming the T0 email address is varEmail (collected from Request.form("txtEmail")) and the From is "contact@rootsand.com"

To send the email try

Set MailObj= Server.CreateObject("CDONTS.NewMail")
MailObj.To = varEmail
MailObj.From = "contact@rootsand.com"
MailObj.Subject = varSubject
MailObj.Body = varBody

MailObj.Send
Set MailObj = nothing

[rootsandculture]

I get an error

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Body'

/en/contact/script_formulario.asp, line 73

Line 73 is

MailObj.Body = varBody

I tried deleting that line and is working fine, i get the messager " i'll contact soon .....etc" but the mail never arrives.

[webdevelopmenthouse]

contact with your hosting.. and ask them if they are supporting CDONTS.. as CDONTS have been depricated... but if hosting peoples want, they can stills allow CDONTS..

try to use cdosys..