<%@ Language=VBScript %> Our Lady of Victory / St-Malachy | Archives
Bulletin and Homily Archives
<% Dim Action Set Conn=Server.CreateObject("ADODB.Connection") Conn.ConnectionTimeout=60 Conn.Open "olvstmdb" SQL_VIEW = "Select * From tblArchive where Bulletin = 'Yes' OR Homily = 'Yes' Order by ArcDate DESC" SET RSVIEW = Server.CreateObject("ADODB.Recordset") RSVIEW.CursorLocation = 3 RSVIEW.CursorType = 3 RSVIEW.PageSize = 75 RSVIEW.open SQL_VIEW, Conn If RSVIEW.EOF = True or RSVIEW.BOF = True then response.write("
No Archived Bulletins currently listed.") ELSE %> <% Do Until RSVIEW.EOF %> <% Arc_Link=RSVIEW("ArcDate") Doc_Type=RSVIEW("DocType") Curr_Rec_Date=RSVIEW("ArcDate") Curr_Rec_yr=(left(Curr_Rec_Date,4)) IF Doc_Type="pdf" then Doc_Zoom="#zoom=100" ELSE Doc_Type="asp" Doc_Zoom="" END IF If RSVIEW("Bulletin")="Yes" then Response.write ("") ELSE Response.write ("") END IF If RSVIEW("Homily")="Yes" then Response.write ("") ELSE Response.write ("") END IF %> <% RSVIEW.MoveNext If NOT RSVIEW.EOF THEN Next_Rec_Date=RSVIEW("ArcDate") Next_Rec_yr=(left(Next_Rec_Date,4)) IF Next_Rec_yr <> Curr_Rec_yr THEN %><% END IF ELSE %><% END IF Loop END IF RSVIEW.close Set RSVIEW = Nothing Conn.close Set Conn = Nothing %>
Date     Liturgical Calendar Archives
<%=RSVIEW("ArcDate")%>     <%=RSVIEW("LitCal")%>Bulletin Homily 
<% Response.write("-----------------------------------------------------" & "   " & Next_Rec_yr & "   " & "-----------------------------------------------------")%>