< <  

July 6, 2002

  > >

View Readings
Similar Reflections

john paul speaks

Past Issues of John Paul Speaks

See also Pope Francis, Shepherd of Truth and Pope Benedict XVI, Shepherd of Truth

<% Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open Application("PresMinMySQL_ConnectionString") Set rsJPS = Server.CreateObject("ADODB.Recordset") sqlStr = "SELECT * FROM PUB WHERE pubType = 'jps' AND DELETED = FALSE ORDER BY pubDate DESC" c = 0 curYear = "" rsJPS.Open sqlStr, DBConn Do While rsJPS.EOF = False If c Mod 2 = 0 Then rowBGColor = "#FFFFFF" Else rowBGColor = "#eeeeee" End If If c = 0 Then jpslinkqstr = "?navlink=latest" Else jpslinkqstr = "" End If d = rsJPS("pubDate") fileBase = rsJPS("fileBase") If curYear <> Year(d) And curYear <> "" Then %> <% If curYear <> Year(d) Then %>
Date Title