% albumsid = Cstr(Request.QueryString("albumid")) %>
<% set Connection=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("music.mdb")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
set RS=Connection.execute("SELECT Albums.ID, Albums.Title, Albums.CDNOW, Albums.CDNOW_Clips, Albums.Flava_Review, Albums.Lyrics_Included, Albums.`Release Date`, Albums.Label, Albums.Producer, Albums.Video_ID, Albums.ASIN, Artists.Name, Artists.Website, Artists.CDNOW as ACDNOW, Songs.Albums_ID, Songs.Title as SongTitle, Songs.Lyrics, Songs.Posted, Songs.Lyrics, Songs.ID as SongID FROM Albums, Artists, Songs WHERE Albums.Artist_ID = Artists.ID and Songs.Albums_ID = Albums.ID and Albums.ID = " & albumsid) %>
Christmas Music - Black Gospel - <%=RS("Name")%>, <%=RS("Title")%>
|






Black Gospel Radio

Listen Now!
| |
|
<%=RS("Name")%>
<%if RS("Website") <> "" then%> 
" target="_blank">VISIT THE WEB SITE!
<%End if%>
|
|
|
<%=RS("Title")%> |
<%relmonth= month(RS("Release Date"))%>
<%relmonthnm = left(MonthName(relmonth),3)%>
<%relday = day(RS("Release Date"))%>
<%relyear = year(RS("Release Date"))%>
<%therelease = relmonthnm & "." & relday & "." & relyear%>
Released: <%=therelease%> |
| Label: <%=RS("Label")%> |
<%if RS("Producer") <> "" then%>
| Produced by: <%=RS("Producer")%> |
<%end if%>
<%if RS("Lyrics_Included") = True then%>
| * Lyrics are included with project |
<%end if%>
<%if RS("Flava_Review") = True then%>
<%end if%>
<%tmp=RS("CDNOW")
itemid=Left(tmp,6)%>
<%if RS("ASIN") <> "" then%>
<%end if%>
|
|
| <%if RS("Video_ID") <> "" then%>
** " target="_blank">Video Available ** <%End if%> |
|
| T R A C K L I S T |
<% col=2
trackcount = 1%>
<% do while not RS.EOF %>
<% if col = 1 then
col = 2 %>
<% else
col = 1%>
<% End if %>
<%if RS("Posted") = True then %>
| <%=trackcount%>. _<%=RS("SongID")%>.ram"><%=RS("SongTitle")%> <%else%>
|
<%=trackcount%>. <%=RS("SongTitle")%> <%End If%> <%if RS("Lyrics") = True then %> .htm"> <%End If%> |
<% RS.MoveNext
trackcount = trackcount + 1
Loop %>
<%RS.Close
set RS=nothing
Connection.Close
set Connection=nothing
%>
|
|