Go To >>  BLACK GOSPEL MUSIC LINKS    BLACK GOSPEL MUSIC CLEF HOME    THE MEANING   THE MESSAGE   THE MAN

<% 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

">_small.jpg" width="100" height="100">	<%=RS("Title")%>
	Artist: <%=RS("Name")%> Release Date: <%=RS("Release Date")%> Label: <%=RS("Label")%>

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

HOME   THE MUSIC    THE MEANING   THE MESSAGE   THE MAN  

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.