<%Option Explicit%> Warren's Imagin

 

Warren's Journal - Provided by Imaginekb.com

 

Viewing all Entries
 

<% '*********************** ' 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") & "




" End If objRS.MoveNext Wend objRS.Close Set objRS = Nothing %>