<% 
'  on error resume next
If (Session("UserLoggedIn") <> "True") Then Response.Redirect "default.php"
  Action = Request("Action")
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  varODBC ="umacus"
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Update Calendar Category.x")) <> "" then
	  varID = Request("ID")
	  if Request("CatName") = ""  Then
	    varCatName = " "
	      Else varCatName = Request("CatName")
	  End IF

	  if Request("CatColor") = ""  Then
	    varCatColor = " "
	      Else varCatColor = Request("CatColor")
	  End IF
	  ConvertSingleQuotesforSQL varID
	  ConvertSingleQuotesforSQL varCatName 
	  ConvertSingleQuotesforSQL varCatColor
	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  SQL = "UPDATE tblCalendarCat "
	  SQL = SQL & "SET CatName='" & varCatName & "', "
	  SQL = SQL & "CatColor='" & varCatColor & "'  "	
	  SQL = SQL & " WHERE ID=" & varID & ";"
	  Set RS = Conn.Execute(SQL)
	  If err.number>0 then
	    response.write "VBScript Errors Occured:" & "<P>"
	    response.write "Error Number=" & err.number & "<P>"
	    response.write "Error Descr.=" & err.description & "<P>"
	    response.write "Help Context=" & err.helpcontext & "<P>" 
	    response.write "Help Path=" & err.helppath & "<P>"
	    response.write "Native Error=" & err.nativeerror & "<P>"
	    response.write "Source=" & err.source & "<P>"
	    response.write "SQLState=" & err.sqlstate & "<P>"
	  end if
	  IF conn.errors.count> 0 then
	    response.write "Database Errors Occured" & "<P>"
	    response.write SQL & "<P>"
	    for counter= 0 to conn.errors.count
	      response.write "Error #" & conn.errors(counter).number & "<P>"
	      response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
	    next
	      else
	        Response.Redirect "admin_calendar.php"
	  end if
  end if
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Update Event.x")) <> "" then
	  varID = Request("ID")
	  if Request("DateMonth") = ""  Then
	    varDateMonth= " "
	      Else varDateMonth = Request("DateMonth")
	  End IF
	  if Request("DateDay") = ""  Then
	    varDateDay = " "
	      Else varDateDay = Request("DateDay")
	  End IF
	  if Request("DateYear") = ""  Then
	    varDateYear = " "
	      Else varDateYear = Request("DateYear")
	  End IF
	  if Request("Title") = ""  Then
	    varTitle = " "
	      Else varTitle = Request("Title")
	  End IF
	  if Request("Message") = ""  Then
	    varMessage  = " "
	      Else varMessage  = Request("Message")
	  End IF
	  if Request("Category") = ""  Then
	    varCategory  = " "
	      Else varCategory  = Request("Category")
	  End IF
	  if Request("Register") = ""  Then
	    varRegister  = " "
	      Else varRegister  = Request("Register")
	  End IF
	  ConvertSingleQuotesforSQL varID
	  ConvertSingleQuotesforSQL varDateMonth
	  ConvertSingleQuotesforSQL varDateDay
	  ConvertSingleQuotesforSQL varDateYear
	  ConvertSingleQuotesforSQL varTitle 
	  ConvertSingleQuotesforSQL varMessage
	  ConvertSingleQuotesforSQL varCategory
	  ConvertSingleQuotesforSQL varRegister
	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  SQL = "UPDATE tblCalendar "
	  SQL = SQL & "SET DateMonth='" & varDateMonth & "', "	
	  SQL = SQL & "DateDay='" & varDateDay & "', "
	  SQL = SQL & "DateYear='" & varDateYear & "', "
	  SQL = SQL & "Title='" & varTitle & "', "
	  SQL = SQL & "Message='" & varMessage & "', "
	  SQL = SQL & "Category='" & varCategory & "', "
	  SQL = SQL & "Register='" & varRegister & "' "
	  SQL = SQL & " WHERE ID=" & varID & ";"
	  Set RS = Conn.Execute(SQL)
	  If err.number>0 then
	    response.write "VBScript Errors Occured:" & "<P>"
	    response.write "Error Number=" & err.number & "<P>"
	    response.write "Error Descr.=" & err.description & "<P>"
	    response.write "Help Context=" & err.helpcontext & "<P>" 
	    response.write "Help Path=" & err.helppath & "<P>"
	    response.write "Native Error=" & err.nativeerror & "<P>"
	    response.write "Source=" & err.source & "<P>"
	    response.write "SQLState=" & err.sqlstate & "<P>"
	  end if
	  IF conn.errors.count> 0 then
	    response.write "Database Errors Occured" & "<P>"
	    response.write SQL & "<P>"
	    for counter= 0 to conn.errors.count
	      response.write "Error #" & conn.errors(counter).number & "<P>"
	      response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
	    next
	      else
	        Response.Redirect "admin_calendar.php"
	  end if
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Update Instructor.x")) <> "" then
	  varID = Request("ID")
	  if Request("FirstName") = ""  Then varFirstName = " " Else varFirstName = Request("FirstName") End IF
	  if Request("LastName") = ""  Then varLastName = " " Else varLastName = Request("LastName") End IF
	  if Request("Title") = ""  Then varTitle = " " Else varTitle = Request("Title") End IF
	  if Request("Dan") = ""  Then varDan = " " Else varDan = Request("Dan") End IF
	  if Request("Gup") = ""  Then varGup = " " Else varGup = Request("Gup") End IF
	  if Request("Bio") = ""  Then varBio = " " Else varBio = Request("Bio") End IF

	  ConvertSingleQuotesforSQL varID
	  ConvertSingleQuotesforSQL varFirstName
	  ConvertSingleQuotesforSQL varLastName
	  ConvertSingleQuotesforSQL varTitle
	  ConvertSingleQuotesforSQL varDan 
	  ConvertSingleQuotesforSQL varGup
	  ConvertSingleQuotesforSQL varBio
			
	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  SQL = "UPDATE tblInstructors "
	  SQL = SQL & "SET FirstName='" & varFirstName & "', "	
	  SQL = SQL & "LastName='" & varLastName & "', "
	  SQL = SQL & "Title='" & varTitle & "', "
	  SQL = SQL & "Dan='" & varDan & "', "
	  SQL = SQL & "Gup='" & varGup & "', "
	  SQL = SQL & "Bio='" & varBio & "' "
	  SQL = SQL & " WHERE ID=" & varID & ";"
	  Set RS = Conn.Execute(SQL)
	  
			Response.Redirect "admin_instructors.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Add Calendar Category.x")) <> "" then
	  if Request("CatName") = ""  Then
	    varCatName = " "
	      Else varCatName = Request("CatName")
	  End IF
	  if Request("CatColor") = ""  Then
	    varCatColor = " "
	      Else varCatColor = Request("CatColor")
	  End IF
	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  Set rs = Server.CreateObject("ADODB.Recordset")
	  SQL = "Select * From tblCalendarCat"
	  rs.Open SQL,Conn , 1, 2
	  rs.AddNew
	  rs("CatName") = varCatName
	  rs("CatColor") = varCatColor 
	  rs.Update
	  rs.Close
	  Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Add Event.x")) <> "" then
	  if Request("DateMonth") = ""  Then
	    varDateMonth = " "
	      Else varDateMonth = Request("DateMonth")
	  End IF
	  if Request("DateDay") = ""  Then
	    varDateDay = " "
	      Else varDateDay = Request("DateDay")
	  End IF
	  if Request("DateYear") = ""  Then
	    varDateYear= " "
	      Else varDateYear = Request("DateYear")
	  End IF
	  if Request("Title") = ""  Then
	    varevTitle = " "
	      Else varTitle = Request("Title")
	  End IF
	  if Request("Message") = ""  Then
	    varMessage  = " "
	      Else varMessage  = Request("Message")
	  End IF
	  if Request("Category") = ""  Then
	    varCategory  = " "
	      Else varCategory  = Request("Category")
	  End IF
	  if Request("Register") = ""  Then
	    varRegister  = " "
	      Else varRegister  = Request("Register")
	  End IF
	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  Set rs = Server.CreateObject("ADODB.Recordset")
	  SQL = "Select * From tblCalendar"
	  rs.Open SQL,Conn , 1, 2
	  rs.AddNew
	  rs("DateMonth") = varDateMonth
	  rs("DateDay") = varDateDay
	  rs("DateYear") = varDateYear
	  rs("Title") = varTitle
	  rs("Message") = varMessage
	  rs("Category") = varCategory
	  rs("Register") = varRegister
	  rs.Update
	  rs.Close
	  Response.Redirect "admin_calendar.php"
  end if

