DatesForm

function DatesForm(name, setdate)
 
			MyDay = day(setdate)
			MyMonth = month(setdate)
			MyYear = year(setdate)
			response.write("<select name=""" & name & "month"">" & vbCrlf)
	m = 1
	m = m - 0
	while m <= 12
		response.write("<option value='" & m & "'") 
		if m = MyMonth then
		response.write(" selected ")
		end if
		response.write(">" & m & "</option>" & vbCrlf)
		m = m + 1
	wend 
	response.write("</select>/")
 
	response.write("<select name=""" & name & "day"">")
	d = 1
	d = d - 0
	while d <= 31
		response.write("<option value='" & d & "'") 
		if d = MyDay then
		response.write(" selected ")
		end if
		response.write(">" & d & "</option>" & vbCrlf)
		d = d + 1
	wend
 
response.write("</select>/")
 
response.write("<select name=""" & name & "year"">")
 
	y = year(now()) -2
	while y <= year(now()) +2
		response.write("<option value='" & y & "'") 
		if y = MyYear then
		response.write(" selected ")
		end if
		response.write(">" & y & "</option>" & vbCrlf)
		y = y + 1
	wend
 
response.write("</select>" & vbCrlf)
 
end function