ASP Source Code: 
<%Option Explicit%>
<!--#include file="ADOsetup.inc"-->
<!--#include file="Misc.inc"-->

<HTML>
   <HEAD>
      <%
         DIM strSQL, strID, strTemp
         strID = Request.QueryString("ID")

         IF strID = "" THEN strID = "0"

	 strSQL = "Select * FROM tblTTDtasks WHERE fldID = " & strID 
         ADOrs.Open strSQL, ADOcn

         SUB fmt(strCaption,strField)
	    Response.Write("<tr>")
	       Response.Write(vbTab & "<td width='20%'><B>")
	          Response.Write(strCaption)
	       Response.Write("</td></B>")
	       Response.Write("<td>")
	          Response.Write(ADOrs.Fields(strField).Value)
	       Response.Write("</td>")
	    Response.Write("</tr>")
         END SUB
  
     %>
  </HEAD>
  <BODY>
   <%CALL Heading("Detail Listing")%>
     <% 
	IF NOT(ADOrs.EOF) THEN 
     %>
        <table width="80%">
           <%
              CALL fmt("Topic","fldTopic")
              CALL fmt("Task","fldTask")
              CALL fmt("Priority","fldTaskPriority")
              CALL fmt("Status","fldStatus")
              CALL fmt("User","fldUser")
              CALL fmt("Cost","fldCost")
              CALL fmt("DeadLine","fldDeadLine")
              CALL fmt("Details","fldDetails")
         %>
        </table>
        <BR>
	<%

           strTemp = "<A HREF= " & _
		     "'Delete.ASP?ID=" & _
		     ADOrs.Fields("fldID").Value & _
		     "'>Delete</A>"
           Response.Write(strTemp)
           Response.Write("&nbsp;&nbsp;&nbsp;")
           strTemp = "<A HREF= " & _
		     "'Edit.ASP?ID=" & _
		     ADOrs.Fields("fldID").Value & _
		     "'>Edit</A>"
           Response.Write(strTemp)

	ELSE
           IF strID = "0" THEN strSQL = "No value passed for ID"
	   Response.Write ("Invalid Request: " & strSQL )
        END IF
     %>
<!--#include file="ADOclose.inc"-->
  </BODY>
</HTML>