<% Option Explicit %> <% Dim O_Media, A_media Dim I_Counter, L_LastMediaID, L_LastCategoryID, I_CategoryCount, S_BGColor, I_MediaCount, S_MediaData Dim S_LinkName Set O_Media = Server.CreateObject("SquadStudio.Media") O_Media.SetDSN = Application("DSN") O_Media.SetSiteID = Application("SiteID") '# Get Medias that are not associated with any band If O_Media.GetActiveByTypeWithFiles(1, -1, 0) Then A_media = O_Media.GetData End If %> Drive-Thru Records <% End If End If If Not L_LastCategoryID = A_media(1, I_Counter) Then If instr(I_MediaCount / 2, ".") Then %> <% End If I_CategoryCount = I_CategoryCount + 1 I_MediaCount = 0 S_BGColor = "" If instr(I_CategoryCount / 2, ".") Then S_BGColor = "#FEDD5A" End If %>

DOWNLOADING INSTRUCTIONS
PC Users
  1.Right click the link
  2. When the menu pops up, choose "Save As"
  3. Save to desired location
MAC Users
  1. Click and hold on the link.
  2. When the menu pops up, choose "Download Link to Disk".
  3. Save to desired location
 
<% If IsArray(A_media) Then For I_Counter = 0 To UBound(A_media, 2) If A_media(6, I_Counter) <> "" Then If L_LastMediaID <> "" then If Not L_LastMediaID = A_media(0, I_Counter) Then %>
 
 
  
<% =A_media(2, I_Counter) %>
<% End If '# Changing Medias If Not L_LastMediaID = A_media(0, I_Counter) Then I_MediaCount = I_MediaCount + 1 If InStr(I_MediaCount / 2, ".") Then %> <% End If %> <% End If %>
<% If ISNumeric(A_media(3, I_Counter)) Then %> <% Else %> <% End If %>
<%=A_media(4, I_Counter)%>
<%=A_media(5, I_Counter)%>
 <%=A_media(4, I_Counter)%>
<%=A_media(5, I_Counter)%>
 
<% End If 'If UBound(A_media, 2) - 1 > I_Counter - 1 Then '# Display File If Len(A_media(6, I_Counter)) > 0 Then If A_media(12, I_Counter) <> "" Then If cStr(A_media(12, I_Counter)) = cStr(0) Then Else S_LinkName = A_media(12, I_Counter) End If End If If A_media(8, I_Counter) <> "" Then If cStr(A_media(8, I_Counter)) = cStr(0) Then Else S_LinkName = S_LinkName & " - " & A_media(8, I_Counter) & " dpi" End If End If If A_media(10, I_Counter) <> "" Then If cStr(A_media(10, I_Counter)) = cStr(0) Then Else S_LinkName = S_LinkName & " - " & A_media(10, I_Counter) & " X " & A_media(11, I_Counter) End If End If %> <% End If 'End If '# Need for loop managment L_LastCategoryID = A_media(1, I_Counter) L_LastMediaID = A_media(0, I_Counter) End If Next End If If instr(I_MediaCount / 2, ".") Then %>
FILES
<% =UCASE((A_media(7, I_Counter))) %>: <% =S_LinkName %> (<% =ROUND((A_media(9, I_Counter)), 2) %>KB)
  <% If cStr(A_media(13, I_Counter)) = cStr(0) Then %> <% Else %> <% =(A_media(13, I_Counter)) %> <% End If %>