Grace Happens - Bumper Stickers - T-Shirts

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Infant__varCategory_ID Infant__varCategory_ID = "10" If (Category_ID <> "") Then Infant__varCategory_ID = Category_ID End If %> <% Dim Infant Dim Infant_numRows Set Infant = Server.CreateObject("ADODB.Recordset") Infant.ActiveConnection = MM_GHshopCONN_STRING Infant.Source = "SELECT * FROM products WHERE Category_ID='" + Replace(Infant__varCategory_ID, "'", "''") + "'" Infant.CursorType = 2 Infant.CursorLocation = 3 Infant.LockType = 1 Infant.Open() Infant_numRows = 0 %> <% ' WA eCart AddToCart if (cStr(Request.Form("cart_1_ATC")) <> "" OR cStr(Request.Form("cart_1_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("cart_1_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "shopping_cart.asp" ATC_RedirectIfIn = "" Dim ATC_RSPos ATC_RSPos = Infant.AbsolutePosition Infant.MoveFirst() DO while (NOT Infant.EOF) if (cStr(Infant.Fields("Product_ID").value) = cStr(ATC_itemID)) then ATC_itemName = "" & cStr((Infant.Fields.Item("Name").Value)) & ""' column binding ATC_itemDescription = ""' column binding ATC_itemWeight = cDbl("" & cStr((Infant.Fields.Item("Weight").Value)) & "")' column binding ATC_itemQuantity = Request.Form("cart_1_Quantity_Add")' column binding ATC_itemPrice = cDbl("" & cStr((Infant.Fields.Item("Price").Value)) & "")' column binding ATC_itemshipping = cDbl("" & cStr((Infant.Fields.Item("Shipping").Value)) & "")' column binding ATC_itemColor = Request.Form("cart_1_Color_Add")' column binding ATC_itemSize = Request.Form("cart_1_Size_Add")' column binding Exit DO end if Infant.MoveNext() Loop Infant.AbsolutePosition = ATC_RSPos if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set cart = cart_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice, ATC_itemshipping, ATC_itemColor, ATC_itemSize) if (ATC_RedirectAfter <> "" AND cart_redirStr = "") then cart_redirStr = ATC_RedirectAfter end if end if end if %> <% ' WA eCart Redirect if (cart_redirStr <> "") then Response.Redirect(cart_redirStr) end if %> Grace Happens - Bumper Stickers - T-Shirts - Martha's Vineyard

Albert Einstein ©TM Made Available Through The ROGER RICHMAN AGENCY BEVERLY HILLS, CA

Products \| T-shirts \| Infant T Creepers

	Colors:

Grace Happens © 1995, 2006 All rights reserved
Web design by

www.mvmedialab.com Martha's Vineyard Media Lab

<% Infant.Close() Set Infant = Nothing %>