<% Dim rs Dim aQuery, sSQL, bBlank, i, page If Request("page") = "" Then page = 1 Else page = CInt(Request("page")) End If %> New Trier High School Jazz: Illinois High School Internet Communications Hub (IHSICH)

home

about the new trier jazz studies program

join our mailing list

jazz fest info

order new trier jazz compact discs

Illinois High School Internet Communications Hub - IHSICH
 
" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" language="JavaScript">

IHSICH

IHSICH is the most up-to-date on-line database containing every high school in the state of Illinois and can be updated by any Illinois high school.  Updates are posted within 24-48 hours.  When a school's web site is submitted, its name will become a hyperlink. When a director's name and e-mail address are submitted, the name will be displayed as an e-mail link.  See a sample listing here...

Search By Name or City:

<%= MakeAlphaNav() %> <% If Request("p") <> "" AND Request("q") = "" Then Set rs = server.CreateObject("ADODB.Recordset") rs.PageSize = 20 rs.Open "SELECT * FROM Schools WHERE ((sch_name LIKE '" & CStr(Request("p")) & _ "%') AND (SchoolDeleted <> 1)) ORDER BY sch_name", _ Application("CS"), adOpenKeyset, adLockOptimistic, adCmdText 'Set the page rs.AbsolutePage = page Response.Write "

Displaying matches " & _ (page - 1) * rs.PageSize + 1 & " to " If page * rs.PageSize > rs.RecordCount Then Response.Write rs.RecordCount Else Response.Write page * rs.PageSize End If Response.Write " of " & rs.RecordCount & ".
" Response.Write MakePageNav(rs,page) & "

" Response.Write CreateList() Response.Write "

" & MakePageNav(rs,page) & "

" rs.Close Set rs = Nothing ElseIf Request("q") <> "" Then Set rs = server.CreateObject("ADODB.Recordset") rs.PageSize = 20 ' aQuery = Split(Request("q")) aQuery = Array(Request("q")) sSQL = "SELECT * FROM Schools WHERE ((SchoolDeleted <> 1) AND " bBlank = False For i = 0 To UBound(aQuery) If Trim(aQuery(i)) <> "" Then If i > 0 AND Not bBlank Then sSQL = sSQL & " OR " End If sSQL = sSQL & "(sch_name LIKE '%" & Trim(aQuery(i)) & "%') OR (sch_city LIKE '%" & Trim(aQuery(i)) & "%') " bBlank = False Else bBlank = True End If Next sSQL = sSQL & ") ORDER BY sch_name" rs.Open sSQL, Application("CS"), adOpenKeyset, adLockOptimistic, adCmdText 'Set the page If Request("page") <> "" Then rs.AbsolutePage = Request("page") End If Response.Write "

Displaying matches " & _ (page - 1) * rs.PageSize + 1 & " to " If page * rs.PageSize > rs.RecordCount Then Response.Write rs.RecordCount Else Response.Write page * rs.PageSize End If Response.Write " of " & rs.RecordCount & ".
" Response.Write MakePageNav(rs,page) & "

" Response.Write CreateList() Response.Write "

" & MakePageNav(rs,page) & "

" rs.Close Set rs = Nothing End If %> <% If Request("p") <> "" OR Request("q") <> "" Then Response.Write MakeAlphaNav() End If %>
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

Copyright ©2009 New Trier High School.  All rights reserved.
New Trier Jazz Studies is an aspect of the New Trier Music Department.
Web site design by Nic Meyer.

<% Private Function CreateList() Dim Result Dim dirs Dim i i = 0 Result = Result & "" & _ "" & vbCrLf While Not rs.EOF And i < rs.PageSize Result = Result & "" _ & "" & "" & vbCrLf rs.MoveNext i = i + 1 WEnd Result = Result & "
" _ & "" If rs("sch_url") <> "" Then Result = Result & _ CreateLink(rs("sch_url"),rs("sch_name")) Else Result = Result & rs("sch_name") End If Result = Result & "
" 'School Address Result = Result & "" & rs("sch_addr1") & "
" If rs("sch_addr2") <> "" Then Result = Result & rs("sch_addr2") & "
" End If Result = Result & rs("sch_city") & ", " & rs("sch_state") & " " _ & rs("sch_zip") & "
" & _ "" 'School phone If rs("sch_phone") <> "" Then Result = Result & rs("sch_phone") & "
" End If 'School FAX If rs("sch_fax") <> "" Then Result = Result & rs("sch_fax") & " FAX
 " End If Result = Result & "
" _ & "" 'Map link Result = Result & "

[" & _ "Map | " 'Call Free! If rs("sch_phone") <> "" Then Result = Result & " Call Free! | " Else Result = Result & " Lookup | " End If 'Update link Result = Result & CreateLink("update.asp?sch_id=" & rs("sch_id"),"Update") & "]

" 'School Music Department If rs("sch_music_url") <> "" Then Result = Result & "" If rs("sch_music_url") <> "" Then Result = Result & CreateLink(rs("sch_music_url"), "Music Department") Else Result = Result & "Music Department" End If Result = Result & ":
" End If 'Directors Result = Result & ListDirectors(rs("sch_id")) Result = Result & " 
" CreateList = Result End Function Private Function ListDirectors(sch_id) Dim Result Dim rs Set rs = OpenRecordSet("SELECT * FROM Users As u, SchoolDirectors As sd, DirectorTypes As dt WHERE (sd.sch_id = " & sch_id & " AND sd.u_id = u.u_id AND sd.dt_id = dt.dt_id);", adCmdText) While Not rs.EOF Result = Result & "" If rs("u_email") <> "" Then Result = Result & CreateMailtoLink(rs("u_email"), rs("u_fname") & " " & rs("u_mname") & " " & rs("u_lname")) Else Result = Result & rs("u_fname") & " " & rs("u_mname") & " " & rs("u_lname") End If Result = Result & ", " & rs("dt_name") & "
" If rs("u_phone") <> "" Then Result = Result & "   " & FormatPhone(rs("u_phone")) & "
" End If Result = Result & "" rs.MoveNext WEnd ListDirectors = Result End Function Private Function MakeAlphaNav() Dim Result Dim sAlpha Dim i Dim sThis sAlpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Result = Result & "

" For i = 1 To Len(sAlpha) sThis = Mid(sAlpha,i,1) If Not StrComp(sThis,Request("p"),1) = 0 Then Result = Result & "" & sThis & " " Else Result = Result & "" & sThis & " " End If Next Result = Result & "

" MakeAlphaNav = Result End Function Private Function MakePageNav(ByRef rs,Current) Dim Result Dim i 'Set default current page If Current < 1 Then Current = 1 Else Current = CInt(Current) End If Result = Result & "Page " If Current > 1 Then Result = Result & "<< Prev " End If For i = 1 To rs.PageCount If i = Current Then Result = Result & i & " " Else Result = Result & " "" Then Result = Result & "?" & Mid(Request.QueryString,1,InStr(Request.QueryString,"&page=")-1) & "&page=" & i Else Result = Result & "?" & Request.QueryString & "&page=" & i End If Result = Result & """>" & i & " " End If Next If Current < rs.PageCount Then Result = Result & "Next >> " End If MakePageNav = Result End Function %>