star1.gif (2007 bytes)HOME  christmas music   THE MEANING   christmas music THE MESSAGE christmas music   THE MAN  star2.gif (2765 bytes)

star3.gif (2765 bytes)The Musicstar1.gif (2007 bytes)

Home The Music The Man The Meaning The Message Full Song List Listen

glitbul1.gif (345 bytes)    
     Gospel Radio  glitbul1.gif (345 bytes)  LISTEN NOW!  glitbul1.gif (345 bytes) Buy Christmas Music

<% Dim oConn Dim oRs Dim Mv ' Direction to move Dim PageNo ' Keep track of the page we're on. Populated from Form var Dim j ' Cobol style loops! Dim i Dim cnpath ' Create ADO Connection Component to connect with ' sample database Set oConn = Server.CreateObject("ADODB.Connection") cnpath="DBQ=" & server.mappath("music.mdb") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath ' Create ADO Recordset Component Set RS = Server.CreateObject("ADODB.Recordset") ' Determine what PageNumber the scrolling currently is on Mv = Request("Mv") If Request("PageNo") = "" Then PageNo = 1 Else PageNo = Request("PageNo") End If RS.Open "SELECT Albums.ID, Albums.Title, Albums.`Release Date`, Albums.Label, Artists.Name FROM Albums, Artists WHERE Albums.Artist_ID = Artists.ID ORDER BY Albums.`Release Date` DESC", oConn, adOpenStatic RS.PageSize = 15 ' Adjust PageNumber as Appropriate If Mv = "Page Up" or Mv = "Page Down" Then Select Case Mv Case "Page Up" If PageNo > 1 Then PageNo = PageNo - 1 Else PageNo = 1 End If Case "Page Down" If RS.AbsolutePage < RS.PageCount Then PageNo = PageNo + 1 Else PageNo = RS.PageCount End If Case Else PageNo = 1 End Select End If RS.AbsolutePage = PageNo %>
Click on the album cover to see more information and to
listen to available RealAudio Clips

<% For j = 1 to RS.PageSize %> <%CurrentRecord = CurrentRecord + 1%> <% RS.MoveNext ' Don't try to print the EOF record. If RS.EOF Then Exit For End If next%>
">_small.jpg" width="100" height="100"> <%=RS("Title")%>
Artist: <%=RS("Name")%>
Release Date: <%=RS("Release Date")%>
Label: <%=RS("Label")%>

PAGE:  <%=PageNo%>  of  <%=RS.PageCount%>

<% If PageNo > 1 Then %>

<% End If If PageNo < RS.PageCount Then %> <% End If %>

Buy Gospel Christmas Music - iTunes

Buy Gospel Christmas Music - Amazon

star1.gif (2007 bytes)HOME  christmas music THE MUSIC   christmas music  THE MEANING   christmas music THE MESSAGE christmas music   THE MAN  star2.gif (2765 bytes)

Produced, designed, hosted and maintained by  iHs Enterprises
Follow us on Twitter  | Join Us On Facebook
This site best viewed using Internet Explorer 3+ with resolution set to 800x600.  
1997-2011 Black Gospel Music Clef Network, All rights reserved.