DRIVE-THRU RECORDS

<% Option Explicit %> <% Function Shorten(S_String, I_Lenght) Dim S_NewString If Len(S_String) > I_Lenght Then S_NewString = Left(S_String, I_Lenght) S_NewString = S_NewString & "" Else S_NewString = S_String End If Shorten = S_NewString End Function %> <% Dim O_Bands_Albums, O_Bands Dim I_Counter, I_Counter2 Dim A_Albums, A_BandID Dim S_Band, AlbumID, tracks, L_BandID, L_StoreID Set O_Bands_Albums = Server.CreateObject("SquadStudio.Bands_Albums") O_Bands_Albums.SetDSN = Application("DSN") O_Bands_Albums.SetSiteID = Application("SiteID") Set O_Bands = Server.CreateObject("SquadStudio.Bands") O_Bands.SetDSN = Application("DSN") O_Bands.SetSiteID = Application("SiteID") S_Band = Request.QueryString("Band") If O_Bands.GetBandByName(cStr(S_Band)) Then A_BandID = O_Bands.GetData End If If IsArray(A_BandID) Then L_BandID = A_BandID(0, 0) End If If IsArray(A_BandID) Then If O_Bands_Albums.GetAlbumsByBandWithTracks(cLng(L_BandID)) Then A_Albums = O_Bands_Albums.GetData End if End If %> DRIVE-THRU RECORDS

<% =S_Band%>

<% If IsArray(A_Albums) Then %> <% For I_Counter = 0 To UBound(A_Albums, 2) %> <% If AlbumID = A_Albums(0, I_Counter) Then %> <% =A_Albums(11, I_Counter) %>. <% =A_Albums(12, I_Counter) %>
<% Else%> <% If AlbumID <> "" Then %>

<% End If %> <% ' %>

<% if A_Albums(1, I_Counter) <> "" Then %> " border="1" bordercolor="#000000" hspace="5" vspace="5"> <% End If %>	<% =A_Albums(7, I_Counter) %>
	Release: <% =A_Albums(4, I_Counter) %>
	BUY ALBUM >>	BUY ALBUM >>

Track Listing
<% =A_Albums(11, I_Counter) %>. <% =A_Albums(12, I_Counter) %>
<% End If %> <% AlbumID = A_Albums(0, I_Counter) %> <% Next %> <% End If %>

_photo.gif">