<%@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 rsFeatures, strGetFeatures %> <% Set rsFeatures = Server.CreateObject("ADODB.Recordset") strGetFeatures = "SELECT * FROM tblFeatures" Set rsFeatures = oConn.Execute(strGetFeatures) %>

Edit/Delete Features
<% Do While NOT rsFeatures.EOF If rsFeatures("FeatureActive") = "True" Then %> <% Else %> <% End If %> <% rsFeatures.MoveNext Loop %>

Title Active Edit Delete
<%=rsFeatures("FeatureTitle")%> <%=rsFeatures("FeatureActive")%> ">Edit ">Delete