[AshleyQuick]

Would someone be willing to convert this to asp?

[chirag]

Hi there,

I don't know why you wanted someone to do this but here is the asp version of your php code.

Take this...
Save following code as .asp you need to do nothing else just run in your web server....

<%

dateDropDown 90,"DropDate"

function DayName (intDay)
select case intDay
case 1
DayName = "Sun"
break
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+1)) & " " & left(monthname(month(date+1)),3) & " " & day(date+1) & " , " & year(date+1)
value=month(date+1)& "-" & day(date+1) & "-" & year(date+1)
'$dow=date("D",$theday)
dow=weekday(date+1)
''''response.write "<br><br><br><br><br><br>dow=" & dow
''response.end
if dow=vbSunday then
response.write "<option disabled>&nbsp;</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
%>

[AshleyQuick]

Doesn't seem to be working. Beside the select box, the script is writing size=90 and the options in the select box are all showing tomorrow's date.

[chirag]

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>&nbsp;</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
%>