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

<% 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("AddSchools",adCmdTable) sch.AddNew For Each Field In sch.Fields If Not IsEmpty(Request.Form(Field.Name)) Then sch(Field.Name) = Request.Form(Field.Name) End If Next sch("as_submitter") = Session("u_id") sch.Update sch.Resync 'Notify administration Message = "A new school or update has been submitted for IHSICH." & vbCrLf & vbCrLf & _ "Please go to: http://ntjazz.com/admin/addschool_compare.asp?as_id=" & _ sch("as_id") & "&sch_id=" & sch("sch_id") & vbCrLf & vbCrLf Sendmail "webmaster@ntjazz.com",Array("jwarrick@ntjazz.com","tony@tonytang.com"),"IHSICH Submission",Message 'Send confirmation to submitter Message = "Dear " & Session("u_fname") & "," & vbCrLf & vbCrLf & _ "Thank you for submitting a school 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() Response.Redirect "update_school_confirm.htm" 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)

<% If Request("sch_id") = "" Then %> add school <% Else %> update school <% End If %>

Add or update your school's listing by completing and submitting this form. Leave unknown fields blank. If you have any problems or questions, please write us. Fields marked with an asterisk (*) are required.

<% 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 link to update your record.

<% End If %>

*School Name:
" maxlength="50">
*Address:
" maxlength="50">
">

*City
" maxlength="50">

*State
<%= CreateDropList("SELECT st_short As as_state, st_name FROM States;","as_state","st_name",WriteField("sch_state"),"") %>

*Zip
" maxlength="10">

*Phone:
">
(Example: 555-555-5555 x5555)

Fax:
">

Official School Web Site:
">
(Example: http://nths.nttc.org)

Music Department Web Site:
">
(Example: http://ntjazz.com)

Special Instructions:

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) %>