| |
Most Recent Procurement Information.
<%
Set RsNews = Server.CreateObject("ADODB.RECORDSET")
RsNews.Open "SELECT * FROM tblProcure WHERE tblProcure.StartDate <= #" & Date() & "# AND tblProcure.ExpiredDate >= #" & Date() & "# AND tblProcure.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
%>
| Initiated |
|
Expires |
| <% =RsNews("startdate") %> |
<% =RsNews("Headline") %> |
<% =RsNews("ExpiredDate") %> |
| |
|
|
| |
<% =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
%>
|
|
