<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../private/beautyroom.mdb")
Dim rsNews
SET rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open "SELECT * FROM news ORDER BY fldDESCRIPTION DESC;", objConn
%>
Beauty Room at Pakefield - latest news
