<%@ 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
	
	Dim rsSchool
	Set rsSchool = server.CreateObject("ADODB.Recordset")		'Recordset object

	'open the SCHOOL table
	rsSchool.Open "SCHOOL", cnSchoolJobs, 0, 3
	
		'filter the recordset
	rsSchool.Filter = "manager_id = '" & sUserID & "'"
	
	Dim objConn
	Set objConn = server.CreateObject("ADODB.Connection")	'Connection object
	'open the connection object
	objConn.Open sConnect
	
	Dim rsManager
	Set rsManager = Server.CreateObject("ADODB.Recordset")
	
	'and open the MANAGER table
	rsManager.Open "MANAGER", objConn, 0, 3

	'Filter the recordset and verify if information has already been saved with this user id
	rsManager.Filter = "managerid = '" & sUserID & "'"

	
	'*** Place for FREE jobs *** -->
	if rsSchool("state") = "33" or rsManager("yearlong") then
	Response.redirect "http://www.school-jobs.net/jobs/research.asp?userid=" & sUserID
	end if
	
	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
	
	rsManager.Close
	Set rsManager = Nothing
	
	
	Response.Redirect "checkout.asp?userid=" & sUserID
%>