Reliant Recruitment

<% connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/news.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open connstr Set rs = Server.CreateObject("ADODB.Recordset") %> Reliant Recruitment :: News <% rs.Open "SELECT * FROM tblNews ORDER BY NewsDate DESC", cn Do Until rs.EOF %>

<%=longdate(rs("NewsDate"))%>

<%=rs("NewsTitle")%>

<%=rs("NewsText")%>

<% rs.MoveNext Loop rs.Close %>