programming-examples/asp/ActiveX_ADO_Arrays/Another month, day, year dropdown creator.asp

<script language=javascript>
function fnSubmit(strPage)
{
  document.forms[0].action= strPage
  document.forms[0].submit()	
}

</script>
<%

'here is the 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
		
'MonthDropDown
'strName = name of drop down
'blnNum = 'If blnNUM Is True, Then show As numbers
'strSelected = the currenct selected month
'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 list
'intEndYear = year to end options list
'strSelected = the currenct selected year
'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	
%>