[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