<%Dim faq, sjcnt, srcnt Set dc = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dc.open "Provider=Microsoft.jet.OLEDB.4.0; Data Source="& server.mappath ("db\tlns.mdb") rs.open "SELECT * FROM FAQ ORDER BY DateAdded DESC;", dc, 3 faq = rs.getrows srcnt = Ubound(faq,2) rs.close dc.Close Set rs = Nothing Set dc = Nothing %>

<%for jcnt = 0 to srcnt%> <%next%> <%=faq(1,jcnt)%>

	<%=faq(1,jcnt)%>
<%=Replace(faq(2,jcnt),vbcrlf," ")%>