<% ' Set conn = Server.CreateObject("ADODB.Connection") ' conn.open "stonestreet" %> <% set Conn = server.createobject("adodb.connection") constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/stonestreet.mdb")& ";" Conn.open constr Set Session( "Conn" ) = Conn %>
 

<%set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Featured = 'Yes'") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF %> <%rs.MoveNext Loop End If rs.close%>
No results found
<%Response.Write(rs("Service").value)%>
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
 
<%conn.close%>