<% Option Explicit %>
<%
Dim O_BandsTours, A_Tours, S_OtherBands, I_Counter
Set O_BandsTours = Server.CreateObject("SquadStudio.Bands_Tours")
O_BandsTours.SetDSN = Application("DSN")
O_BandsTours.SetSiteID = Application("SiteID")
Dim L_BandID, I_StateID, D_Date
L_BandID = Request.QueryString("Band")
I_StateID = Request.QueryString("State")
D_Date = Request.QueryString("Date")
'# Get By band
If Len(L_BandID) > 0 Then
If O_BandsTours.GetTourDatesByBandWithInfo(CLng(L_BandID), 100) Then
A_Tours = O_BandsTours.GetData
End If
'# Get By State
ElseIf Len(I_StateID) > 0 Then
If O_BandsTours.GetTourDatesByStateWithInfo(CInt(I_StateID), 100) Then
A_Tours = O_BandsTours.GetData
End If
'# Get 100 from any band/state(default view)
ElseIf Len(D_Date) > 0 Then
If O_BandsTours.GetTourDatesByDateWithInfo(CDate(D_Date), 100) Then
A_Tours = O_BandsTours.GetData
End If
'# Get 100 from any band/state(default view)
Else
If O_BandsTours.GetTourDatesByDateWithInfo(Date(), 50) Then
A_Tours = O_BandsTours.GetData
End If
End If
%>
<%
If IsArray(A_Tours) Then
For I_Counter = 0 To UBound(A_Tours, 2)
S_OtherBands = ""
If Len(A_Tours(10, I_Counter)) > 0 Then
S_OtherBands = "w/ " & A_Tours(10, I_Counter)
End If
%>