<% 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 = "Dunscar Diamond Reward Application|WA|website@dunscar.com" MailSubject = "Diamond Reward Application" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mrvnet.kundenserver.de") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

Application Details
" & vbCrlf & "" MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Date:- " Request.Form("diamond_date") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Title: " Request.Form("diamond_title") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Full Name: " Request.Form("diamond_name") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Address: " Request.Form("diamond_add1") MailBody = MailBody & " " Request.Form("diamond_add2") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Postcode:" Request.Form("diamond_post") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Tel: " Request.Form("diamond_tel") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Email: " Request.Form("diamond_email") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " D.O.B: " Request.Form("diamond_date") MailBody = MailBody & " - " Request.Form("diamond_month") MailBody = MailBody & " - " Request.Form("diamond_year") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Spouse Title: " Request.Form("diamond_spouse_title") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Spouse Name: " Request.Form("diamond_spouse_name") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Spouse D.O.B: " Request.Form("diamond_spouse_date") MailBody = MailBody & " - " Request.Form("diamond_spouse_month") MailBody = MailBody & " - " Request.Form("diamond_spouse_year") MailBody = MailBody & "" & vbCrlf & "" 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="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("studio@alloi.net") 'Send Mail All Entries if ("applicationok.html"<>"") then Response.Redirect("applicationok.html") end if end if %> Untitled Document
 
Also in this section:
Latest News

Site Search

Newsletter Signup
Enter your email address to sign up for our free newsletter


To celebrate the loyalty of our many customers over the past 60 years we are pleased to announce the launch of our Diamond Reward Card. Membership of the scheme is FREE.
Diamond Reward Card holders will be offered the following benefits:

  • A tiered discount scheme on all purchases of plants, seeds and blbs, gardening accessories, containers and giftware. Initially the discount will be set to 5% but will rise after one year's membership according to the previous year's expenditure. We anticipate our top customers achieving a discount rate of 10%.
  • Exclusive offers twice yearly and include free tea and coffee vouchers
  • a 50% discount on our normal delivery charge

To become a Diamond Reward Card holder complete the form below and we will arange for your personalised card to be perpared and then call you when it is ready for collection.

* Fields are required
Title*
Full Name*
Address Line 1*
Address Line 2
Postcode*
Telephone Number*
E-Mail Address* A value is required.Invalid format.
D.O.B* (dd,m,yyyy)
Spouse or Partner's Title
Spouse or Partner's Full Name
Spouse or Partner's D.O.B (dd,m,yyyy)