<%@language=vbscript%> <% Option Explicit Response.Expires = -1000 If isnull(Session("LoginID")) AND isempty(Session("LoginID")) Then Response.Redirect("default.asp?MSG=NOTLOGGED") End If Dim rsNews, strGetNews %> <% Set rsNews = Server.CreateObject("ADODB.Recordset") strGetNews = "SELECT NewsID, NewsTitle, PostDate, NewsBody, Active, UserID FROM tblNews WHERE NewsCategoryID = 1 ORDER BY Active DESC" Set rsNews = oConn.Execute(strGetNews) %>

Edit/Delete News Items
<% Do While NOT rsNews.EOF If rsNews("Active") = 1 Then %> <% Else %> <% End If %> <% rsNews.MoveNext Loop %>

News Title Post Date Active Edit Delete
<%=rsNews("NewsTitle")%> <%=rsNews("PostDate")%> <%=rsNews("Active")%> ">Edit ">Delete

<% Dim pgName pgName = "HP" %>