<% if session("loggedin") = "yes" then %> <% strSQL = "SELECT blog_date, blog_contents, last_modified FROM blog_contents "_ & "WHERE blog_date = '" & blogdate & "' AND blog_user = '" & session("username") & "' ORDER BY last_modified DESC" set dbRS = conn.Execute(strSQL) %>

<% if not dbRS.EOF then strSQL = "SELECT blog_date, blog_contents, last_modified, blog_user FROM blog_contents "_ & "WHERE blog_date = '" & blogdate & "' AND blog_user <> '" & session("username") & "' ORDER BY last_modified DESC" set dbRS2 = conn.Execute(strSQL) if dbRS2.EOF then %> <%= dbRS(1) %> <% else %> <%= dbRS(1) %> <% end if %>

   &date=<%= blogdate %>'">

<% strSQL = "SELECT blog_date, blog_contents, last_modified, blog_user FROM blog_contents "_ & "WHERE blog_date = '" & blogdate & "' AND blog_user <> '" & session("username") & "' ORDER BY last_modified DESC" set dbRS = conn.Execute(strSQL) do while not dbRS.eof %>

Last Modified on <%= dbRS(2) %> by <%= dbRS(3) %>

<%= dbRS(1) %>

<% dbRS.movenext loop else strSQL = "SELECT blog_date, blog_contents, last_modified FROM blog_contents "_ & "WHERE blog_date = '" & blogdate & "' AND blog_user <> '" & session("username") & "' ORDER BY last_modified DESC" set dbRS = conn.Execute(strSQL) if dbRS.EOF then %>

<% else %>

<% strSQL = "SELECT BC.blog_date, BC.blog_contents, BC.last_modified, BC.blog_user, BU.email " _ & "FROM blog_contents BC "_ & "INNER JOIN blog_users BU ON " _ & "BC.blog_user = BU.username " _ & "WHERE BC.blog_date = '" & blogdate & "' "_ & "AND blog_user <> '" & session("username") & "' ORDER BY BC.last_modified DESC" set dbRS = conn.Execute(strSQL) do while not dbRS.eof %>

Last Modified on <%= dbRS(2) %> by <%= dbRS(3) %>

<%= dbRS(1) %>

<% dbRS.movenext loop end if end if %>

<% else strSQL = "SELECT BC.blog_date, BC.blog_contents, BC.last_modified, BC.blog_user, BU.email " _ & "FROM blog_contents BC "_ & "INNER JOIN blog_users BU ON " _ & "BC.blog_user = BU.username " _ & "WHERE BC.blog_date = '" & blogdate & "' ORDER BY BC.last_modified DESC" set dbRS = conn.Execute(strSQL) count = 0 if dbRS.EOF then %>
<% else do while not dbRS.eof count = count + 1 %>

Last Modified on <%= dbRS(2) %> by <%= dbRS(3) %>

<%= dbRS(1) %>

<% dbRS.movenext loop end if end if %>