<% Dim conn Call OpenDB() strSQL = "SELECT albumid, productname, productdesc, prodphoto, prodthumb, prodprice, prodxtra, shipfee, sku, pricetype, outlink1, outlink2, outlink3 FROM albums p ORDER BY productname ASC " Set rsProd = Server.CreateObject("ADODB.Recordset") rsProd.Open strSQL, conn IF Not rsProd.EOF THen noArray=0 arProd=rsProd.GetRows() Else noArray=1 End If rsProd.Close Function songlist(albumid) strSQL = "SELECT productname, songorder FROM songs WHERE albumid=" & albumid & " ORDER BY songorder ASC " rsProd.Open strSQL, conn strList = "" Do Until rsProd.EOF strList = strList & rsProd("songorder") & ". " & rsProd("productname") & "
" & vbCrLf rsProd.MoveNext Loop rsProd.Close songlist = strList End Function %> Music - Stephen Speaks

Age of the Underdog - Album Release
<% for i = 0 to UBOUND(arProd, 2) %>

<%=arProd(1,i)%>

<% IF arProd(9,i)="minimum" THen %> Name Your Price: <% end if %>
<% IF arProd(10,i)<>"" Then %> Buy on iTunes <% End IF %> <% IF arProd(11,i)<>"" Then%> Buy on Amazon <% End IF %>

<%=arProd(1,i)%>

tracks:

<%=songlist(arProd(0,i))%>

DETAILS:

<%=arProd(2,i)%>

 

<% next %>

 

 

 

 

 

 



 

Follow Our Blog

 

Watch Videos

 

Shop Our Store




Stephen Speaks Photos