|
|
|
<% 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 %>
|
|
<%
End If
set objRS_Shows = nothing
objRS_Band.MoveNext
Wend %>
|
|
|
|