<% 'Response.Write "Started" sFname = Request("name") sLname = Request("surname") sTel = Request("mobile") sEmail = Request("email") sFrom = sEmail sTo = "andy@aquarian.co.za" 'sTo = "quentin@binarymill.co.za" 'sTo = "quentin@binarymill.co.za" sSubject = "Book a Test Drive!" sBody = "Name: " & sFname & " " & sLname & vbNewLine sBody = sBody & "Mobile: " & sTel & vbNewLine & "Email: " & sEmail & vbNewLine set mail=server.CreateObject("CDONTS.NewMail") mail.From= sFrom mail.To = sTo mail.Subject = sSubject mail.Body = sBody mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain 'mail.MailFormat = 1 ' 0 = MIME, 1 = Text mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low 'mail.attachFile ("c:\images\mypicture.gif") ' you can also attach files mail.Send set mail=nothing set mail=server.CreateObject("CDONTS.NewMail") mail.From= sEmail mail.To = "vespajhb@aquarian.co.za" 'mail.To = "quentin@binarymill.co.za" mail.Subject = sSubject mail.Body = sBody mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain 'mail.MailFormat = 1 ' 0 = MIME, 1 = Text mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low 'mail.attachFile ("c:\images\mypicture.gif") ' you can also attach files mail.Send set mail=nothing Dim returntoFlash returntoFlash = "success=True" Response.Write "Thank you" & "
" Response.Write "Your Request has been sent" & "
" 'Response.Write "You will recieve a conformation email shortly" & "
" 'Response.Write returntoFlash %>