<%
'*******************
'Server side scripts
'*******************
'Return abreviated month name
function GetMonthName(lnMnth)
select case lnMnth
case 1
GetMonthName = "Jan"
exit function
case 2
GetMonthName = "Feb"
exit function
case 3
GetMonthName = "Mar"
exit function
case 4
GetMonthName = "Apr"
exit function
case 5
GetMonthName = "May"
exit function
case 6
GetMonthName = "Jun"
exit function
case 7
GetMonthName = "Jul"
exit function
case 8
GetMonthName = "Aug"
exit function
case 9
GetMonthName = "Sep"
exit function
case 10
GetMonthName = "Oct"
exit function
case 11
GetMonthName = "Nov"
exit function
case 12
GetMonthName = "Dec"
exit function
end select
end function
'*******************************
'GenDateDropDown 1.0
'Author: Michael McLain
'*******************************
'Create drop down date selection
sub GenDateDropDown(objref, objname, setdate, begyear, endyear, datemode)
'Parameters:
' objref = object's form reference
' objname = date selection object name
' creates three dropdowns for day, month and year
' dropdown names will be the objname plus d, m and y added as a suffix
' a hidden object of the objname is created to hold the selected date
' setdate = default date selection
' begyear = minimum year range in year drop down, values prior to 1970 not allowed
' endyear = maximum year range in year drop down
' datemode = determines date format returned in the hidden object's value
' datemode = 1 - MM/DD/YYYY
' datemode = 2 - DD/MM/YYYY
' datemode = 3 - YYYYMMDD
' datemode = 4 - universal format
dim curmn, curyr, curdy, lmn, lyr, ldy, lmname, sobjref
curmn=month(setdate)
curyr=year(setdate)
curdy=day(setdate)
sobjref=objref+"."+objname
'Create hidden object type to store currently selected date
Response.Write ""
'Generate drop down for day
lmn=month(setdate)
lyr=year(setdate)
ldy=day(setdate)
lmn=lmn+1
if lmn=13 then
lmn=1
lyr=lyr+1
end if
lmname=GetMonthName(lmn)
lastday = day(cdate(lmname&" 1, "&lyr)-1)
Response.Write " "
'Generate drop down for month
Response.Write " "
'Generate drop down for year selection
Response.Write ""
'Patch to fix Netscape 6.2 inline script bug
Response.write ""
end sub
%>
