<%
' WA eCart AddToCart
if (cStr(Request.Form("Firmstone_1_ATC")) <> "" OR cStr(Request.Form("Firmstone_1_ATC.x")) <> "") then
ATC_itemID = cStr(Request.Form("Firmstone_1_ID_Add"))
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart.asp"
ATC_RedirectIfIn = ""
ATC_itemName = "Pool, Tuscany"' column binding
ATC_itemDescription = "24" & Chr(34) & " x 24" & Chr(34) & " Print"' column binding
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = Request.Form("Firmstone_1_Quantity_Add")' column binding
ATC_itemPrice = cDbl("250")' column binding
if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then
set Firmstone = Firmstone_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice)
if (ATC_RedirectAfter <> "" AND Firmstone_redirStr = "") then
Firmstone_redirStr = ATC_RedirectAfter
end if
end if
end if
%>
<%
' WA eCart Redirect
if (Firmstone_redirStr <> "") then
Response.Redirect(Firmstone_redirStr)
end if
%>
David Firmstone : www.davidfirmstone.com
