Chenille Baby
Travel Blanket(Product
size: 17" x 24"): The
finest and softest quality,
double sided, 100% chenille
baby travel blanket on
the market, and a picture
frame border with luxurious
satin trim. This travel
blanket will bring any
baby a warm, gentle smile. Each
of the 6 available colors
includes its own unique
cuddling animal.
<%if request("form1") = "" then%>
<%
else
if request.form("Cuddles_Cart_1_ATC") = "Add Lot To Cart" then
if request("white") <> "" then
white = cint(request("white"))
else
white = 0
end if
if request("pink") <> "" then
pink = cint(request("pink"))
else
pink = 0
end if
if request("sage") <> "" then
sage = cint(request("sage"))
else
sage = 0
end if
if request("yellow") <> "" then
yellow = cint(request("yellow"))
else
yellow = 0
end if
if request("blue") <> "" then
blue = cint(request("blue"))
else
blue = 0
end if
if request("purple") <> "" then
purple = cint(request("purple"))
else
purple = 0
end if
dim colordetails
dim qtyadd
valid = true
errmsg = "
There were some problems adding your items to the cart:
"
if (white + pink + sage + yellow + blue + purple) < 12 then
valid = false
errmsg = errmsg & "
You must purchase a minimum of 12 travel blankets. "
errmsg = errmsg & " For Example: 2 white, 8 blue, and 2 sage - A total of 12."
errmsg = errmsg & " Or 3 white, 8 sage, 1 pink, and 3 blue - A total of 15."
end if
if (white + pink + sage + yellow + blue + purple) = 0 then
valid = false
errmsg = errmsg & "
You must specify the number of each color that you wish to purchase."
end if
errmsg = errmsg & "
"
if valid = false then
response.write errmsg
else
qtyadd = (white + pink + sage + yellow + blue + purple)
colordetails = white & " White, " & pink & " Pink, " & sage & " Sage, " & yellow & " Yellow, " & blue & " Blue, " & purple & " Purple"
' WA eCart AddToCart
if (cStr(Request.Form("Cuddles_Cart_1_ATC")) <> "" OR cStr(Request.Form("Cuddles_Cart_1_ATC.x")) <> "") then
ATC_itemID = cStr(Request.Form("Cuddles_Cart_1_ID_Add"))
ATC_AddIfIn = 2
ATC_RedirectAfter = "cart.asp"
ATC_RedirectIfIn = ""
ATC_itemName = Request.Form("Cuddles_Cart_1_Name_Add")' column binding
ATC_itemDescription = colordetails 'Request.Form("Cuddles_Cart_1_Description_Add")' column binding
ATC_itemWeight = Request.Form("Cuddles_Cart_1_Weight_Add")' column binding
ATC_itemQuantity = qtyadd 'Request.Form("Cuddles_Cart_1_Quantity_Add")' column binding
ATC_itemPrice = Request.Form("Cuddles_Cart_1_Price_Add")' column binding
ATC_itemShipping = Request.Form("Cuddles_Cart_1_Shipping_Add")'column binding
if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then
set Cuddles_Cart = Cuddles_Cart_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice, ATC_itemShipping)
if (ATC_RedirectAfter <> "" AND Cuddles_Cart_redirStr = "") then
Cuddles_Cart_redirStr = ATC_RedirectAfter
end if
end if
end if
' WA eCart Redirect
if (Cuddles_Cart_redirStr <> "") then
Response.Redirect(Cuddles_Cart_redirStr)
end if
end if
end if
end if
%>