<%
set rsWeblog = ObjConn.execute("SELECT TOP 10 * FROM weblog ORDER BY date DESC")
if rsWeblog.EOF Then
Response.Write(""&emptyPosts&"")
Else
While NOT rsWeblog.EOF
Set rsComments = objConn.Execute("SELECT Count(comments.blogID) AS antal FROM comments WHERE comments.blogID = " & rsWeblog("id") & ";")
Set rsCategory = ObjConn.Execute("SELECT * FROM category WHERE cat_id = " & rsWeblog("cat_id") & "")
%>
<% rsWeblog.MoveNext Wend rsWeblog.Close Set rsWeblog = Nothing End If %>
<%=rsWeblog("headline")%>
<%=posted%><%=rsWeblog("date")%> - "><%=rsCategory("category")%>
<%=rsWeblog("weblog")%>
" class="bar"><%=comments%> (<%=rsComments("antal")%>)
<% rsWeblog.MoveNext Wend rsWeblog.Close Set rsWeblog = Nothing End If %>