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