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

<HTML>
   <HEAD>
      <%

         DIM strSQL, strTemp, VarFields,VarValues, strFields, strValues
	 Dim strID,strTopic,strTask,strTaskPriority
	 Dim strStatus,strUser,strDeadLine,strDetails,strCost

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

	 strSQL = "Select * FROM tblTTDtasks WHERE 1 = 2;"

         'ADOrs.Open strSQL, ADOcn, adOpenDynamic, adLockOptimistic	
	 ADOrs.Open strSQL, ADOcn, adOpenKeyset, adLockPessimistic, adCmdText


	 IF NOT((strTask = "") OR (strTopic = "")) THEN 
	    ADOrs.AddNew 

            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

	    strID = ADOrs.Fields("fldID").Value
	    ADOrs.Close

	    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
       END IF
     %>
  </HEAD>
  <BODY>

	<%CALL Heading("Add 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>
	<%
              strTemp = "<A HREF= " & _
			"'Edit.ASP?ID=" & _
			ADOrs.Fields("fldID").Value & _
			"'>Edit</A>"
              Response.Write(strTemp & "&nbsp;&nbsp;&nbsp;")

	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 )
           Response.Write("<BR><A HREF='EnterNew.ASP'>Try again.</A>")
           Response.Write("<BR><A HREF='Show.ASP'>Show All Records</A>")
        END IF
     %>
<!--#include file="ADOclose.inc"-->
  </BODY>
</HTML>