imaginekb.com - Side Bar

<%Option Explicit%> <% Dim strLoggedIn If Session("Authenticated") = True Then strLoggedIn = True 'Else ' Response.Redirect "logerr.asp" End If %> imaginekb.com - Side Bar

Imaginekb Sidebar

Recent Journal Entries:

<% '*********************** ' Simple Sample * '*********************** ' James Journal * ' 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 jamjournal WHERE public Like True ORDER BY Date DESC" objRS.Open While NOT objRS.EOF If objRS("public") =True And objRS("date") > Now -15 Then Response.Write "James' Journal
" & objRS("date") &"" & "

" & objRS("body") & "

" End If objRS.MoveNext Wend objRS.Close Set objRS = Nothing %>
<% '*********************** ' Simple Sample * '*********************** ' Kevin's Journal * ' Is Date Specific * '*********************** Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = strConnect objRS.CursorType = adOpenStatic objRS.LockType = adLockReadonly objRS.Source = "SELECT date, body, public FROM kjournal WHERE public Like True ORDER BY Date DESC" objRS.Open While NOT objRS.EOF If objRS("public") = True And objRS("date") > Now -2 Then Response.Write "Kevin's Journal
" & objRS("date") &"" & "

" & objRS("body") & "

" &_ "View entire Journal" &_ "

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