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