'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Add Instructor.x")) <> "" then
	  if Request("FirstName") = ""  Then varFirstName = " " Else varFirstName = Request("FirstName") End IF
	  if Request("LastName") = ""  Then varLastName = " " Else varLastName = Request("LastName") End IF
	  if Request("Title") = ""  Then varTitle = " " Else varTitle = Request("Title") End IF
	  if Request("Dan") = ""  Then varDan = " " Else varDan = Request("Dan") End IF
	  if Request("Gup") = ""  Then varGup = " " Else varGup = Request("Gup") End IF
	  if Request("Bio") = ""  Then varBio = " " Else varBio = Request("Bio") End IF
	  if Request("Photo") = ""  Then varPhoto = " " Else varPhoto = Request("Photo") End IF


	  Set Conn = Server.CreateObject("ADODB.Connection")
	  conn.open "DSN=" & varODBC & ";uid=;pwd="
	  Set rs = Server.CreateObject("ADODB.Recordset")
	  SQL = "Select * From tblInstructors"
	  rs.Open SQL,Conn , 1, 2
	  rs.AddNew
	  rs("FirstName") = varFirstName
	  rs("LastName") = varLastName
	  rs("Title") = varTitle
	  rs("Dan") = varDan
	  rs("Gup") = varGup
	  rs("Bio") = varBio
	  rs("Photo") = varPhoto
	  rs.Update
	  rs.Close
	  Response.Redirect "admin_instructors.php"
  end if

