### Execute the region query
	$sth->execute()
	or dienice("585 Couldn't execute statement: " . $sth->errstr);

    print qq!<TR><TD ALIGN="RIGHT">SC region:<SELECT NAME="reg_name">!;
	print qq!<OPTION VALUE=""!;
	print qq! SELECTED! unless ($REG_NAME);
	print qq!>ALL REGIONS</OPTION>!;

	while (my @regions = $sth->fetchrow_array()) {
		print qq!<OPTION VALUE="$regions[0]"!;
		print qq! SELECTED! if ($regions[0] eq $REG_NAME);
		print qq!>$regions[0]</OPTION>\n!;
	}
	print qq!</SELECT></TD></TR>!;