A very comprehensive date processing function

function <script language=javascript>
function Fnsubmit (strpage)
{
document.forms[0].action= strpage
Document.forms[0].submit ()
}

</script>
<%

Call Writedropdowns

Sub writedropdowns ()
Dim Strselflink
Strselflink = Request.ServerVariables ("Script_name")
Response. Write "<form name=dates method=post>" & vbCrLf
Response. Write Monthdropdown ("Month1", False,request ("Month1"), Strselflink) & "" & Daydropdown ("Day1", "" ", Getdaysinmonth (Request ("Month1"), Request ("year1"), Request ("Day1")) & "" & Yeardropdown ("Year1", "", "", "", Request ("Year1"), Strselflink & vbCrLf
Response. Write "</form>" & vbCrLf
End Sub


Function Monthdropdown (StrName, Blnnum, strselected, Strselflink)
Dim strtemp, I, strselectedstring
strtemp = "<select name= '" & strname& "' Case Else:
End Select

Getdaysinmonth = Strdays
End Function
%>