%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 If Len(Request.Form("orderbook")) > 0 then dim tax, shipping, grandtotal, total total = Request.Form("total") tax = 0.00 shipping = .50 If Request.Form("total") = "0.00" then Response.write"You did not select any books" Else If Request.Form("State") = "TX" then tax = round(Request.Form("total") * .0825, 2) End If If Request.Form("total") > 3.00 and Request.Form("total") < 4.50 then shipping = 1.50 End If If Request.Form("total") > 4.51 and Request.Form("total") < 14.98 then shipping = 3.45 End If If Request.Form("total") > 14.99 and Request.Form("total") < 35.00 then shipping = 4.45 End If If Request.Form("total") > 34.99 and Request.Form("total") < 65.00 then shipping = 5.45 End If If Request.Form("total") > 64.99 then shipping = 6.45 End If grandtotal = FormatCurrency(round(total + tax + shipping, 2)) Session("FName") = Request.Form("FName") Session("LName") = Request.Form("LName") Session("Street") = Request.Form("Street") Session("Street2") = Request.Form("Street2") Session("City") = Request.Form("City") Session("State") = Request.Form("State") Session("Zip") = Request.Form("Zip") Session("Country") = Request.Form("Country") Session("Phone") = Request.Form("Phone") Session("Email") = Request.Form("Email") '#1 of 5; Enter the Book in the line below Session("Order") = Request.Form("WOG") + "WOG, " + Request.Form("DOM") + "DOM, " + Request.Form("SEX") + "SEX, " + Request.Form("DTM") + "DTM, " + Request.Form("TMC") + "TMC, " + Request.Form("SOP") + "SOP, " + Request.Form("IIG") + "IIG, " + Request.Form("TGH") + "TGH, " + Request.Form("SCR") + "SCR, " + Request.Form("TPC") + "TPC, " + Request.Form("SPC") + "SPC, " + Request.Form("NES") + "NES, " + Request.Form("DTS") + "DTS, " + Request.Form("DTP") + "DTP, " + Request.Form("DTA") + "DTA, " + Request.Form("DTH") + "DTH, " + Request.Form("DTJ") + "DTJ, " + Request.Form("DTE") + "DTE, " + Request.Form("DTR") + "DTR" Session("Total") = total Session("GrandTotal") = grandtotal Session("Shipping") = shipping Session("Tax") = tax '#2 of 5; Enter the Book in the line below If Request.Form("WOG") > "0" then Session("WOG") = "Wheat of God" End If If Request.Form("DOM") > "0" then Session("DOM") = "Dominican Laity" End If If Request.Form("SEX") > "0" then Session("SEX") = "Second Exodus" End If If Request.Form("DTM") > "0" then Session("DTM") = "Devotion to Mary" End If If Request.Form("TMC") > "0" then Session("TMC") = "Missionary's Catechism" End If If Request.Form("SOP") > "0" then Session("SOP") = "Sword of the Prophet" End If If Request.Form("IIG") > "0" then Session("IIG") = "Inside Islam Guide For Catholics" End If If Request.Form("TGH") > "0" then Session("TGH") = "The Great Heresies" End If If Request.Form("SCR") > "0" then Session("SCR") = "Seeking Christ by Reading" End If If Request.Form("TPC") > "0" then Session("TPC") = "The Penny Catechism" End If If Request.Form("NES") > "0" then Session("NES") = "No Escape - Audio Tapes" End If If Request.Form("DTS") > "0" then Session("DTS") = "Devotion to Holy Spirit" End If If Request.Form("DTP") > "0" then Session("DTP") = "Devotion to Holy Souls" End If If Request.Form("DTA") > "0" then Session("DTA") = "Devotion to Holy Angels" End If If Request.Form("DTH") > "0" then Session("DTH") = "Devotion to Sacred Heart" End If If Request.Form("DTJ") > "0" then Session("DTJ") = "Devotion to Saint Joseph" End If If Request.Form("DTE") > "0" then Session("DTE") = "Devotion to Holy Eucharist" End If If Request.Form("DTR") > "0" then Session("DTR") = "Devotion to Holy Rosary" End If If Request.Form("SPC") > "0" then Session("SPC") = "Spanish Penny Catechism" End If Call Credit() End If Else Call Customer() End If %> <%Sub Customer()%>