<% Dim oMailSite, oMailUser Dim sBody, sName, sAddress, sPostcode, sEmail, bCheck thename = Request.Form("name") organisation = Request.Form("organisation") email = Request.Form("email") message = Request.Form("message") sBody = "Brunel 200 Education - Web Contact/Suggestions Form: " & vbCrLF & vbCrLf & _ "thename : " & thename & vbCrLf & _ "organisation: " & organisation & vbCrLf & _ "email : " & email & vbCrLf & _ "message : " & message & vbcrLf Response.Write(sBody) 'Send details to main site Set oMailSite = Server.CreateObject("CDONTS.NewMail") oMailSite.MailFormat = 1 oMailSite.BodyFormat = 1 oMailSite.From = email oMailSite.To = "Sue.Sanctuary@businesswest.co.uk,dbond@availablelight.tv" oMailSite.Subject = "Brunel 200 Web form" oMailSite.Body = sBody oMailSite.Send Set oMailSite = nothing Response.Redirect "../thankyou.asp" %>