Latest News
<% Dim strQuery, strSQLNew, strSQLHeadlines Dim rsItems Set rsItems = Server.CreateObject("ADODB.Recordset") strQuery = Request.QueryString("News") If strQuery <> "" Then rsItems.Filter = "NewsID = " & Request.QueryString("News") rsItems.Open "News", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable Response.Write _ "
" & rsItems("NewsTitle") & "
" & _ "" & Replace(rsItems("Description"),chr(13), "
") & _ "
" & ("Article dated: ") & rsItems("ListingDate") & "
" Else strSQLNew = "SELECT TOP 1 * FROM News WHERE NewsStatus = True ORDER BY ListingDate DESC" rsItems.Open strSQLNew, objConn If Not rsItems.EOF Then ' news items saved strQuery = rsItems("NewsID") Response.Write _ "" & rsItems("NewsTitle") & "
" & _ "" & Replace(rsItems("Description"),chr(13), "
") & _ "
" & ("Article dated: ") & rsItems("ListingDate") & "
" Else strQuery = "none" End If End If rsItems.close %>
<%
If strQuery = "none" then ' no news items saved
Response.Write _
"There are currently no news items listed
There are currently no news items listed"
Else
Response.Write _
"Other Simplea News
"
Dim rsRItems
Set rsRItems = Server.CreateObject("ADODB.Recordset")
strSQLHeadlines = "SELECT * FROM News WHERE NewsStatus = True AND NewsID <> " & strQuery & " ORDER BY ListingDate DESC"
rsRItems.Open strSQLHeadlines, objConn
If Not rsRItems.EOF Then ' news items saved
Do While Not rsRItems.EOF
Response.Write _
"" & rsRItems("ListingDate") & " "& rsRItems("NewsTitle")&"
" & _
rsRItems.MoveNext
Loop
rsRItems.close
End If
End If
%>
Other Simplea News
" Dim rsRItems Set rsRItems = Server.CreateObject("ADODB.Recordset") strSQLHeadlines = "SELECT * FROM News WHERE NewsStatus = True AND NewsID <> " & strQuery & " ORDER BY ListingDate DESC" rsRItems.Open strSQLHeadlines, objConn If Not rsRItems.EOF Then ' news items saved Do While Not rsRItems.EOF Response.Write _ "" & rsRItems("ListingDate") & " "& rsRItems("NewsTitle")&"
" & _ rsRItems.MoveNext Loop rsRItems.close End If End If %>