<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
News and Events at Angel Court
News and Events
<% ShowNews %>
<%
'+--------------------------------------------------------------------+
'| Thomas Higginbotham |
'| Date: 7.26.5 |
'| Name: ShowNews() |
'| Desc: Pulls news and events from database and displays it |
'+--------------------------------------------------------------------+
Sub ShowNews()
Dim rsNews
Set rsNews = Server.CreateObject("ADODB.Recordset")
With rsNews
.ActiveConnection = ConString
.Source = "SELECT * FROM tblLatest ORDER BY newsDate DESC"
.CursorLocation = 2
.CursorType = 0
.LockType = 1
.Open()
End With
Do While Not rsNews.EOF
Response.Write("
")
Response.Write(rsNews("news"))
If rsNews("newsImg") <> "" Then
Response.Write("
")
End If
Response.Write("
")
rsNews.MoveNext
Loop
rsNews.Close()
Set rsNews = Nothing
End Sub
%>