You are right...Sorry for mistake
take this....
<%
dateDropDown 90,"DropDate"
function DayName (intDay)
select case intDay
case 1
DayName = "Sun"
case 2
DayName = "Mon"
case 3
DayName = "Tue"
case 4
DayName = "Wed"
case 5
DayName = "Thu"
case 6
DayName = "Fri"
case 7
DayName = "Sat"
end select
end function
function DateDropDown(size,default1)
'// $size = the number of days to display in the drop down
'// $default1 = Todays date in m:d:Y format (SEE DATE COMMAND ON
WWW.PHP.NET)
'// $skip = if set then the program will skip Sundays and Saturdays
skip=1
'''response.write "size=" & size
response.write "<select name=" & default1 & " STYLE=\font-family: monospace;><br>"
'response.write "size=" & size
for i = 0 to cint(size)
'theday = mktime (0,0,0,date("m") ,date("d")+$i ,date("Y"))
'$option=date("D M j, Y",$theday)
option1= dayname(weekday(date+i)) & " " & left(monthname(month(date+i)),3) & " " & day(date+i) & " , " & year(date+i)
value=month(date+i)& "-" & day(date+i) & "-" & year(date+i)
'$dow=date("D",$theday)
dow=weekday(date+i)
''''response.write "<br><br><br><br><br><br>dow=" & dow
''response.end
if dow=vbSunday then
response.write "<option disabled> </option><br>"
end if
if (value = default1) then
selected="SELECTED"
else
selected=""
end if
if ((dow<>vbsunday and dow<>vbsaturday) or not skip) then
response.write "<option value=" & value & selected & ">" & option1 & "</option><br>"
end if
next
response.write "</select><br>"
end function
%>