<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_col1 Dim rs_col1_cmd Dim rs_col1_numRows Set rs_col1_cmd = Server.CreateObject ("ADODB.Command") rs_col1_cmd.ActiveConnection = MM_faithreport_STRING rs_col1_cmd.CommandText = "SELECT * FROM 501739_faithreport.faithreport WHERE faithreport.Column = 1 Order By faithreport.Timestamp desc" rs_col1_cmd.Prepared = true Set rs_col1 = rs_col1_cmd.Execute rs_col1_numRows = 0 %> <% Dim rs_col2 Dim rs_col2_cmd Dim rs_col2_numRows Set rs_col2_cmd = Server.CreateObject ("ADODB.Command") rs_col2_cmd.ActiveConnection = MM_faithreport_STRING rs_col2_cmd.CommandText = "SELECT * FROM 501739_faithreport.faithreport WHERE faithreport.Column = 2 Order By faithreport.Timestamp desc" rs_col2_cmd.Prepared = true Set rs_col2 = rs_col2_cmd.Execute rs_col2_numRows = 0 %> <% Dim rs_col3 Dim rs_col3_cmd Dim rs_col3_numRows Set rs_col3_cmd = Server.CreateObject ("ADODB.Command") rs_col3_cmd.ActiveConnection = MM_faithreport_STRING rs_col3_cmd.CommandText = "SELECT * FROM 501739_faithreport.faithreport WHERE faithreport.Column = 3 Order By faithreport.Timestamp desc" rs_col3_cmd.Prepared = true Set rs_col3 = rs_col3_cmd.Execute rs_col3_numRows = 0 %> The Faith Report
In God We Trust...right?



THE FAITH REPORT

Check here for the latest updates on issues impacting faith and freedom across America!


<% Do While Not rs_col1.EOF %>"><%=(rs_col1.Fields.Item("Title").Value)%>
<% rs_col1.movenext() loop%>
<% Do While Not rs_col2.EOF %>"><%=(rs_col2.Fields.Item("Title").Value)%>
<% rs_col2.movenext() loop%>
<% Do While Not rs_col3.EOF %>"><%=(rs_col3.Fields.Item("Title").Value)%>
<% rs_col3.movenext() loop%>
The Faith Report is a service of the Congressional Prayer Caucus Foundation, Inc. Find out more at CPCFoundation.com
<% rs_col1.Close() Set rs_col1 = Nothing %> <% rs_col2.Close() Set rs_col2 = Nothing %> <% rs_col3.Close() Set rs_col3 = Nothing %>