Past Issues of John Paul Speaks
See also Pope Francis, Shepherd of Truth and Pope Benedict XVI, Shepherd of Truth
| Date |
Title |
<%
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 %>
| |
|
|
|
