Like Us on Facebook Donate to SafeSpace
 

The Voice

Click below to read any of our quarterly newsletters.


<% '================ Connection to Media Items Dim rs1, SQL1 Set rs1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT * From newsletter ORDER BY NewsletterDate Desc" rs1.Open CheckSQL(SQL1), Conn, 1, 3 %> <% If rs1.EOF = True Then%> <%Else%> <% count = 1 Do While Not rs1.EOF '================ Display rows If iCount = 1 Then rowclass= "tablealtrow" iCount = 2 else rowclass = "tablerow" iCount = 1 end if '================ Display content %> <% rs1.MoveNext Count=Count + 1 Loop rs1.close %> <%End If%>
There are no Newsletter items at this time.
<%=rs1("NewsletterDate")%> <%=rs1("Title")%> " target="_blank">