<%@LANGUAGE="VBSCRIPT"%> <% Const Header = "Results from Outsider Festival Form Submission" Const Footer = "enquiries to webmaster@flyboy.co.uk" ' read all the form elements and place them in the variable mail_body Dim mail_Body mail_Body = Header & vbCrLf & vbCrLf mail_Body = mail_Body & "FORM submitted at " & Now() & vbCrLf & vbCrLf If Request.Form("SortOrder") <> "" Then 'Need to sort output Dim arrSortOrder arrSortOrder = Split(Request.Form("SortOrder"),"|") For each FormElement in arrSortOrder mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf Next Else 'No sorting required Dim form_element For Each FormElement in Request.Form mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf Next End If mail_Body = mail_Body & vbCrLf & Footer 'Create the mail object and send the mail Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "subscribe@outsiderfestival.co.uk" objMail.To = "outsider@hillsideagency.com" objMail.CC = "" objMail.BCC = "webmaster@flyboy.co.uk" objMail.Subject = "Outsider Festival WebForm Message" objMail.Body = mail_Body objMail.Send() Set objMail = Nothing 'Send them to the page specified if requested Dim rp_redirect rp_redirect = "http://www.outsiderfestival.co.uk/thankyou.htm" If (rp_redirect <> "") then Response.Redirect rp_redirect End If %>