<%@ Language=VBScript %>
<%Option Explicit%>
<!--#include file="_ScriptLibrary/adovbs.inc"-->
<!--#include file=datastore.asp-->

<%
	Dim sUserID
	sUserID = Request("userid")
	
	Dim cnSchoolJobs ' Connection Object
	Set cnSchoolJobs = Server.CreateObject("ADODB.Connection")
	cnSchoolJobs.Open sConnect
	
	Dim rsCart ' Recordset object
	Set rsCart = Server.CreateObject("ADODB.Recordset")
	rsCart.Open "SELECT * FROM CART ORDER BY itemid", cnSchoolJobs, adOpenDynamic,adLockPessimistic, adCmdText
	
	Dim thisItem 'item number
	thisItem = 1
	
	if Request.Form("CartItem").Count <> 0 then
	
	While Not rsCart.EOF
		if cInt(rsCart("itemid")) = cint(Request.Form("CartItem").Item(thisItem)) then
			rsCart.Delete
			rsCart.Update
			if thisItem < Request.Form("CartItem").Count then
				thisItem = thisItem + 1
			end if
		end if
		
		rsCart.MoveNext
	Wend
	End if
	
	rsCart.Close
	Set rsCart = Nothing
	
	cnSchoolJobs.Close
	Set cnSchoolJobs = Nothing
	
	
	Response.Redirect "checkout.asp?userid=" & sUserID
%>