<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "tours.asp"%> <% dim objRS_Band dim objRS_Shows set objRS_Band = Get_BAND() %> Rivalry Records

<% End If set objRS_Shows = nothing objRS_Band.MoveNext Wend %>
<% While not objRS_Band.EOF set objRS_Shows = Get_SHOWS_By_BAND_ID(objRS_Band("BAND_ID")) If objRS_Band("ACTIVE") = "Y" Then %>
" width="371" height="81">
<% If (objRS_Shows.EOF AND objRS_Shows.BOF) Then %>
No shows scheduled at this time

<% End If %> <% While not objRS_Shows.EOF %> <%=objRS_Shows("LOC_CITY") & ", " & objRS_Shows("LOC_STATE") & " " & objRS_Shows("LOC_ZIP") & "
"%>
<%=FormatDateTime(objRS_Shows("SHOW_DATE"), vbLongDate) & "
"%> <%="at " & objRS_Shows("LOC_VENUE") & "
"%> <%="w/" & objRS_Shows("BANDS_PLAYING") & "
"%> <%If IsNumeric(objRS_Shows("PRICE")) Then Response.Write(FormatCurrency(objRS_Shows("PRICE"))) Else Response.Write(objRS_Shows("PRICE"))%> <%=", " & objRS_Shows("SHOW_TIME") & "
"%> <%If len(objRS_Shows("OTHER_INFO")) > 0 Then Response.write(objRS_Shows("OTHER_INFO") & "
")%> <%="
"%> <%objRS_Shows.MoveNext Wend %>