%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.Form("Submit") <> "" Then 'This is the email address you want to send to. Const ToEmail = "boatshare@carefreecruising.com" 'This is the email address the mail will be from 'Change it to FromEmail = Request.Form("formname") if you want to capture a field element 'Const FromEmail = "them@theirdomain.com" 'Static Email address FromEmail = Request.Form("Your_e-mail_Address") 'Pulled from form. 'Subject Const Subject = "Request form from Carefree Cruising web site" 'Page to send the user to once you're done sending the email. Const ThankYouPage = "thankyou.html" Dim Body, fieldName, fieldValue, ix For ix = 1 to Request.Form.Count fieldName = Replace(Request.Form.Key(ix),"_"," ") fieldValue = Request.Form.Item(ix) Body = Body & fieldName & ": " & fieldValue & VbCrLf Next Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = FromEmail objCDO.To = Toemail objCDO.Subject = Subject objCDO.Body = Body objCDO.Send() Set objCDO = Nothing Response.Redirect(ThankYouPage) End If %>
![]() |
Tel: 01270 760 770 |
Complete this form and start bringing your dream to life! You can use this form to request further information, arrange a viewing, reserve your share now, send us your comments or ask us to answer your question(s) - or all of these if you wish! If you reserve your share using this form, we will hold it for you for 14 DAYS whilst we send the paperwork out to you for you to complete Alternatively, you can E-mail us with any enquiry or questions you may have. Please complete the form fully, to enable us to process your request efficiently - and please remember to include your e-mail address and home telephone number! Please fill in the following form as completely as possible |
|