Caroline's Journal - Provided by Imaginekb.com
.jpg)
.jpg)
.jpg)
.jpg)
| <%
'***********************
' 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 carjournal 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 %> |