<%@ Language="VBScript" %>
<%
requestType = request("submit")
if requestType = "Submit" then
realname = request.form("realname")
address = request.form("address")
city = request.form("city")
province_state = request.form("province_state")
country = request.form("country")
code = request.form("code")
email = request.form("email")
item1 = request.form("item1")
name1 = request.form("name1")
color1 = request.form("color1")
size1 = request.form("size1")
quantity1 = request.form("quantity1")
unit1 = request.form("unit1")
value1 = request.form("value1")
item2 = request.form("item2")
name2 = request.form("name2")
color2 = request.form("color2")
size2 = request.form("size2")
quantity2 = request.form("quantity2")
unit2 = request.form("unit2")
value2 = request.form("value2")
item3 = request.form("item3")
name3 = request.form("name3")
color3 = request.form("color3")
size3 = request.form("size3")
quantity3 = request.form("quantity3")
unit3 = request.form("unit3")
value3 = request.form("value3")
item4 = request.form("item4")
name4 = request.form("name4")
color4 = request.form("color4")
size4 = request.form("size4")
quantity4 = request.form("quantity4")
unit4 = request.form("unit4")
value4 = request.form("value4")
item5 = request.form("item5")
name5 = request.form("name5")
color5 = request.form("color5")
size5 = request.form("size5")
quantity5 = request.form("quantity5")
unit5 = request.form("unit5")
value5 = request.form("value5")
item6 = request.form("item6")
name6 = request.form("name6")
color6 = request.form("color6")
size6 = request.form("size6")
quantity6 = request.form("quantity6")
unit6 = request.form("unit6")
value6 = request.form("value6")
merchandise_total = request.form("merchandise_total")
discount = request.form("discount")
subtotal = request.form("subtotal")
tax = request.form("tax")
total = request.form("total")
shipping = request.form("shipping")
grand_total = request.form("grand_total")
delivery = request.form("delivery")
ccname = request.form("ccname")
ccnumber = request.form("ccnumber")
ccexpirty = request.form("ccexpirty")
error = 0
message = "Oops .. you did not fill in all the required fields "
if inStr(email,"@") = 0 then
message = message & "There is no @ in your address "
error = 1
end if
if realname = "" then
message = message & "Name "
error = 1
end if
if address = "" then
message = message & "Address "
error = 1
end if
if city = "" then
message = message & "City "
error = 1
end if
if province_state = "" then
message = message & "Province/State "
error = 1
end if
if country = "" then
message = message & "Country "
error = 1
end if
if code = "" then
message = message & "Postal Code/Zip "
error = 1
end if
if delivery = "" then
message = message & "Delivery "
error = 1
end if
if ccname = "" then
message = message & "Credit Card Name "
error = 1
end if
if ccnumber = "" then
message = message & "Credit Card Number "
error = 1
end if
if ccexpirty = "" then
message = message & "Credit Card Expiry Date "
error = 1
end if
if(error=0) then
tmpl = Server.Mappath("merchantandiseorder-email.html")
Set fso = Server.CreateObject("Scripting.Filesystemobject")
Set ts = fso.OpenTextFile(tmpl)
body = ts.ReadAll
ts.Close
body = Replace(body,"{realname}",realname)
body = Replace(body,"{address}",address)
body = Replace(body,"{city}",city)
body = Replace(body,"{province_state}",province_state)
body = Replace(body,"{country}",country)
body = Replace(body,"{code}",code)
body = Replace(body,"{email}",email)
body = Replace(body,"{item1}",item1)
body = Replace(body,"{name1}",name1)
body = Replace(body,"{color1}",color1)
body = Replace(body,"{size1}",size1)
body = Replace(body,"{quantity1}",quantity1)
body = Replace(body,"{unit1}",unit1)
body = Replace(body,"{value1}",value1)
body = Replace(body,"{item2}",item2)
body = Replace(body,"{name2}",name2)
body = Replace(body,"{color2}",color2)
body = Replace(body,"{size2}",size2)
body = Replace(body,"{quantity2}",quantity2)
body = Replace(body,"{unit2}",unit2)
body = Replace(body,"{value2}",value2)
body = Replace(body,"{item3}",item3)
body = Replace(body,"{name3}",name3)
body = Replace(body,"{color3}",color3)
body = Replace(body,"{size3}",size3)
body = Replace(body,"{quantity3}",quantity3)
body = Replace(body,"{unit3}",unit3)
body = Replace(body,"{value3}",value3)
body = Replace(body,"{item4}",item4)
body = Replace(body,"{name4}",name4)
body = Replace(body,"{color4}",color4)
body = Replace(body,"{size4}",size4)
body = Replace(body,"{quantity4}",quantity4)
body = Replace(body,"{unit4}",unit4)
body = Replace(body,"{value4}",value4)
body = Replace(body,"{item5}",item5)
body = Replace(body,"{name5}",name5)
body = Replace(body,"{color5}",color5)
body = Replace(body,"{size5}",size5)
body = Replace(body,"{quantity5}",quantity5)
body = Replace(body,"{unit5}",unit5)
body = Replace(body,"{value5}",value5)
body = Replace(body,"{item6}",item6)
body = Replace(body,"{name6}",name6)
body = Replace(body,"{color6}",color6)
body = Replace(body,"{size6}",size6)
body = Replace(body,"{quantity6}",quantity6)
body = Replace(body,"{unit6}",unit6)
body = Replace(body,"{value6}",value6)
body = Replace(body,"{merchandise_total}",merchandise_total)
body = Replace(body,"{discount}",discount)
body = Replace(body,"{subtotal}",subtotal)
body = Replace(body,"{tax}",tax)
body = Replace(body,"{total}",total)
body = Replace(body,"{shipping}",shipping)
body = Replace(body,"{grand_total}",grand_total)
body = Replace(body,"{delivery}",delivery)
body = Replace(body,"{ccname}",ccname)
body = Replace(body,"{ccnumber}",ccnumber)
body = Replace(body,"{ccexpirty}",ccexpirty)
Set objMail = CreateObject("CDONTS.NewMail")
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.To = "darlene@fusionstudiosinc.com"
objMail.From = email
objMail.Subject = "Merchandise Order Form"
objMail.Body = body
objMail.send
set objMail = nothing
' --------------------------------------------------------------------------------------------
' SEND TO PURCHASE
' --------------------------------------------------------------------------------------------
tmpl = Server.Mappath("merchantandiseorder-email2.html")
Set fso = Server.CreateObject("Scripting.Filesystemobject")
Set ts = fso.OpenTextFile(tmpl)
body = ts.ReadAll
ts.Close
body = Replace(body,"{realname}",realname)
body = Replace(body,"{address}",address)
body = Replace(body,"{city}",city)
body = Replace(body,"{province_state}",province_state)
body = Replace(body,"{country}",country)
body = Replace(body,"{code}",code)
body = Replace(body,"{email}",email)
body = Replace(body,"{item1}",item1)
body = Replace(body,"{name1}",name1)
body = Replace(body,"{color1}",color1)
body = Replace(body,"{size1}",size1)
body = Replace(body,"{quantity1}",quantity1)
body = Replace(body,"{unit1}",unit1)
body = Replace(body,"{value1}",value1)
body = Replace(body,"{item2}",item2)
body = Replace(body,"{name2}",name2)
body = Replace(body,"{color2}",color2)
body = Replace(body,"{size2}",size2)
body = Replace(body,"{quantity2}",quantity2)
body = Replace(body,"{unit2}",unit2)
body = Replace(body,"{value2}",value2)
body = Replace(body,"{item3}",item3)
body = Replace(body,"{name3}",name3)
body = Replace(body,"{color3}",color3)
body = Replace(body,"{size3}",size3)
body = Replace(body,"{quantity3}",quantity3)
body = Replace(body,"{unit3}",unit3)
body = Replace(body,"{value3}",value3)
body = Replace(body,"{item4}",item4)
body = Replace(body,"{name4}",name4)
body = Replace(body,"{color4}",color4)
body = Replace(body,"{size4}",size4)
body = Replace(body,"{quantity4}",quantity4)
body = Replace(body,"{unit4}",unit4)
body = Replace(body,"{value4}",value4)
body = Replace(body,"{item5}",item5)
body = Replace(body,"{name5}",name5)
body = Replace(body,"{color5}",color5)
body = Replace(body,"{size5}",size5)
body = Replace(body,"{quantity5}",quantity5)
body = Replace(body,"{unit5}",unit5)
body = Replace(body,"{value5}",value5)
body = Replace(body,"{item6}",item6)
body = Replace(body,"{name6}",name6)
body = Replace(body,"{color6}",color6)
body = Replace(body,"{size6}",size6)
body = Replace(body,"{quantity6}",quantity6)
body = Replace(body,"{unit6}",unit6)
body = Replace(body,"{value6}",value6)
body = Replace(body,"{merchandise_total}",merchandise_total)
body = Replace(body,"{discount}",discount)
body = Replace(body,"{subtotal}",subtotal)
body = Replace(body,"{tax}",tax)
body = Replace(body,"{total}",total)
body = Replace(body,"{shipping}",shipping)
body = Replace(body,"{grand_total}",grand_total)
body = Replace(body,"{delivery}",delivery)
Set objMail = CreateObject("CDONTS.NewMail")
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.To = email
objMail.From = "info@masterathlete.com"
objMail.Subject = "Master Athlete - Purchase Receipt"
objMail.Body = body
objMail.send
set objMail = nothing
response.redirect("thankyou.asp")
end if
else
item1 = 0
quantity1 = 0
unit1 = 0.00
value1 = 0.00
item2 = 0
quantity2 = 0
unit2 = 0.00
value2 = 0.00
item3 = 0
quantity3 = 0
unit3 = 0.00
value3 = 0.00
item4 = 0
quantity4 = 0
unit4 = 0.00
value4 = 0.00
item5 = 0
quantity5 = 0
unit5 = 0.00
value5 = 0.00
item6 = 0
quantity6 = 0
unit6 = 0.00
value6 = 0.00
shipping = 0.00
merchandise_total = 0.00
discount = 0.00
subtotal = 0.00
tax = 0.00
total = 0.00
grand_total = 0.00
end if
%>
World MasterAthlete Judo Association 1-888-883-3315