HPS - Hotel Printing Services

<% Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function if request.form("email") <> "" then Dim emailAddress emailAddress = request.form("email") emailAddress = Cstr(emailAddress) if emailAddress <> "" then blnValidEmail = RegExpTest(emailAddress) if blnValidEmail then '--- old mailform script Dim shopMail, shopBody Set objErrMail= Server.CreateObject("CDO.Message") With objErrMail .From = request("email") .To = "info@printplus.co.uk" .Subject = "HPS Web Form - " & request("subject") For x = 1 to Request.Form.Count if Request.Form.Key (x) <> "submit" then shopBody=shopBody & Request.Form.Key (x) & " = " & Request.Form.Item (x) & vbcrlf & vbcrlf end if Next shopBody=shopBody & "This Email was sent on : " & date & " at " & time .TextBody = Cstr("" & shopbody) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "195.234.116.130" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With set objErrMail = nothing DIM custMail, custBody Set objErrMail= Server.CreateObject("CDO.Message") With objErrMail .From = "info@printplus.co.uk" .To = request.form ("email") .Subject = "Thank you "& request.form ("name") custBody=custBody & "Thank You " & request.form("name") & vbcrlf & vbcrlf custBody=custBody & "We have received your email and will deal with it promptly" & vbcrlf & vbcrlf custBody=custBody & "HPS - Hotel Printing Services - http://www.printplusgroup.com/ " & vbcrlf .TextBody = Cstr("" & custBody) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "195.234.116.130" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With set objErrMail = nothing '--- end old mailform else url = request.ServerVariables("URL") url = url & "?validate=The email address entered in the form is not valid. Please correct and press submit" For x = 1 to Request.Form.Count if Request.Form.Key (x) = "email" then url = url & "&gmail=" & Request.Form.Item (x) & vbcrlf else url = url & "&" & Request.Form.Key (x) & "=" & Request.Form.Item (x) & vbcrlf end if Next response.Redirect(url) end if End If end if %> HPS - Hotel Printing Services - Contact Us

	Hotel Printing Services Where we have to produce artwork for you - such as on brochures and business cards etc.
	IMPERIAL HOUSE, IMPERIAL BUILDING, DICKSON ROAD, BLACKPOOL, FY1 2HQ Click here to see a map TEL: 01253 299620 FAX: 01253 299621 MOBILE: 07813 901103

<% if request("validate") <> "" then %> <%end if%> <% if request.form("email") = "" then %> <%else%> <%end if%>

Email Address Validation Failed.
Please check the email address you entered and try again.

" onSubmit="return formCheck(this);">

We welcome all questions and queries. If you are interested in an event or would like to submit a review, please use our online form below. ( * = compulsory fields)

Name: *

" size="50" />

E-Mail: * <% if request("validate") <> "" then %>
Please enter a valid email address <%end if%>

" />

Telephone: *

" />

Subject:

Enquiry:

I am happy to receive occasional text or email messages with information on special offers, events etc. (uncheck the box if you do not want to receive this information)

Thank You <%=request("name")%>
We have received your email.

To place an order, see a representative or For a quote on any product not listed,
Just call our sales hotline now on :- 01253 299620 or a representative direct on: 07813 901103

: About Us :	: Contact Us :	: Special Offers :	: Essentials :	: Business Cards & Stationery :	: Signs / Stamps / Promo :
				: Tell a friend :	: Print this Page :