<%@ Language=VBScript %>
<%
	Option Explicit
%>

<!--#include file=DataStore.asp-->

<%
	
	Dim sUserID
	Dim iSchoolID
	
	sUserID = Request("userid")
	iSchoolID = Request("schoolid")
	
	'User ID and School ID must be provided through http header
	if sUserID = "" or Not IsNumeric(iSchoolID) then Response.Redirect "default.asp"
	
	
	Dim cmSchools
	Set cmSchools = Server.CreateObject("ADODB.Command")
	
	With cmSchools
	.ActiveConnection =	"Provider=MSDASQL;" & _
						"Driver={Microsoft Access Driver (*.mdb)};" & _
						"DBQ=C:\My Documents\Visual Studio Projects\SchoolJobs\DataStore\jobs.mdb"
	
	.CommandText = "DELETE FROM SCHOOL WHERE schoolid = " & iSchoolID
	
	'call execute method to delete record
	.Execute
	
	End With
	
	Set cmSchools = Nothing
	
	Response.Redirect "schlist.asp?userid=" & sUserID	
	
%>