<%@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 %>

> 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