D
David
Hi,
I have a dropdown box on a form in an ASP page which links to the
following script. It display the next 20 Tuesdays dates + Tuesday (in
words).
I would like to have it list Every next Tuesday and Thursday. How is
this possible ?
__________________________________________________
<SCRIPT language='vbscript'>
Sub Window_Onload
Dim TheDate
Dim Count
Dim Options
TheDate = Date + vbTuesday - WeekDay(Date)
If TheDate < Date Then TheDate = TheDate + 7
Set Options = Document.All.Date.Options
For Count = 1 To 20
StrDate = "Tuesday " & Right("0" & Day(TheDate),2) & "/" &
Right("0" &_
Month(TheDate),2) & "/" & Year(TheDate)
Options.Add Window.Option(StrDate,"for " & StrDate)
TheDate = TheDate + 7
Next
End Sub
</script>
___________________________________________________
Appreciate your help
David
I have a dropdown box on a form in an ASP page which links to the
following script. It display the next 20 Tuesdays dates + Tuesday (in
words).
I would like to have it list Every next Tuesday and Thursday. How is
this possible ?
__________________________________________________
<SCRIPT language='vbscript'>
Sub Window_Onload
Dim TheDate
Dim Count
Dim Options
TheDate = Date + vbTuesday - WeekDay(Date)
If TheDate < Date Then TheDate = TheDate + 7
Set Options = Document.All.Date.Options
For Count = 1 To 20
StrDate = "Tuesday " & Right("0" & Day(TheDate),2) & "/" &
Right("0" &_
Month(TheDate),2) & "/" & Year(TheDate)
Options.Add Window.Option(StrDate,"for " & StrDate)
TheDate = TheDate + 7
Next
End Sub
</script>
___________________________________________________
Appreciate your help
David