%Option Explicit%> <% Dim strLoggedIn If Session("Authenticated") = True Then strLoggedIn = True 'Else ' Response.Redirect "logerr.asp" End If %>
| Celtic Dragon -
Provided by imaginekb.com 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") &"" & " " End If objRS.MoveNext Wend objRS.Close Set objRS = Nothing %> |
imaginekb.com | <% If strLoggedIn = True Then Response.Write "My Page | Logout" Else Response.Write "Login | Register" End If %>