<%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim Products__value Products__value = "0" if (Request("ProductID") <> "") then Products__value = Request("ProductID") %> <% set Products = Server.CreateObject("ADODB.Recordset") Products.ActiveConnection = MM_CharonCart_STRING Products.Source = "SELECT * FROM Products WHERE ProductID=" + Replace(Products__value, "'", "''") + "" Products.CursorType = 0 Products.CursorLocation = 2 Products.LockType = 3 Products.Open() Products_numRows = 0 %> <% '**Add to cart from Link on previous page** '**Charon Cart** ' objCart.AutoIncrement="true" objCart.AddCartItem "ProductID",Products("ProductID") objCart.AddCartItem "Quantity",Request("Qty") objCart.AddCartItem "Name",Products("Product") objCart.AddCartItem "Salary",Products("Salary") objCart.AddCartItem "Location",Products("Location") objCart.AddCartItem "Position",Products("Vacancy") objCart.AddCartItem "Description",Products("Description") objCart.AddCartItem "Branch",Products("Branch") objCart.AddToCart CC_RedirectURL="selectjob.asp" if CC_RedirectURL <> "" then Response.Redirect CC_RedirectURL end if %> Add from Link <% Set objCart=Nothing %> <% Products.Close() %>