#####################################################
sub build_input_textbox{
#####################################################
	my ( $INPUT_type,$INPUT_name,$INPUT_value,$INPUT_class,$INPUT_style,$INPUT_js,$INPUT_max_length ) = (shift,shift,shift,shift,shift,shift,shift);

	my $inbox = qq¿<INPUT TYPE="$INPUT_type" NAME="$INPUT_name" ¿; 
	$inbox .= ($INPUT_value ne "") ? qq¿VALUE="$INPUT_value" ¿ : "" ; 
	$inbox .= ($INPUT_class ne "") ? qq¿CLASS="$INPUT_class" ¿ : "" ; 
	$inbox .= ($INPUT_style ne "") ? qq¿STYLE="$INPUT_style" ¿ : "" ; 
	$inbox .= ($INPUT_max_length ne "") ? qq¿MAXLENGTH="$INPUT_max_length" ¿ : "" ; 
	$inbox .= ($INPUT_js ne "") ? qq¿$INPUT_js ¿ : "" ; 
	$inbox .= qq¿ >\n¿;

	return $inbox;
}