ASP Source Code: 
<%Option Explicit%>
<!--#include file="ADOsetup.inc"-->
<HTML>
   <HEAD>
      <%
         DIM strSQL,strFields, strItem, strLastItem, strOrderBy
         strOrderBy = "fldTopic,fldTaskPriority"
         strFields = "fldID,fldTopic,fldTask,fldTaskPriority,fldStatus,fldUser"
         strSQL = "Select " & strFields & _ 
		  " FROM tblTTDtasks " & _
                  " WHERE fldTask <> '' " & _
		  " ORDER BY " & strOrderBy
		 
         ADOrs.Open strSQL, ADOcn
 
         SUB DBtable(strField)
            strItem = ADOrs.Fields(strField).Value
	    SELECT CASE strField
               CASE "fldTopic":
 	          IF (strLastItem = strItem) THEN 
                     strItem = ""
                  ELSE
 	             strLastItem = strItem
                  END IF
                CASE "fldTask":
                     strItem = 	"<A HREF= " & _
				"'DETAIL.ASP?ID=" & _
				ADOrs.Fields("fldID").Value & "'>" & _
				strItem & "</A>"
            END SELECT
            Response.Write("<td>")
            Response.Write(strItem)
            Response.Write("</td>")
         END SUB
     %>
  </HEAD>
  <BODY>
     <H2><img border="0" Height=40 src="KgLogo.gif">&nbsp;&nbsp;&nbsp;
	Things To Do: <font color=Red>All Records<font color=Black></H2><BR>
     <table border="1" width="80%">
        <tr>
           <th>Topic</th>
           <th>Task</th>
           <th>Priority</th>
           <th>Status</th>
           <th>User</th>
        </tr>

        <%
	   do until ADOrs.EOF
              Response.Write("<tr>")
                 DBtable("fldTopic")
                 DBtable("fldTask")
                 DBtable("fldTaskPriority")
                 DBtable("fldStatus")
                 DBtable("fldUser")
                 ADOrs.MoveNext
              Response.Write("</tr>")
           loop
        %>
   </table>
   <A HREF='EnterNew.asp'>Add New Record</A><BR>
   <A HREF='Blackboard.asp'>Kg Systems Blackboard</A>
<!--#include file="ADOclose.inc"-->
  </BODY>
</HTML>