Today is
<%Response.Write date%>

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") & "

Most Recent

Oldest