<%
label = request("label")
blogID = request("blogID")
last_msg_id = request("last_msg_id")
action = request("action")
if blogID <> "" then
set RS=server.createobject("ADODB.recordset")
sql="SELECT postID, title FROM posts WHERE postID = " & blogID
RS.open SQL, conn("blog"), 3, 3
postTitle = rs("title")
rs.close
set rs=nothing
connClose("blog")
end if
if action <> "get" then
%>
<%if blogID <> "" then %><%=postTitle%><%else%>The Drastics' Blog<% end if %>
<%=postTitle%><%else%>The Drastics' Blog<% end if %>" />
Recent Activity
<%
set RS=server.createobject("ADODB.recordset")
sql="SELECT TOP 8 title, author, postID, pDate, time FROM posts WHERE publish=true ORDER BY pDate DESC, time DESC"
RS.open SQL, conn("blog"), 3, 3
while not rs.eof
author = CInt(rs("author"))
set nameRS=server.createobject("ADODB.recordset")
namesql="SELECT * FROM users where userID =" & author
nameRS.open namesql, conn("blog"), 0, 3
%>
<%=rs("pDate")%> " target="_top" style="font: 10px Helvetica, sans-serif; font-weight:bold; letter-spacing:-0.01em; color:#000000;"><%=rs("title")%>
<%
rs.MoveNext
wend
rs.MoveFirst
nameRS.close
set nameRS=nothing
rs.close
set rs=nothing
connClose("blog")
%>
<% If InStr(1, Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") then %>
<% else %>
<% end if %>
<% if blogID <> "" then %>
<% else %>
<% end if %>