<%@ Language=VBScript %> <%Response.Buffer = True%> <% OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") ItemID=cint(Request.QueryString("IID")) Sel="SELECT txtSupply, txtItemNumber, nQuantity FROM SCart WHERE ItemID=" & ItemID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("viewcart.asp") txtSupply=rs("txtSupply") txtItemNumber=rs("txtItemNumber") nQuantity=rs("nQuantity") rs.Close CustomerID= cint(Request.Cookies("wades")("cid")) Sel="SELECT * FROM Customers WHERE CustomerID=" & CustomerID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("Customer_List.asp") txtName=rs("txtFname") & " " & rs("txtLname") If Trim(rs("txtCompany"))<>"" then txtCompany="(" & rs("txtCompany")& ") " rs.Close%>

Shopping cart for <%=txtName & " " & txtCompany%>

Remove the following item from your shopping cart? <%=nQuantity%> x <%=txtSupply & " (Item Number " & txtItemNumber & ")"%>   YES NO