<% ' 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
Animal Cuddles - baby blankets, travel blankets, chinelle pillows, baby shower gifts  
baby bear
baby bunny
puppy dog
baby duck
baby kitten
purple dino
 <% 'WA eCart Show If Start if (NOT WA_eCart_IsEmpty(Cuddles_Cart)) then %>
"> <% 'WA eCart Looper Start 'ecart="Cuddles_Cart" 'looper="1" if (true) then while (NOT WA_eCart_EOF(Cuddles_Cart)) %> <% 'WA eCart Looper Middle 'ecart="Cuddles_Cart" 'looper="1" set Cuddles_Cart = WA_eCart_MoveNext(Cuddles_Cart) if (NOT WA_eCart_EOF(Cuddles_Cart)) then %> <% 'WA eCart Looper Middle End 'ecart="Cuddles_Cart" 'looper="1" end if %> <% 'WA eCart Looper End 'ecart="Cuddles_Cart" 'looper="1" set Cuddles_Cart = WA_eCart_MoveNext(Cuddles_Cart) wend set Cuddles_Cart = WA_eCart_MoveFirst(Cuddles_Cart) end if %>
Your Shopping Cart
Product Order Detail Price Qty Del Tot. Price
<%=WA_eCart_DisplayInfo(Cuddles_Cart, "Name")%> <%=WA_eCart_DisplayInfo(Cuddles_Cart, "Description")%> <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_DisplayInfo(Cuddles_Cart, "Price"))%> <%=WA_eCart_DisplayInfo(Cuddles_Cart, "Quantity")%> " name="Cuddles_Cart_Delete_<%=Cuddles_Cart.DisplayIndex%>"> <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_DisplayInfo(Cuddles_Cart, "TotalPrice"))%>
<%=WA_eCart_DisplayInfo(Cuddles_Cart, "Name")%> <%=WA_eCart_DisplayInfo(Cuddles_Cart, "Description")%> <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_DisplayInfo(Cuddles_Cart, "Price"))%> <%=WA_eCart_DisplayInfo(Cuddles_Cart, "Quantity")%> " name="Cuddles_Cart_Delete_<%=Cuddles_Cart.DisplayIndex%>"> <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_DisplayInfo(Cuddles_Cart, "TotalPrice"))%>
SubTotal <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_TotalColumn(Cuddles_Cart, "TotalPrice"))%>
Discounts <%=WA_eCart_DisplayMoney(Cuddles_Cart, Cuddles_Cart_GetDiscounts())%>
Shipping & Handling (Continental U.S. Only) <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_GrandShipping(Cuddles_Cart))%>
Total <%=WA_eCart_DisplayMoney(Cuddles_Cart, WA_eCart_GrandTotal(Cuddles_Cart))%>
<% 'WA eCart Show If Middle else %>


Your cart is empty. Did you forget about me?
<% 'WA eCart Show If End end if %>		  
 
Our Fine Products:
 
Company Info:
 
Purchasing:
 
Retailers:
You Are Logged In
 
 
   
Copyright © 2004-2018 Animal Cuddles. All Rights Reserved.