Regent Greeting Cards
Home
Links
<% If (Request.QueryString("form") = "") Then %>

Contact Us

To find a distributor who suits the way you need to
buy, or to order a brochure please contact us using
the details below or complete and submit the following form.
 
Regent House
Dockfield Road,
Shipley, West Yorkshire,
BD17 7SF
 
Telephone: 01274 580555 Fax: 01274 586293
For an accurate and detailed response please ensure
that you complete all of the required fields*
Name *
Business Name *
Type of Business *
Address *
 
 
Town/City *

County

Postcode *
Country
Tel *
Fax
Email *

 

Where did you hear about us?*

 

If other please specify

 

 

 

Please indicate the products that interest you: *

Greeting Cards Party Products

Giftwrap Gift Bags Packed Wrap

 
Comments

  

<% ElseIf (Request.QueryString("form") = "submit") Then Dim mail Dim emailBody theName = request.form("Name") theEmail = "webuser@regentgreetingcards" emailBody = "" emailBody = emailBody & "Name : " & request.form("Name") & vbcrlf & vbcrlf emailBody = emailBody & "Name of Business : " & request.form("Business Name") & vbcrlf & vbcrlf emailBody = emailBody & "Type of Business : " & request.form("Type of Business") & vbcrlf & vbcrlf emailBody = emailBody & "Address : " & request.form("Address1") & vbcrlf & request.form("Address2") & vbcrlf & request.form("Address3") & vbcrlf & vbcrlf emailBody = emailBody & "County : " & request.form("County") & vbcrlf & vbcrlf emailBody = emailBody & "Postcode : " & request.form("Postcode") & vbcrlf & vbcrlf emailBody = emailBody & "Country : " & request.form("Country") & vbcrlf & vbcrlf emailBody = emailBody & "Tel : " & request.form("Tel") & vbcrlf & vbcrlf emailBody = emailBody & "Fax : " & request.form("Fax") & vbcrlf & vbcrlf emailBody = emailBody & "E-mail Address : " & request.form("Email") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in GC : " & request.form("Checkbox3") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in EF : " & request.form("Checkbox5") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in Giftwrap : " & request.form("Checkbox4") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in Gift Bags: " & request.form("Checkbox43") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in Packed Wrap : " & request.form("Checkbox44") & vbcrlf & vbcrlf emailBody = emailBody & "Where did you hear about us? : " & request.form("select") & vbcrlf & vbcrlf emailBody = emailBody & "If other please specify : " & request.form("Other") & vbcrlf & vbcrlf emailBody = emailBody & "Comments : " & request.form("Comments") & vbcrlf & vbcrlf & vbcrlf On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") '-- Set the Mail Properties mySmartMail.Subject = "Greeting Card Website Feedback" mySmartMail.SenderAddress = theEmail mySmartMail.Recipients.Add "sales@the-regent-group.com" mySmartMail.Recipients.Add "dan.east@the-regent-group.com" mySmartMail.Server = "reg-exch1.the-regent-group.com" ' mySmartMail.ServerPort = 25 mySmartMail.Body = emailBody mySmartMail.Priority = "1" mySmartMail.ContentType = "text/plain" mySmartMail.Charset = "us-ascii" mySmartMail.Encoding = "base64" mySmartMail.SendMail set mySmartMail = nothing response.redirect "thankyou.htm" %> <%=Request.Form("name")%> <% End If %>