ASP Source Code: 
<%Option Explicit%>
<!--#include file="Misc.inc"-->
<!--#include file="ADOsetup.inc"-->
<HTML>
   <HEAD>
      <%
         DIM strSQL, strID, strTemp
	 strSQL = "Select * FROM tblTTDtasks WHERE 2 = 1"
         ADOrs.Open strSQL, ADOcn

         SUB Blankfmt(strCaption,strField)
	    Response.Write("<tr>")
	       Response.Write(vbTab & "<td width='20%'><B>")
	          Response.Write(strCaption)
	       Response.Write("</td></B>")
               Response.Write("<td>")
	       SELECT CASE strField
                  CASE "fldTaskPriority"
	             Response.Write ("<select name=" & "'" & strField & "'>")
	                Response.Write ("<option value=1>1</option>" & vbCrLf)
	                Response.Write ("<option value=2>2</option>" & vbCrLf)
	                Response.Write ("<option value=3>3</option>" & vbCrLf)
	             Response.Write("</select>")

                  CASE "fldUser"
	             Response.Write("<select name=" & "'" & strField & "'>")
	                Response.Write("<option value=TBD>TBD</option>" & vbCrLf)
	                Response.Write("<option value=Ken>Ken</option>" & vbCrLf)
	                Response.Write("<option value=Dan>Dan</option>" & vbCrLf)
	                Response.Write("<option value=Frank>Frank</option>" & vbCrLf)
	                Response.Write("<option value=Other>Other</option>" & vbCrLf)
	             Response.Write("</select>")
	          CASE ELSE
	             Response.Write("<input type='Text' Name=")
                     Response.Write("'" & strField & "'>")
               END SELECT
	       Response.Write("</td>")
	    Response.Write("</tr>")
         END SUB
  
     %>
  </HEAD>
  <BODY>
     <%CALL Heading("New Entry")%>
      <form action="Add.asp" method="get">
        <table width="80%">

           <%
              CALL Blankfmt("Topic","fldTopic")
              CALL Blankfmt("Task","fldTask")
              CALL Blankfmt("Priority","fldTaskPriority")
              CALL Blankfmt("Status","fldStatus")
              CALL Blankfmt("User","fldUser")
              CALL Blankfmt("Cost","fldCost")
              CALL Blankfmt("Deadline","fldDeadLine")
              CALL Blankfmt("Details","fldDetails")
         %>
        </table>
        <input type="submit" value="Submit New Data"><BR>
      </form>
<!--#include file="ADOclose.inc"-->
  </BODY>
</HTML>