<% '*********************** ' Simple Sample * '*********************** ' Specific to public entries * ' Is Date Specific * '*********************** Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = strConnect objRS.CursorType = adOpenStatic objRS.LockType = adLockReadonly objRS.Source = "SELECT date, body, public FROM woojournal WHERE public Like True ORDER BY Date DESC" objRS.Open While NOT objRS.EOF If objRS("public") =True Then Response.Write "" & objRS("date") &"" & "

" & objRS("body") & "