| |
News and Events ...
Check here for
up-to-the-minute news on what's happening at ChangeMaker, with
details of all the latest developments.
<%
Set RsNews = Server.CreateObject("ADODB.RECORDSET")
RsNews.Open "SELECT * FROM tblNews WHERE tblnews.StartDate <= #" & Date() & "# AND tblnews.ExpiredDate >= #" & Date() & "# AND tblnews.activestatus=1" , connect, 1, 2, 1
While Not RsNews.EOF
%>
<% ''
' 
'
' <% =RsNews("Headline") %
'
'
' %
' RsNews.MoveNext()
' WEnd
' RsNews.close
' if Request("newsid") <> "" then
' RsNews.Open "SELECT * FROM tblNews WHERE NewsID=" & Request("newsid"), connect, 1, 1, 1
' If not rsNews.BOF Then
%>
| |
|
|
|
<% =RsNews("Headline") %>
|
|
| |
|
|
| |
<% =RsNews("Detail") %> |
|
| |
|
|
| |
|
|
<%
' end if
' end if
RsNews.MoveNext()
WEnd
'If rsNews("ActiveStatus") = 2 Then
'Response.Redirect("add_news.asp?msg=Please come through a news heading. Don't use inactive news id.")
'Response.End()
'End If
%>
|
|
