<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' WA eCart Clear Cart if (cStr(Request.Form("WA_eCart1_Clear")) <> "" OR cStr(Request.Form("WA_eCart1_Clear.x")) <> "") then set WA_eCart1 = WA_eCart_ClearCart(WA_eCart1) Redirect_redirStr=""'_redirStr if (Redirect_redirStr <> "") then WA_eCart1_redirStr = Redirect_redirStr end if WA_eCart1_cartAction = "ClearCart" end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_1_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_1_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_1_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "Basic Membership"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("110.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_4_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_4_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_4_ID_Add")) ATC_AddIfIn = 2 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "JOS Subscription"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("57.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_5_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_5_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_5_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD Full Set - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("225.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_6_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_6_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_6_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD Full Set Non-Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("375.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_7_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_7_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_7_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2002 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_8_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_8_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_8_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2002 Non-Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_9_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_9_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_9_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2003 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_10_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_10_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_10_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2003 - Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_15_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_15_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_15_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2007 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_16_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_16_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_16_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2007 - Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_17_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_17_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_17_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2004 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_18_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_18_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_18_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2004 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_20_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_20_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_20_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2004 - Non-Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_21_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_21_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_21_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2005 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_22_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_22_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_22_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2005 Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_24_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_24_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_24_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2005 Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_25_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_25_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_25_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2006 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_26_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_26_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_26_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2006 Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_28_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_28_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_28_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2006 - Non-Member " & Chr(36) & "75"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_29_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_29_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_29_ID_Add")) ATC_AddIfIn = 4 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "Donation"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = "" & cStr(Request.Form("WA_eCart1_29_Price_Add")) & ""' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_27_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_27_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_27_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2006 Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_23_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_23_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_23_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2005 Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_19_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_19_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_19_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2004 - Non-Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_14_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_14_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_14_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS 2003 - Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("75.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_13_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_13_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_13_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "DVD 2002 - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("45.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_12_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_12_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_12_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS Full Set - Non-member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("300.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_11_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_11_ATC.x")) <> "") then Session("sChargeShip")="Y" ATC_itemID = cStr(Request.Form("WA_eCart1_11_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "VHS Full Set - Member"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("1")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("180")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_2_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_2_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_2_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "Student Membership"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("30.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_3_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_3_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_3_ID_Add")) ATC_AddIfIn = 2 ATC_RedirectAfter = "" ATC_RedirectIfIn = "" ATC_itemName = "Associate Membership"' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = cDbl("1")' column binding ATC_itemPrice = cDbl("60.00")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% 'WA eCart Redirect Check Out if (cStr(Request.Form("WA_eCart1_Checkout")) <> "" OR cStr(Request.Form("WA_eCart1_Checkout.x")) <> "") then Redirect_redirStr="viewcart.asp"'_redirStr if (Redirect_redirStr <> "") then if (cStr(Request.QueryString()) <> "") then if (InStr(Redirect_redirStr, "?") <= 0) then Redirect_redirStr = Redirect_redirStr & "?" & Request.QueryString() else Redirect_redirStr = Redirect_redirStr & "&" & Request.QueryString() end if end if WA_eCart1_redirStr = Redirect_redirStr end if WA_eCart1_cartAction = "Checkout" end if %> <% ' WA eCart Redirect if (WA_eCart1_redirStr <> "") then Response.Redirect(WA_eCart1_redirStr) end if %> SSO - Shop Online















Online Selections for Purchase

<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Please make your purchase selections below. After each selection, you will be returned to the top of the page where you should see updated items. When you are finished, click on the "Checkout" button to proceed.
Total in Cart: Number of Items:  <%=WA_eCart_TotalColumn(WA_eCart1, "Quantity")%>   |  Total  <%=WA_eCart_DisplayMoney(WA_eCart1, WA_eCart_GrandTotal(WA_eCart1))%>
 
MEMBERSHIPS:
Please select the appropriate membership.
   
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
This membership is offered for our international colleagues and retired professionals.
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
The student should be prepared to provide verification of student status.
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
 
RUTH ZEMKE LECTURES IN OCCUPATIONAL SCIENCE

Available in DVD format only. Format is DVD+R/National Television Systems Committee (NTSC); will not play on all computers or DVD players. Please note that technology outside the USA may not be compatible.
(to buy more than one copy, click button again)

Purchase the full set of 6 DVDs for reduced price:

*Unfortunately the master of the first lecture by Ruth Zemke has audio problems in that the sound at times intermittently disappears for a second or two. For this reason, we are offering the lecture series set (6 DVDs) to you for the cost we would charge for five.

<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Ruth Zemke, 2002: Occupational Science: Yesterday, Today, and Tomorrow
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Elizabeth Yerxa, 2003: The Infinite Distance Between the "I" and the "It"
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Jeanne Jackson, 2004: Occupation at the Center: Creating Authentic Lives in Social Worlds
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Florence Clark, 2005: One Person's Thoughts in Mapping the Future of Occupational Science
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Charles Christiansen, 2006: Meyer Revisited: Empirical Thoughts on Resilience and Life Balance
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Graham Rowles, 2007: Place in Occupational Science: A Life Course Perspective on the Role of Environmental Context in the Quest for Meaning.
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">

 
DONATIONS
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>"> Please fill in amount that you wish to contribute to the SSO: USA Development Fund.

 

Back to Top
 

HomeAbout SSO:USACurrent News & EventsGovernance & Board of Directors
Ruth Zemke Lecture in OSPrior Conference ProceedingsOS Around the WorldListserv

Copyright 2005 Society for the Study of Occupation:USA, All Rights Reserved

Web Site by Datatrack, Inc.