<%
Dim cmp_sql, cmp_rst, cmBody
Set cmp_rst = Server.CreateObject("ADODB.Recordset")
cmp_sql = "SELECT TOP 1 Body2 AS Body FROM cmPreferences WHERE Active = 'yes' ORDER BY Rank"
cmp_rst.Open cmp_sql, cnn, 0, 1
If cmp_rst.EOF Then
cmBody = "Unable to locate content."
Else
cmBody = cmp_rst("Body")
End If
cmp_rst.Close
Set cmp_rst = Nothing
%>