|
|
|
<% If (objRS_Journal.EOF AND objRS_Journal.BOF) Then %>
<% Else
count = 0
strBand_IDs = ""
objRS_Journal.MoveFirst
While count < 5 AND (not objRS_Journal.EOF)
If instr(1, strBand_IDs, objRS_Journal("BAND_ID")) = 0 Then
strBand_IDs = strBand_IDs & objRS_Journal("BAND_ID") & "," %>
<%=objRS_Journal("BAND_NAME")%>
Posted on <%=FormatDateTime(objRS_Journal("ENTRY_DATE"), vbShortDate)%>
'); return false;"><%=objRS_Journal("ENTRY_TITLE")%>
<% count = count + 1
End If
objRS_Journal.MoveNext
Wend
End If %>
|
|
<% While not objRS_Shows.EOF %>
<% If (objRS_Shows("SHOW_DATE") > (Now() - 1)) AND (objRS_Shows("SHOW_DATE") < Now() + 30) Then %>
<%=objRS_Shows("BAND_NAME")%>
<%=objRS_Shows("LOC_CITY") & ", " & objRS_Shows("LOC_STATE")%>
<%=mid(FormatDateTime(objRS_Shows("SHOW_DATE"), vbLongDate), 1, instr(1, FormatDateTime(objRS_Shows("SHOW_DATE"), vbLongDate), ",")) & " " & FormatDateTime(objRS_Shows("SHOW_DATE"), vbShortDate)%>
<%="at " & objRS_Shows("LOC_VENUE")%>
<%="w/ " & objRS_Shows("BANDS_PLAYING")%>
<% End If
objRS_Shows.MoveNext
Wend %>
|
|
|
|
|
|