New Trier High School Jazz: Illinois High School Internet Communications Hub (IHSICH): Update Director

<% 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 For Each Field In sch.Fields If Not IsEmpty(Request.Form(Field.Name)) Then If Not (Field.Name = "ad_id" And Request.Form(Field.Name) = "") Then sch(Field.Name) = Request.Form(Field.Name) End If End If Next sch("ad_country") = "USA" sch("ad_submitter") = Session("u_id") sch.Update sch.Resync 'Notify administration Message = "A director update has been submitted for IHSICH." & vbCrLf & vbCrLf & _ "Please go to: http://ntjazz.com/admin/director_update.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 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 "update_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): Update Director

add or update directors

Add or update your music director listing by completing and submitting this form. If you have any problems or questions, please write us.

<% If Request("sch_id") = "" Then %>

If your school is already listed in our hub, you must first find your listing and then click the Update Directors link to update director listings.

<% End If %>

School Name:
<% If WriteField("sch_name") <> "" Then %> <% = WriteField("sch_name") %> <% Else %> <% End If %>

Director Information:

Note: If an individual has more than one title, such as "Band Director" and "Jazz Director", then submit a separate entry for each title. Required fields are marked with an asterisk (*).

*Choose a Director to Modify or "<Add New Director>" to Add One:
<%= CreateDropList("SELECT sd.sd_id, u.u_fname + ' ' + u.u_mname + ' ' + u.u_lname + ', ' + dt.dt_name As u_name FROM SchoolDirectors As sd, Users As u, DirectorTypes As dt WHERE (sd.sch_id = " & Request("sch_id") & " AND sd.u_id = u.u_id AND sd.dt_id = dt.dt_id);","sd_id","u_name",0,"") %>

*Title:
<%= CreateDropList("SELECT dt_id, dt_name FROM DirectorTypes","dt_id","dt_name",0,"") %>

*First Name

M.I.

*Last Name

*City: ">	*State: <%= CreateDropList("SELECT st_short As ad_state, st_name FROM States","ad_state","st_name","IL","") %>
Director's School Phone: (e.g. 555-555-5555 x5555)
E-mail Address: (e.g. director@ntjazz.com)

NOTE: All submissions are reviewed by a human and may take 24-48 hours to appear in our database. Incomplete or poorly formatted submissions will be discarded.

Click Submit only once. Submission may take up to 1 minute to complete.

Home | Write Us | Get Jazz Concert E-mail Reminders

New Trier High School - 385 Winnetka Ave. - Winnetka, IL 60093
(847) 784-6701 - FAX: (847) 501-6400

<% CloseRecordSet(sch) %>