The Voice
<%
'================ 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%>
| There are no Newsletter items at this time. |
<%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("NewsletterDate")%> |
<%=rs1("Title")%> |
" target="_blank"> |
<% rs1.MoveNext
Count=Count + 1
Loop
rs1.close
%>
<%End If%>
|