'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Cancel Calendar Category.x")) <> "" then
	    'Do nothing
	    Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Cancel Calendar Category Edit.x")) <> "" then
	    'Do nothing
	    Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Cancel Calendar Category Add.x")) <> "" then
	    'Do nothing
	    Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Cancel Event Edit.x")) <> "" then
	    'Do nothing
	    Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Cancel Instructor Edit.x")) <> "" then
	    'Do nothing
	    Response.Redirect "admin_instructors.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Delete Calendar Category.x")) <> "" then
	    set con = Server.CreateObject("ADODB.Connection")
	    set cmd = Server.CreateObject("ADODB.Command")
	    sql = "DELETE FROM tblCalendarCat WHERE ID=" & Request("ID") 
	    con.open varODBC ,"",""
	    cmd.CommandText = sql
	    cmd.CommandType = 1
	    Set cmd.ActiveConnection = con
	    cmd.Execute
	    Set cmd = Nothing
	    Set con = Nothing
			
	    set con = Server.CreateObject("ADODB.Connection")
	    set cmd = Server.CreateObject("ADODB.Command")
	    sql = "DELETE FROM tblCalendar WHERE Category=" & Request("ID") 
	    con.open varODBC ,"",""
	    cmd.CommandText = sql
	    cmd.CommandType = 1
	    Set cmd.ActiveConnection = con
	    cmd.Execute
	    Set cmd = Nothing
	    Set con = Nothing
			Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Delete Event.x")) <> "" then
	    set con = Server.CreateObject("ADODB.Connection")
	    set cmd = Server.CreateObject("ADODB.Command")
	    sql = "DELETE FROM tblCalendar WHERE ID=" & Request("ID") 
	    con.open varODBC ,"",""
	    cmd.CommandText = sql
	    cmd.CommandType = 1
	    Set cmd.ActiveConnection = con
	    cmd.Execute
	    Set cmd = Nothing
	    Set con = Nothing
	        Response.Redirect "admin_calendar.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Delete Instructor.x")) <> "" then
	    set con = Server.CreateObject("ADODB.Connection")
	    set cmd = Server.CreateObject("ADODB.Command")
	    sql = "DELETE FROM tblInstructors WHERE ID=" & Request("ID") 
	    con.open varODBC ,"",""
	    cmd.CommandText = sql
	    cmd.CommandType = 1
	    Set cmd.ActiveConnection = con
	    cmd.Execute
	    Set cmd = Nothing
	    Set con = Nothing
	        Response.Redirect "admin_instructors.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------
  if Trim(Request("Delete Instructor Photo.x")) <> "" then
	    set con = Server.CreateObject("ADODB.Connection")
	    set cmd = Server.CreateObject("ADODB.Command")
	    sql = "UPDATE tblInstructors SET Photo ='' WHERE ID=" & Request("ID") 
	    con.open varODBC ,"",""
	    cmd.CommandText = sql
	    cmd.CommandType = 1
	    Set cmd.ActiveConnection = con
	    cmd.Execute
	    Set cmd = Nothing
	    Set con = Nothing
	        Response.Redirect "admin_instructors.php"
  end if
'------------------------------------------------------------------------------------------------------------------------------'------------------------------------------------------------------------------------------------------------------------------
Private Sub ConvertSingleQuotesforSQL(varWord)
  varWord=Replace(varWord, "'", "''")
End Sub
'------------------------------------------------------------------------------------------------------------------------------
%>