Add a calendar to an Update Record form in ASP

<%
cid=Request.Form("CAC")
 
' Define the items in the DISPOSITION list
const DefaultDisp = "PND"
dim DispositionList
DispositionList = Array("CDM","COF", "CTT", "DNA", "FLD", "NAR", "OAT", "OTH", "SAV", "SYS")
 
 
if Request.form("cktid")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "SELECT * FROM Pending WHERE CAC='" & cid & "'",conn
  %>
  <form method="post" action="Potomac_Update_Entry.asp">
  <table>
  <%for each x in rs.Fields%>
  <tr>
  <td><%=x.name%></td>
<%
    dim item
    dim selected
 
    ' If the current field is DISPOSITION,
    ' the render it as a DropDown list.
    if (x.name = "DISPOSITION") Then
      Response.Write("<td><select name=""DISPOSITION"">" & vbCrLf)
 
      if (x.value = "") then x.value = DefaultDisp
      ' Display all the options
      for each item in DispositionList
        ' Determine the selected item
        if (x.value = item) Then
          selected = "selected=""true"""
        else
          selected = ""
        end if
 
        Response.Write("<option value=""" & item & """ " & selected & ">" & item & "</option>" & vbCrLf)
      next
 
      Response.Write("</select></td>") & vbCrLf
    else
%>
  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>
    <% end if %>
    <%next%>
  </tr>
  </table>
  <br /><br />
  <input type="submit" value="Update Record">
  </form>
<%
else
 
SQLstmt="UPDATE Pending SET "
SQLstmt=SQLstmt & "DISPOSITION='" & Ucase(TRIM(Request.Form("DISPOSITION"))) & "'," 
 
 
  If Request.Form("COMPLETED") <> "" Then
     SQLstmt=SQLstmt & "COMPLETED='" & Ucase(TRIM(Request.Form("COMPLETED"))) & "',"
Else
     SQLstmt=SQLstmt & "COMPLETED= NULL,"
End If
 
  SQLstmt=SQLstmt & "SUMMARY='" & Ucase(TRIM(Request.Form("SUMMARY"))) & "'"
  SQLstmt=SQLstmt & " WHERE CAC='" & cid & "'"
'on error resume next
 conn.Execute (SQLstmt)
  if err<>0 then
    Response.write SQLstmt
  else 
    response.redirect "Pending_Update_Select.asp"
  end if 
end if
conn.close
set conn = nothing
set sqlstmt = nothing 
 
%>
</FIELDSET>
</body>
</html>

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82: