York University FA-1520

<% On Error Resume Next Dim startyear, endyear startyear = Request.QueryString("start") endyear = Request.QueryString("end") %> York University FA-1520






		<% ' ' ' %>

SONG BOOK

<% If startyear<>"" and Not IsNull(startyear) and endyear<>"" and Not IsNull(endyear) Then decade = FormatNumber( LEFT(startyear,3) & "0", 0,,,0 ) yyy = decade decend = decade + 9 If Request.QueryString("expand")="no" Then decend = decade End If For yyy = decade To decend If FormatNumber(yyy) = FormatNumber(startyear) Then Response.Write "" Next Else Response.Write "" End If %> <% If startyear<>"" and Not IsNull(startyear) and endyear<>"" and Not IsNull(endyear) Then decade = FormatNumber( LEFT(startyear,3) & "0", 0,,,0 ) yyy = decade decend = decade + 9 If Request.QueryString("expand")="no" Then decend = decade End If For yyy = decade To decend Response.Write "" Next Else Response.Write "" End If %>

" Else Response.Write "

" End If Response.Write "" Response.Write "" If Request.QueryString("expand")="no" Then Else Response.Write yyy End If Response.Write "

" If FormatNumber(yyy) = FormatNumber(startyear) Then Response.Write "

" Else Response.Write " " End If Response.Write "

<% ''big-include If startyear<>"" and Not IsNull(startyear) and endyear<>"" and Not IsNull(endyear) Then editmode = 0 If Request.QueryString("edit") = "1" Then editmode = 1 Else editmode = 0 End If If editmode = 1 Then Response.Write "
Add-New Reindex

" End If Response.Write "" Response.Write "" If editmode = 1 Then Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Dim adoCon Dim rsGuestbook Dim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\bm2.mdb"),,0 Set rsGuestbook = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM SongBook WHERE ID1 > 0 " If editmode = 1 Then ''continue Else strSQL = strSQL & " AND Active='T' " End If If startyear<>"" and Not IsNull(startyear) and endyear<>"" and Not IsNull(endyear) Then strSQL = strSQL & " AND (Year >= " & startyear & " AND Year <= " & endyear & ") " End If strSQL = strSQL & " AND CATEGORY LIKE '%1520%' " strSQL = strSQL & " ORDER by Year, Artist " rsGuestbook.Open strSQL, adoCon linecounter = 0 Do While not rsGuestbook.EOF If linecounter = 0 Then Response.Write "" linecounter = 1 Else Response.Write "" linecounter = 0 End If If editmode = 1 Then If rsGuestbook("Active")<>"T" Then Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbCrLf rsGuestbook.MoveNext Loop Set rsGuestbook = Nothing Set adoCon = Nothing Response.Write "

Active		Pop	R&B	Date	Label	Artist	Song	Composer
" Else Response.Write "	" End If Response.Write rsGuestbook("Active") Response.Write "	" ' If editmode = 1 Then ' Response.Write "[" & rsGuestbook("ID") & "]" ' Else ' Response.Write rsGuestbook("ID") ' End If Response.Write "	" Response.Write rsGuestbook("Pop") Response.Write "	" Response.Write rsGuestbook("RB") Response.Write "	" If rsGuestbook("ddd")<>"" AND Not IsNull(rsGuestbook("ddd")) Then Response.Write LEFT(MonthName(DatePart("m",rsGuestbook("ddd"))),3) & "-" & DatePart("yyyy",rsGuestbook("ddd")) Else Response.Write rsGuestbook("Year") End If Response.Write "	" Response.Write rsGuestbook("Label") Response.Write "	" Response.Write rsGuestbook("Artist") Response.Write "	" If rsGuestbook("ClassPlay")<>"" AND Not IsNull(rsGuestbook("ClassPlay")) Then If rsGuestbook("ClassPlay")="Yes" Then Response.Write "" End If End If Response.Write rsGuestbook("Song") Response.Write "	" Response.Write rsGuestbook("COMPOSER") Response.Write "

" Else ''big include Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

" Response.Write "
The Song Book contains a list of more than 4,000 songs. Naturally, we will not play all these songs in class, but we will play more than 200. The listening tests are based on songs played in class. These songs are highlighted in BOLD in the listing. We may still play a few songs that are not bolded or not play some bolded songs, but the idea is to give you an indication of which song we intend to or most likely will be played in class.
" Response.Write "
You should keep a record of each song as it is played in class. Remember, you can only be tested on songs played in class. The tests require you to be able to spell the song name and artists name exactly and 100% correctly. This includes punctuation - hyphens, brackets, apostrophes, etc. These rules are in place since we have abandoned 1/2 marks for partially correct names.
" Response.Write "

" End If ''big include %>