<% if request("added") = "false" then Response.Write "
" else Response.Write "
" end if %>
 


<% if request("added") = "false" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
 
VIEW BASKET
     
" Response.Write "We were unable to add the qty requested to your basket. You requested " & request("qtyRequested") & " item(s) and we currently have " & request("qtyAvailable") & " available. We are sorry for the inconvenience, please adjust your qty or try back at a later date." response.write "

Click here to continue shopping." Response.Write "
" else Response.Write "" Response.Write "" Response.Write "" 'see how many of these we may have in the basket already myArray = session("GolfShoppingCart") QtyInBasket = 0 if isarray(myArray)then for i = 0 to ubound(myArray,2) QtyInBasket = QtyInBasket + myarray(1,i) next end if set cn= Server.CreateObject("ADODB.Connection") cn.Open Application("GP") set cmd = Server.CreateObject("ADODB.Command") with cmd .ActiveConnection = cn .CommandType = 4 'get product web sale price .CommandText = "dbo.getGolfProductSale" .Parameters.Refresh .Parameters("@GPID") = "MGMX1-11R" set rs = .execute if not (rs.eof and rs.bof) then salePrice = formatcurrency(rs(0)) end if rs.close 'get Product Details .CommandText = "dbo.getGolfProductWeb" .Parameters.Refresh .Parameters("@GPID") = "MGMX1-11R" set rs = .execute if not (rs.eof and rs.bof) then price = rs(0) rs.close else price = 0 end if end with cn.Close set cn = nothing 'Price if salePrice > 0 then Response.Write "" Response.Write "" end if Response.Write "" if salePrice > 0 then Response.Write "" Response.write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" if QtyInBasket > 0 then Response.Write "" Response.Write "" Response.Write "" end if Response.Write "" Response.Write "" Response.Write "
 
VIEW BASKET
Original Price: " & formatcurrency(price) & "
Sale Price: " else Response.Write "Price: " end if if salePrice > 0 then Response.Write salePrice else Response.Write formatcurrency(price) end if Response.Write "
Select Product: " Response.Write "" Response.Write "
Qty:
Qty In Basket: " & QtyInBasket & "
" end if %>