<%
' 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
%>
Animal Cuddles - Baby Blankets, Chenille Blankets, Baby Shower Gifts
<%
'WA eCart Show If Start
if (NOT WA_eCart_IsEmpty(Cuddles_Cart)) then
%>
<%
'WA eCart Show If Middle
else
%>
Your
cart is empty. Did you forget about me?
You
must have enable cookies for your cart to function.