<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "news.asp" %> <% dim mode dim i dim count dim strBand_IDs dim RecordsAffected dim objRS_Shows dim objRS_Journal dim objRS_News set objRS_Journal = Get_JOURNAL() set objRS_Shows = Get_SHOWS() set objRS_News = Get_NEWS() %> Rivalry Records
<% 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 %>  

 

<% For i=1 to 10 %> <% objRS_News.MoveNext Next %>
"> '); return false;"><%=objRS_News("NEWS_TITLE") & " >>"%>
<%="Posted on " & FormatDateTime(objRS_News("NEWS_DATE"), vbShortDate) & " by " & objRS_News("USER_NAME")%>
" style="display: none;"> <%=objRS_News("NEWS_TEXT")%>
View all past news updates >>
 

<% set objRS_Shows = nothing set objRS_Journal = nothing set objRS_News = nothing %>