<%
' Amend the Recipient, Subject and redirected page below.
if Request.Form("Submitted") Then
emailmsg = ""
sSort = Request.Form("SortOrder")
If sSort <> "" Then
arrSort = Split(sSort, ",")
For Each sField In arrSort
emailmsg = emailmsg & Trim(sField) & ": " & Trim(Request.Form(sField)) & vbCrLf
Next
Else
for each thing in request.form
emailmsg = emailmsg & trim(thing) & ": " & trim(request.form(thing)) & vbcrlf
next
End If
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = false
msg.From = request.form("Email")
msg.AddRecipient "peter@accounts4all.co.uk" 'Recipient of emailed form
msg.Subject = "Contact from Accounts4All Website" 'Subject of Email
msg.Body = cstr(EmailMsg)
msg.Send( "www10.redstation.co.uk" ) 'Change this to www2, www3 etc
response.redirect "thankyou.html" 'address of thank you page
end if
%>
