<!-- #include file = "datacon.inc" -->
<!-- #include file = "adovbs.inc" -->
<% 	Dim strAdd
	strAdd = Ucase(request.form("add"))	
	
	Dim objRec, objRec1, strSQL
	Set objRec = Server.CreateObject("ADODB.Recordset")
	Set objRec1 = Server.CreateObject("ADODB.Recordset")	
	
	if strAdd = "S" then
		Dim SchoolName, City, sState
		SchoolName = trim(request.form("schoolname"))
		City = trim(request.form("city"))
		sState = request.form("state")
		
		if SchoolName = "" or City = "" then
			response.redirect "add.asp?add=S&error=noinfo&schoolname="&SchoolName&"&city="&City&"&state="&sState
		end if

		strSQL = "select SchoolID from School where Display is null and SchoolName='"&SchoolName&"' and City='" &City& "' and State='"&sState&"';"
		objRec1.open strSQL,strConnect,,, adCmdText

		if not objRec1.EOF then
			objRec1.close
			set objRec1 = nothing
			response.redirect "add.asp?add=S&error=dup&schoolname="&SchoolName&"&city="&City&"&state="&sState
		else
			objRec1.close
			set objRec1 = nothing
			objRec.Open "School",strConnect,adOpenDynamic,adLockOptimistic
			objRec.AddNew
			objRec("SchoolName") = SchoolName
			objRec("City") = City
			objRec("State") = sState
			objRec("InsertDate") = date()
			objRec.Update

			session("schoolID") = objRec.fields("SchoolID")
			session("schoolname") = objRec("schoolname")

			objRec.close
			set objRec = nothing

			response.redirect("add.asp?add=T")
		end if
	end if
	
	if strAdd = "T" then
		Dim Title, LastName, FirstName, Department
		Title = request.form("title")
		LastName = trim(request.form("LastName"))
		FirstName = trim(request.form("FirstName"))
		Department = trim(request.form("department"))
		
		if LastName = ""  then
			response.redirect "add.asp?add=T&error=noinfo&title="&Title&"&lastname="&LastName&"&firstname="&FirstName&"&department="&Department
		end if

		strSQL = "select TeacherID from Teacher where Display is null and Title = '"&Title&"' and LastName='"&LastName&"' and FirstName='" &FirstName& "' and department='"&Department&"' and SchoolID="&Cint(session("schoolID"))&";"
		objRec1.open strSQL,strConnect,,, adCmdText
	
		if not objRec1.EOF then
			objRec1.close
			set objRec1 = nothing
			response.redirect "add.asp?add=T&error=dup&title="&Title&"&lastname="&LastName&"&firstname="&FirstName&"&department="&Department
		else
			objRec1.close
			set objRec1 = nothing
   			objRec.Open "Teacher",strConnect,adOpenDynamic,adLockOptimistic
			objRec.AddNew
			objRec("Title") = Title
			objRec("LastName") = LastName
			objRec("FirstName") = FirstName
			objRec("Department") = Department		
			objRec("SchoolID") = session("schoolID")
			objRec("InsertDate") = date()
			objRec.Update

			objRec.close
			set objRec = nothing

			response.redirect("school.asp")
		end if
		
	end if
	

%>