Now That's What I Call Music CD Listing

<% if srch <> "" then %>

You searched for : "<%=srch%>"

<% end if %>

 

<% if rc > 0 then response.write("

Results found: " & rc & "

") if opt = "" then %> <% rc = 1 : oed = 0 : odsk = 0 while not rs.EOF and rc <= maxres ed = rs("edition") if ed <> oed then oed = ed %> <% end if dsk = rs("disc") if dsk <> odsk and srch <> "" then odsk = dsk %> <% end if artist = rs("artist") title = rs("title") if srch <> "" then artist = highlite(artist,srch) title = highlite(title,srch) end if %> <% rc = rc + 1 rs.MoveNext() Wend %>

Now That's What I Call Music <%=" " & ed%> - <%=rs("tdate")%>
Disc <%=" " & dsk%>
		Track	Artist	Title
<%=rc%>.	<%=dsk%>	<%=rs("track")%>	<%=artist%>	<%=title%>

<% else ' --- opt = blank ---' %> <% while not rs.EOF artist = rs("artist") title = rs("title") if srch <> "" then artist = highlite(artist,srch) title = highlite(title,srch) end if bg = "" if opt = "A" then if artist <> oart then bg = " bgcolor=""#eef""" oart = artist end if else end if %> > <% rs.MoveNext() Wend %>

Now CD	Dsc / Trk	Artist	Title	Date
<%=rs("edition")%>	<%=rs("disc")%> <%= "/" & rs("Track")%>	<%=artist%>	<%=title%>	<%=rs("tdate")%>

<% end if ' opt ------- ' %>