sub frames{
	my $self = shift;
	my $q = $self->query();
	my $template_frames = HTML::Template->new(filename => 'c:/program files/apache group/apache/cgi-bin/frames.html');
	my $string = "?rm=result&";
	foreach my $param ($q->param) {
		if ($param ne 'rm') {
		$string.= $param . "=" . $q->param($param) . "&";}}

	$template_frames->param(headers => $string . "view=header");
	$template_frames->param(table => $string . "view=table");
	return $template_frames->output;
}