<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = true
Response.Expires = -1000
Dim JMail, emailmsg, thing, msg
%>
Reusable Form
<%
' 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 "info@spectrumcentre.co.uk" 'Recipient of emailed form
msg.Subject = "Feedback from Website" 'Subject of Email
msg.Body = cstr(EmailMsg)
msg.Send( "www15.redstation.co.uk" ) 'Change this to www2, www3 etc
response.redirect "thankyou.htm" 'address of thank you page
end if
%>