divya
Thu Sep 14 01:51:48 CDT 2006
Hiiii,
This example works exactly the way I want.Thanks,Thanks ,Thanks
a lot .
Regards,
Divya.
Walter Zackery wrote:
> "divya" <divya_sanam@yahoo.com> wrote in message
> news:1158142765.587035.116350@e3g2000cwe.googlegroups.com...
> :I have 3 combo boxes inside the html page where in I take the year
> : ,month and day .Now I want that by default in the month combobox
> : current month should be default (selected).Similarly in the day
> : combobox Today's date should be default selected and tommorow it should
> : change to the tommorows date . Like wise in the year combo box.
> :
> : For example today is september 13 2006.
> :
> : So when he opens the page the combo boxes should display 13 September
> : 2006 .
> :
> : Now if he wants he can choose from the other dates months and years.
> : its done by giving SELECTED keyword in the option tag ,but in this case
> : selected date has to change daily.So do I need to write some script?
> :
> : Thanks
> : Divya
> :
>
> Here's a working example that also automatically adjusts the number of days
> in the day combo box if the year or month changes.
>
> <html>
> <head>
> <title>Select Date Test</title>
> <script type='text/vbscript'>
> Sub Window_Onload()
> Dim CurDate
> CurDate = Now
> CurDate = Array(Year(CurDate),Month(CurDate),Day(CurDate))
> AddOptions Form1.Year,CurDate(0) - 15,CurDate(0) + 15,CurDate(0)
> AddOptions Form1.Month,1,12,CurDate(1)
> AddOptions Form1.Day,1,31,CurDate(2)
> End Sub
>
> Sub AddOptions(Sel,Start,Finish,Index)
> Dim Count
> For Count = Start To Finish
> Sel.Add Window.Option(Count,Count)
> If Count = Index Then Sel.SelectedIndex = Sel.Length - 1
> Next
> End Sub
>
> Sub ChangeDay(YearValue,MonthValue)
> Dim Length
> Dim Count
> Dim Sel
> Set Sel = Form1.Day
> Length = 31 - Day(DateSerial(YearValue,MonthValue,31))
> If Length = 0 Then Length = 31
> If Sel.Length > Length Then
> Sel.Length = Length
> ElseIf Sel.Length < Length Then
> For Count = Sel.Length + 1 To Length
> Sel.Add Window.Option(Count,Count)
> Next
> End If
> End Sub
> </script>
> </head>
>
> <body>
> <form name='form1'>
> <select name='year' onchange='changeDay me.value,me.form.month.value'>
> </select>
> <select name='month' onchange='changeDay me.form.year.value,me.value'>
> </select>
> <select name='day'></select>
> </form>
> </body>
> </html>