##

<%
sub Month_Dropdown ($prefix) {
	my @month_order = ("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");
	my %month_days = (
		JAN => 31,
		FEB => 29,
		MAR => 31,
		APR => 30,
		MAY => 31,
		JUN => 30,
		JUL => 31,
		AUG => 31,
		SEP => 30,
		OCT => 31,
		NOV => 30,
		DEC => 31
	);

	$response->write(qq!!);

	$response->write(qq!!);
}

%>

##

##

  require /includes/DateDropdownSelector.pm

##

##

PerlScript Error error '80004005' 

(in cleanup) Can't call method "write" on an undefined value 

/actest/vtt/includes/DateDropdownSelector.asp, line 19