<% commentsSQL = "select top 20 COMMENTS.* from COMMENTS order by COMMENT_DATE desc, COMMENT_TIME desc;" rsComments.open commentsSQL,adoCon Do While not rsComments.EOF entriesSQL = "select ENTRIES.ENTRY_ID, ENTRIES.ENTRY_TITLE from ENTRIES where ENTRY_ID=" & rsComments("ENTRY_ID") & ";" rsEntries.open entriesSQL,adoCon response.write("

" & rsEntries("ENTRY_TITLE") & "
") response.write("" & rsComments("COMMENT_NAME") & " says: " & SummarizeText(Server.HTMLEncode(rsComments("COMMENT_TEXT")),40) & " ") response.write(" on " & rsComments("COMMENT_DATE") & " @ " & TimeWithoutSeconds(rsComments("COMMENT_TIME")) & "

") rsEntries.Close rsComments.MoveNext ' DON'T FORGET THIS LINE OR YOU WILL BE IN AN INFINITE LOOP! Loop rsComments.Close %>