<%@ 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*
Number of Outlets*
Address*
 
 
Town/City*

County*
Postcode*
Country
Tel*
Fax
Email*

Do you wish to go on our mailing list to receive information about new products?*

Yes No

Please indicate the products that interest you: *

Regent Greeting Cards

Regent Giftwrap

Expression Factory

 

Order a brochure:
Regent Giftwrap

Expression Factory

In-stock Greeting Cards

Comments

  
<% ElseIf (Request.QueryString("form") = "submit") Then Dim mail Dim emailBody theName = request.form("Name") theEmail = "websiteuser@expressionfactory.com" 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 & "Number of Outlets : " & request.form("Outlets") & vbcrlf & vbcrlf emailBody = emailBody & "Address : " & request.form("Address1") & vbcrlf & request.form("Address2") & vbcrlf & request.form("Address3") & vbcrlf & vbcrlf emailBody = emailBody & "Town : " & request.form("Town") & 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 GW : " & request.form("Checkbox4") & vbcrlf & vbcrlf emailBody = emailBody & "Interested in EF " & request.form("Checkbox5") & vbcrlf & vbcrlf emailBody = emailBody & "GC Brochure : " & request.form("Checkbox32") & vbcrlf & vbcrlf emailBody = emailBody & "GW Brochure : " & request.form("Checkbox42") & vbcrlf & vbcrlf emailBody = emailBody & "EF Brochure : " & request.form("Checkbox52") & vbcrlf & vbcrlf emailBody = emailBody & "Comments : " & request.form("Comments") & vbcrlf & vbcrlf & vbcrlf emailBody = emailBody & "Further Info : " & request.form("Checkbox") & request.form("Checkbox2") & vbcrlf & vbcrlf Set objMail = Server.CreateObject("ABMailer.Mailman") '-- Set the Mail Properties objMail.Clear objMail.MailSubject = "Expression Factory Website Feedback" objMail.FromAddress = theEmail objMail.SendTo = "donna.hudson@the-regent-group.com" ' objMail.SendTo = "dan.east@the-regent-group.com" objMail.ServerAddr = "mailhost.netbenefit.co.uk" objMail.ServerPort = "25" objMail.MailMessage = emailBody objMail.XPriority = sPriority objMail.MessageType = sMT '-- Send email message objMail.SendMail ' set objMail = nothing ''''''''''''''''''''''''''''' nextpageurl = "thankyou.asp?" & objMail.ErrorCode Response.Redirect nextpageurl %> <%=Request.Form("name")%>. <% End If %>

 

Regent House
Dockfield Road,
Shipley,
West Yorkshire,
BD17 7SF

 

Telephone: 01274 580555
Fax: 01274 586293