


Welcome to the Simplea Website
Simplea News Headlines
<%
Dim rsItems
set rsItems = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TOP 5 * FROM News WHERE NewsStatus = True ORDER BY ListingDate DESC"
rsItems.Open strSQL, objConn
If Not rsItems.EOF Then ' active news items saved
Do While Not rsItems.EOF
Response.Write _
rsItems("ListingDate") & " " & rsItems("NewsTitle") & "
" & _
rsItems.MoveNext
Loop
Else ' no news items saved
Response.Write "
There are no current news items." End If rsItems.close %>