% ' WA eCart Update if (cStr(Request.Form("Cuddles_Cart_Update")) <> "" OR cStr(Request.Form("Cuddles_Cart_Update.x")) <> "") then set Cuddles_Cart = WA_eCart_UpdateCart(Cuddles_Cart) Redirect_redirStr=""'_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 Cuddles_Cart_redirStr = Redirect_redirStr end if Cuddles_Cart_cartAction = "Update" end if %> <% ' WA eCart Continue Shopping if (cStr(Request.Form("Cuddles_Cart_Continue")) <> "" OR cStr(Request.Form("Cuddles_Cart_Continue.x")) <> "") then Redirect_redirStr=""'_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 Cuddles_Cart_redirStr = Redirect_redirStr end if Cuddles_Cart_cartAction = "Continue" end if %> <% ' WA eCart Clear Cart if (cStr(Request.Form("Cuddles_Cart_Clear")) <> "" OR cStr(Request.Form("Cuddles_Cart_Clear.x")) <> "") then set Cuddles_Cart = WA_eCart_ClearCart(Cuddles_Cart) Redirect_redirStr=""'_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 Cuddles_Cart_redirStr = Redirect_redirStr end if Cuddles_Cart_cartAction = "ClearCart" end if %> <% 'WA eCart Redirect Check Out if (cStr(Request.Form("Cuddles_Cart_Checkout")) <> "" OR cStr(Request.Form("Cuddles_Cart_Checkout.x")) <> "") then Redirect_redirStr=""'_redirStr 'if (Redirect_redirStr <> "") then if (cStr(Request.QueryString()) <> "") then if (InStr(Redirect_redirStr, "?") <= 0) then Redirect_redirStr = "confirm.asp" & "?" & Request.QueryString() else Redirect_redirStr = "confirm.asp" & "&" & Request.QueryString() end if else Redirect_redirStr = "confirm.asp" end if Cuddles_Cart_redirStr = Redirect_redirStr 'end if Cuddles_Cart_cartAction = "Checkout" end if %> <% ' WA eCart Redirect if (Cuddles_Cart_redirStr <> "") then Response.Redirect(Cuddles_Cart_redirStr) end if %>