<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 = "" & cStr(cStr(Request.Form("email"))) & "" MailSubject = "Enquiry from AstresTrophies.biz" '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 '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 & "

You have recieved an enquiry from the feedback form on your website" & vbCrlf & "" MailBody = MailBody & " www.astrestrophies.biz

" & vbCrlf & "" MailBody = MailBody & "

Name: " MailBody = MailBody & cStr(Request.Form("name")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Postal Address: " MailBody = MailBody & cStr(Request.Form("address")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Email Address: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " Telephone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & 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") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("sales@astrestrophies.biz") 'Send Mail All Entries if ("index.asp"<>"") then Response.Redirect("index.asp") end if end if %> Astres Trophies
BACK TO HOMEPAGE


ORDER YOUR FREE 2008 CATALOGUE


CONTACT US...

ASTRES TROPHIES
10-12 Armour Road,
Tilehurst,
Reading,
Berkshire,
ENGLAND
RG31 6HS

Tel : 0118 942 6661
or 01635 578 978
Fax : 0118 942 0444
E-Mail: sales@astrestrophies.biz

OPENING TIMES
Mon-Fri: 9am-5pm
Sat : 9am-1pm
Sun : Closed

VAT REGISTRATION NUMBER
GB 614 5553 49

COMPANY REGISTRATION NUMBER
GB 04476577

FEDERATION OF SMALL BUSINESSES NUMBER


OUR SPONSORS


If you require Glassware then please visit our sister site Absolute Crystal

Frety Search Engine
© Astres Trophies | Site Design and Production AP Media