REDEFINING HUMAN AGING
Dr. Renna’s Comments
<% sql = "SELECT TOP 4 PK_Comment,CommentDate, Headline, Comments FROM tblComment ORDER BY CommentDate DESC" Set rsContent = Server.CreateObject("ADODB.Recordset") rsContent.Open sql, conn, 3, 3 'check to see some Comments Exist if not rsContent.eof then response.write("" & rsContent("Headline") & "
") response.write("Date: " & DateValue(rsContent("CommentDate")) & "
") response.write(rsContent("Comments")) response.write("")
response.write("
")
'if not set an error message
else
response.write("There are no current comments")
end if
'close connections
rsContent.close
Set rsContent = Nothing
%>
Recent Comments
") response.write("- ")
do until rsContent.eof
response.write("
- " & DateValue(rsContent("CommentDate")) & "
") response.write("" & rsContent("Headline") & "") response.write(" ")
rsContent.MoveNext
loop
response.write("