|
<%
' Amend the Recipient, Subject and redirected page below.
if (Request.Form("Submit")) = "Submit Request" then
emailmsg = ""
for each thing in request.form
emailmsg = emailmsg & trim(thing) & ": " & trim(request.form(thing)) & vbcrlf
next
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = false
msg.From = request.form("email")
msg.AddRecipient "form@highlandweddingcars.com" 'Recipient of emailed form
msg.Subject = "Enquiry from Website" 'Subject of Email
msg.Body = cstr(EmailMsg)
msg.Send( "www10.redstation.co.uk" ) 'Change this to www2, www3 etc
response.redirect "thankyou.htm" 'address of thank you page
end if
%> |