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

Imagin Home Journal Members Pictures About CalendarInterests


 Today is
<%Response.Write date%>

 
Public Journal - All Entries | View past 15 days  

Other Journals

 
 

<% '*********************** ' 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 kjournal 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 %>

Most Recent

Bedtime

Advanced color and a lack of...

After My haircut - Steven cut it for me

Changed Set - Faker

Banana and Me

At my aparment

Oldest