<%@LANGUAGE=VBSCRIPT%> <%option explicit%> <% dim name, phone, fax, email, street, city, province, postalcode, country, comments dim strBody, objEMail,sql if request("submit_status") = "submitted" then name = request("name") phone = request("phone") fax = request("fax") email = request("email") street = request("street") city = request("city") province = request("province") postalcode = request("postalcode") country = request("country") comments = request("comments") '----- Build and send email------------------------------------------------------ strBody = strBody & vbNewLine & "CONTACT INFO" strBody = strBody & vbNewLine & "----------------------------------------------------" strBody = strBody & vbNewLine & "Name: " & unescape(name) strBody = strBody & vbNewLine & "Phone: " & unescape(phone) if fax<>"" then strBody = strBody & vbNewLine & "Fax: " & unescape(fax) else strBody = strBody & vbNewLine & "Fax: " end if strBody = strBody & vbNewLine & "Email: " & unescape(email) if street<>"" then strBody = strBody & vbNewLine & "Street: " & unescape(street) else strBody = strBody & vbNewLine & "Street: " end if strBody = strBody & vbNewLine & "City: " & unescape(city) strBody = strBody & vbNewLine & "Province/State: " & unescape(province) if postalcode<>"" then strBody = strBody & vbNewLine & "Postal/Zip Code: " & unescape(postalcode) else strBody = strBody & vbNewLine & "Postal/Zip Code: " end if strBody = strBody & vbNewLine & "Country: " & unescape(country) strBody = strBody & vbNewLine strBody = strBody & vbNewLine strBody = strBody & vbNewLine & "COMMENTS/QUOTE REQUEST" strBody = strBody & vbNewLine & "----------------------------------------------------" strBody = strBody & vbNewLine & unescape(comments) strBody = strBody & vbNewLine strBody = strBody & vbNewLine strBody = strBody & vbNewLine strBody = strBody & vbNewLine & "----------------------------------------------------" strBody = strBody & vbNewLine & "This email was generated by the website of Beaton's Wholesale Dry Goods Ltd: http://www.beatonswholesale.ca" strBody = strBody & vbNewLine & "----------------------------------------------------" Set objEMail = Server.CreateObject("CDONTS.NewMail") objEMail.From = name&"<"&unescape(email)&">" objEMail.Subject = "Website Comments/Quote Request" objEMail.To = "info@beatonswholesale.ca" objEMail.Body = strBody if email <> "" then objEMail.Send end if response.redirect "contact_ty.html" end if %> Beaton’s Wholesale Dry Goods Limited – Charlottetown, Prince Edward Island, Canada – Contact Us
 
> Towels
> Bed Linens
> Bed Coverings
> Bathroom
> Restaurant
> Corporate Apparel
> Commercial Fishing
> Workwear
> Gloves

 





Beaton's Wholesale Dry Goods Limited
50 Queen Street, PO Box 754
Charlottetown, PE, Canada
C1A 4A3
  T:  (902) 368-8802
F:  (902) 892-3592
E:  info@beatonswholesale.ca


 Submit Your Comments/Quote Request


Name *
Phone *
Fax  
Email *
Street & Unit
Town/City *
Province/State *
Postal/Zip Code
Country *

Comments/Quote Request *

 *Required
Please Note: Quotes, volume discounts and/or samples available upon request.





Contacts

Mark O’Rourke, Manager
E: mark@beatonswholesale.ca
C: 902-626-8795
P: 902-368-8802
Lawrence LeBlanc, Manager
E: lawrence@beatonswholesale.ca
C: 902-626-6670
P: 902-368-8802
 
Sharon Smith, Accounting
E: sharon@beatonswholesale.ca
P: 902-368-8802
 
Arlen Arsenault, Purchasing/Shipping/Receiving
P: 902-368-8802
 
James Pineau, Shipping/Receiving
P: 902-368-8802




Terms of Payment

Visa, Mastercard, American Express, Interac, and Cash. Charge on approved accounts.




   
© Beaton's Wholesale Dry Goods Limited. All rights reserved. Site by Web Site Advantage