<%
Call RequireLogin()
Dim sch
Dim Field
Dim Message
Dim Result
Private Function WriteField(Field)
If IsObject(sch) Then
WriteField = sch(Field)
End If
End Function
If Request.ServerVariables("HTTP_METHOD") = "POST" Then
Set sch = OpenRecordSet("AddDirectors",adCmdTable)
sch.AddNew
sch("ad_submitter") = Session("u_id")
sch("sd_id") = Request.Form("sd_id")
sch("Remove") = 1
sch.Update
sch.Resync
'Notify administration
Message = "A director delete update has been submitted for IHSICH." & vbCrLf & vbCrLf & _
"Please go to: http://ntjazz.com/admin/director_delete.asp?ad_id=" & _
sch("ad_id") & vbCrLf & vbCrLf
Result = Sendmail("webmaster@ntjazz.com",Array("jwarrick@ntjazz.com","ntjazz@tonytang.com"),"IHSICH Submission",Message)
'Send confirmation to submitter
Message = "Dear " & Session("u_fname") & "," & vbCrLf & vbCrLf & _
"Thank you for submitting a director delete update to IHSICH at http://ntjazz.com. " & _
"Submissions from users like you keep IHSICH the most up-to-date Internet database of Illinois high schools. " & _
"Your submission will be reviewed by a human within 24-48 hours and added to our database if approved. " & _
vbCrLf & vbCrLf & "Sincerely," & vbCrLf & vbCrLf & "Jim Warrick" & vbCrLf & _
"Coordinator of Jazz Studies" & vbCrLf & "New Trier High School" & vbCrLf & _
"http://ntjazz.com"
Result = Sendmail("webmaster@ntjazz.com",Array(Session("u_email"),"jwarrick@ntjazz.com","ntjazz@tonytang.com"),"IHSICH Thank You!",Message)
CloseRecordSet(sch)
CloseConnection()
If Result Then
Response.Redirect "delete_directors_confirm.htm"
End If
Else
If Request("sch_id") <> "" Then
Set sch = OpenRecordSet("SELECT * FROM Schools WHERE (sch_id = " & Request("sch_id") & ");",adCmdText)
End If
End If
%>
New Trier High School Jazz: Illinois High School Internet Communications
Hub (IHSICH): Delete Director
delete
directors
Delete
a music director listing by completing and submitting this
form. If you have any problems or questions, please write
us.
