Feedback Form

<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> Feedback Form

<% If (Request.QueryString("form") = "") Then %>

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.

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@Expression-Factory" 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 = "Expression Factory Website Feedback" mySmartMail.SenderAddress = theEmail mySmartMail.Recipients.Add "charlotte.johnson@the-regent-group.com" mySmartMail.Recipients.Add "sales@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 %>

Regent House

Dockfield Road,

Shipley,

West Yorkshire,

BD17 7SF

Telephone: 01274 580555

Fax: 01274 586293