Past 15 days | View All
<%
'***********************
' 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 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 "" & objRS("date") &"" & "
" & objRS("body") & "
" End If objRS.MoveNext Wend objRS.Close Set objRS = Nothing %>
