% if Request.Form("action")="email" then subject="***AMF Feedback***" namex = Request.Form("name") phone = Request.Form("phone") email = Request.Form("email") message = Request.Form("message") displayonsite_ok = Request.Form("displayonsite_ok") body="Name: "&namex&vbcrlf body=body&"Phone: "&phone&vbcrlf body=body&"Email: "&email&vbcrlf if displayonsite_ok="1" then body=body&"displayonsite_ok: No"&vbcrlf body=body&vbcrlf body=body&"Message: "&vbcrlf&message&vbcrlf %><% Set objMessage = CreateObject("CDO.Message") objMessage.Subject = subject objMessage.Sender = "info@amftraining.co.uk" objMessage.From = email objMessage.To = "info@amftraining.co.uk" if mailformat="HTML" then objMessage.HTMLBody = body else objMessage.TEXTBody = body end if objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Send set objMessage=nothing %><% response.redirect "thankyou.php" end if %>
|
|||||||||
|
|||||||||
| 11 Shervage Court, Bridgwater, TA6 4LR | Phone/Fax: 01278 421579 | Mobile: 07915 091759 | info@amftraining.co.uk |
|