<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "Web Site|WA|contactus@parkbeauty.co.uk" MailSubject = "Web Site Enquiry" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

Title  " MailBody = MailBody & cStr(Request.Form("Title")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Forename (s)  " MailBody = MailBody & cStr(Request.Form("Forenames")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Surname " MailBody = MailBody & cStr(Request.Form("Surname")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Address " MailBody = MailBody & cStr(Request.Form("Address1")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "                " MailBody = MailBody & cStr(Request.Form("Address2")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "                " MailBody = MailBody & cStr(Request.Form("Address3")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Daytime Telephone " MailBody = MailBody & cStr(Request.Form("Day_telephone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Evening Telephone " MailBody = MailBody & cStr(Request.Form("Eve_telephone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Email address " MailBody = MailBody & cStr(Request.Form("Email")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Please send me further information: " MailBody = MailBody & cStr(Request.Form("Career_Opportunities")) MailBody = MailBody & "Career Opportunities " MailBody = MailBody & cStr(Request.Form("Courses")) MailBody = MailBody & " Courses
" & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("The_Beauty_Salon")) MailBody = MailBody & " The Beauty Salon

" & vbCrlf & "" MailBody = MailBody & "

Comments " MailBody = MailBody & cStr(Request.Form("Comments")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("contactus@parkbeauty.co.uk") 'Send Mail All Entries if ("thank_you.html"<>"") then Response.Redirect("thank_you.html") end if end if %> Park Health & Beauty Therapy Centre Reply Form
Home | Beauty Therapy Training | Courses | Beauty Salon | Therapies | Indulgence |Contact Us

reception

For further information, any comments or if you have any questions, please complete the following form and send.
Title
Forename (s)
Surname
Address

 

Daytime Telephone
Evening Telephone
Email address
Please send me further information on: Career Opportunities

Courses

The Beauty Salon

Comments

 

 

 

 

© All Rights Reserved 2001