'**************************************
    ' Name: Another date drop down creator
    ' Description:This has probably been don
    '     e a million times but this is another va
    '     riant of how to create dropdowns for the
    '     month, day and year. It bases the days o
    '     n the month and year, so the user won't 
    '     select day 31 for february. I'm happy to
    '     say I wrote this in <a href='http://w
    '     ww.developerspad.com'>Developers Pad&
    '     lt;/a>.
    ' By: Devin Garlit
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6644&lngWId=4    'for details.    '**************************************
    
    <SCRIPT language=javascript>
    function fnSubmit(strPage)
    {
    document.forms[0].action= strPage
    document.forms[0].submit()	
    }
    </SCRIPT>
    <%
    'here is the call
    writedropdowns
    ''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''
    'writeDropDowns
    'purpose - write three drop down boxes w
    '     here the days available are based on mon
    '     th and year
    'notes - this submits to the page each t
    '     ime a month or year is selected and reca
    '     lculates the number
    'of days 
    '-I use a javascript function to submit 
    '     my form, this may seem a bit much
    'but it allows me to customize better, I
    '     f i want I can throw other validation in
    '     it, or
    'a frame target
    'by: Devin Garlit dgarlit@hotmail.com
    ''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''
    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
    		
    'MonthDropDown
    'strName = name of drop down
    'blnNum = 'If blnNUM Is True, Then show 
    '     As numbers
    'strSelected = the currenct selected mon
    '     th
    'strSelfLink = link to current page
    function MonthDropDown(strName, blnNum, strSelected, strSelfLink)
    Dim strTemp, i, strSelectedString			
    strTemp = "<Select name='" & strName& "' onchange='javascript: fnSubmit(" & chr(34) & strSelfLink & chr(34) & ")'>" & vbcrlf
    strTemp = strTemp & "<OPTION value='" & 0 & "'>" & "Month" & "</OPTION>" & vbcrlf			
    For i = 1 To 12
    if strSelected = CStr(i) Then
    	strSelectedString = "Selected"
    Else
    	strSelectedString = ""
    End if
    			
    if blnNum Then
    strTemp = strTemp & "<OPTION value='" & i & "' " & strSelectedString & " >" & i & "</OPTION>" & vbcrlf			
    Else
    	strTemp = strTemp & "<OPTION value='" & i & "' " & strSelectedString & " >" & MonthName(i) & "</OPTION>" & vbcrlf			
    End if
    Next					
    strTemp = strTemp & "</Select>" & vbcrlf	
    MonthDropDown = strTemp
    End function
    'YearDropDown
    'strName = name of dropdown
    'intStartYear = year to start options li
    '     st
    'intEndYear = year to end options list
    'strSelected = the currenct selected yea
    '     r
    'strSelfLink = link To currentpage
    function YearDropDown(strName, intStartYear, intEndYear, strSelected, strSelfLink)
    
    Dim strTemp, i, strSelectedString	
    
    if intStartYear = "" Then
    intStartYear = Year(now())
    End if	
    	
    if intEndYear = "" Then
    intEndYear = Year(now()) + 9
    End if
    	
    strTemp = "<Select name='" & strName& "' onchange='javascript: fnSubmit(" & chr(34) & strSelfLink & chr(34) & ")'>" & vbcrlf			
    strTemp = strTemp & "<OPTION value='" & 0 & "'>" & "Year" & "</OPTION>" & vbcrlf			
    For i = intStartYear To intEndYear		
    if strSelected = CStr(i) Then
    strSelectedString = "Selected"
    Else
    strSelectedString = ""
    End if
    strTemp = strTemp & "<OPTION value='" & i & "' " & strSelectedString & " >" & i & "</OPTION>" & vbcrlf							
    Next					
    strTemp = strTemp & "</Select>" & vbcrlf	
    YearDropDown = strTemp
    End function
    'DayDropDown
    'strName = name of drop down
    'intStartDay = day to start with
    'intEndDay = day to end with
    'strSelected = current slected day
    function DayDropDown(strName, intStartDay, intEndDay, strSelected )
    	Dim strTemp, i, strSelectedString	
    	if intStartDay = "" Then
    	 intStartDay = 1
    	End if	
    	
    	if intEndDay = "" Then
    	 intEndDay = getDaysInMonth(Month(now()),Year(now())) 
    	End if
    	
    	strTemp = "<Select name='" & strName& "'>" & vbcrlf			
    	strTemp = strTemp & "<OPTION value='" & 0 & "'>" & "Day" & "</OPTION>" & vbcrlf			
    	For i = intStartDay To intEndDay
    	 if strSelected = CStr(i) Then
    	strSelectedString = "Selected"
    	 Else
    	strSelectedString = ""
    	 End if
    	 strTemp = strTemp & "<OPTION value='" & i & "' " & strSelectedString & " >" & i & "</OPTION>" & vbcrlf							
    	Next					
    	strTemp = strTemp & "</Select>" & vbcrlf	
    	DayDropDown = strTemp
    End function
    'getDaysInMonth
    'strMonth = month as number
    'strYear = year
    function getDaysInMonth(strMonth,strYear)
    		Dim strDays	 
    Select Case CInt(strMonth)
    Case 1,3,5,7,8,10,12:
    		strDays = 31
    Case 4,6,9,11:
    	strDays = 30
    Case 2:
    		if ( (CInt(strYear) Mod 4 = 0 And CInt(strYear) Mod 100 <> 0) Or ( CInt(strYear) Mod 400 = 0) ) Then
    		 strDays = 29
    		Else
    		 strDays = 28
    		End if	
    'Case Else:
    End Select 
    getDaysInMonth = strDays
    End function	
    %>