<% 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("EmailFrom"))) & "" MailSubject = "Smashin_Enquiry" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("auth.smtp.1and1.co.uk","25","","","") 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 & "Name " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Name")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Surname " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Surname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Foundus " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("select")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Email " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("EmailFrom")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Telephone " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Tel")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Web Design - " & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Design")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Web Hosting -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Hosting")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
eCommerce Website -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("eCommerce")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Add a Shopping Cart to your Site -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("ShopCart")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
SEO Higher Ranking -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("SEOHigherRanking")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
PPC Adwords -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("PPCadwords")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Marketing -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Marketing")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Web Development -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Development")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Something Else -" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("SomethingElse")) 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="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("simon@smashin.co.uk") 'Send Mail All Entries if ("enquiryformthankyou.html"<>"") then Response.Redirect("enquiryformthankyou.html") end if end if %> Smashin Web Design Portfolio of work for Web Design and eCommerce
Home of Smashin About Smashin Portfolio Design Marketing eCommerce Search Engine Opt Games Enquiry Form contact
 

Quick Enquiry Form

Your First Name:

Your Last Name:

How did you found us?:

Your eMail Address:

(*Required) Phone No:



Please
tick
appropriate
box for
your Objectives:

Web Design
Web Hosting
eCommerce Website
Adding a Shopping Cart SEO - Higher Ranking
PPC Adwords
Marketing
Web Development
Something else?







Freeing up your time and leaving you free so that you can simply get on with the business of running your Company

Charities Supported through the "Birmingham Chinatown Lions"

St. Mary's Hospitial (Birmingham)

Building a School
(China)

www.ChinatownLions.com

Photo Gallery:

Charity (Karma)

BAFTA (Media Darling)

Coming Soon

Carbon Footprint
 - Keeping it Green -
The paperless marketing website 100%
Carbon Neutral

 

Design & Digital Plantation Services for
Internet Branding = More Hits = More Sales

For A FREE No Obligation Consultation or Quote
~ Please E-Mail us: enquiries@smashin.co.uk

Privacy Policy : Sitemap : Terms & Conditions
Smashin Design © 2007 All Right Reserved