<% Dim rs, strSQL set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM songlist WHERE songtype='S' AND artist LIKE 'a%' ORDER BY artist ASC" rs.Open strSQL, adoCon Dim count count = 0 Do While not rs.EOF Response.Write ("") Response.Write ("

") Response.Write rs.Fields("ARTIST") Response.Write (" ") Response.Write rs.Fields("title") Response.Write (" ") Response.Write ("Play Count: ") Response.Write rs.Fields("count_played") Response.Write (" Last Played: ") Response.Write rs.Fields("date_played") Response.Write (" ") Response.Write ("ADD THIS SONG TO TOP OF Q102 QUEUE") Response.Write ("	") If rs.Fields("picture") = "" then Response.Write ("") Else Response.Write ("") End If Response.Write ("

Total Tracks: <%Response.Write count%>