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

<HTML>
   <HEAD>
      <%

         DIM strSQL, strTemp
	 Dim strID,strTopic,strTask,strTaskPriority
	 Dim strStatus,strUser,strDeadLine,strDetails,strCost 

         strID = Request.QueryString("fldID")
         strTopic = Request.QueryString("fldTopic")
         strTask = Request.QueryString("fldTask")
         strTaskPriority = Request.QueryString("fldTaskPriority")
         strStatus = Request.QueryString("fldStatus")
         strUser = Request.QueryString("fldUser")
         strDeadLine = Request.QueryString("fldDeadLine")
         strDetails = Request.QueryString("fldDetails")
         strCost = Request.QueryString("fldCost")

         IF strID = "" THEN strID = "0"
	 strSQL = "Select * FROM tblTTDtasks WHERE fldID = " & strID 

         ADOrs.Open strSQL, ADOcn, adOpenDynamic, adLockOptimistic
					 ' source,actconn,cursortyp,locktyp,opt 
	 IF NOT((strTask = "") OR (strTopic = "")) THEN 

            ADOrs.Update "fldTask", strTask 
            ADOrs.Update "fldTopic", strTopic 
            ADOrs.Update "fldTaskPriority", strTaskPriority 
            ADOrs.Update "fldStatus", strStatus 
            ADOrs.Update "fldUser", strUser 
            ADOrs.Update "fldDeadLine", strDeadLine 
            ADOrs.Update "fldDetails", strDetails 
            ADOrs.Update "fldCost", strCost

            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
        END IF
     %>
  </HEAD>
  <BODY>
	<%CALL Heading("Update Record")%>
     <% 
	IF NOT(ADOrs.EOF) AND (strTask <> "") AND (strTopic <> "") 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>
	<%

	ELSE
           IF strID = "0" THEN strSQL = "No value passed for ID"
           IF strTask = "" THEN strSQL = "No value entered for Task"
           IF strTopic = "" THEN strSQL = "No value entered for Topic"
	   Response.Write ("Invalid Request: " & strSQL )

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

     %>
<!--#include file="ADOclose.inc"-->
  </BODY>
</HTML>