Convert from CDONT to CDO

[Haze1434]

Hiya all,

Could someone please convert the following CDONT code in to CDO please?

I have had a couple of gos, but clearly my ASP skills mean I keep getting it wrong! :(

<%

Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Tel
Dim Website
Dim Requirements

EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "jackcollins1434@hotmail.co.uk"
Subject = "HTML Design Contact Form"
Name = Trim(Request.Form("Name"))
Tel = Trim(Request.Form("Tel"))
Website = Trim(Request.Form("Website"))
Requirements = Trim(Request.Form("Requirements"))

Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "Website: " & Website & VbCrLf
Body = Body & "Requirements: " & Requirements & VbCrLf

Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

Response.Redirect("ok.htm?" & EmailFrom)
%>


Thanks

[yamaharuss]

Set objCDOMail = Server.CreateObject("CDO.Message")
objCDOMail.From =EmailFrom
objCDOMail.To = EmailTo
objCDOMail.Subject =Subject
objCDOMail.textBody = Body 'OR objCDOMail.htmlBody = Body for HTML formatting
objCDOMail.Send
Set objCDOMail = Nothing

[Haze1434]

Ah thanks mate, I will try this when I get home :)

Much appriciated

[Haze1434]

Crumbs, got the following message on submit:

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/contact.asp, line 35