Thanks GerryGerry and Bobbafet I have it working now
GerryGerry Here is what I did.
I made a new perlscript displayframes.pl as follows.
#########################################################
sub get_input {
# Get the input from the STDIN and ENV...
read(STDIN, $inbuffer, $ENV{'CONTENT_LENGTH'});
$qsbuffer = $ENV{'QUERY_STRING'};
foreach $buffer ($inbuffer,$qsbuffer) {
# Split the name/value pairs...
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/~!/ ~!/g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
}
}
#Body of perl script
&get_input;
use CGI;
$url = "$FORM{'display'}";
if ($url eq ""

{
$url = "main"
}
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<title>Savannah Equipment Pty Ltd - $url</title>
</head>
<frameset framespacing="0" border="false" frameborder="0" rows="40,*,40">
<frame name="rtop" target="rmiddle" src="../savannahaustralia/top_menu.htm" scrolling="no" marginwidth="0"
marginheight="0" noresize>
<frameset cols="140,*">
<frame name="left" src="../savannahaustralia/left_bar_buttons.htm" target="rmiddle" marginwidth="0" marginheight="0" scrolling="no" noresize>
<frame name="rmiddle" src="display.pl?display=$url" target="_self">
</frameset>
<frame name="rbottom" src="../savannahaustralia/bottom.htm" scrolling="no" marginwidth="0"
marginheight="0" noresize target="rmiddle">
<noframes>
<body>
<center><b>[ <a href=display.pl?display=$url>Your browser doesn't support frames. Click here to continue</a> ]</b></center>
</body>
</noframes>
</frameset>
</html>
HTML
print <<EndFooter;
</body>
</html>
EndFooter
##########################################################
Then in my original display.pl I added the JS
##########################################################
print <<framejavascript;
<script language="JavaScript">
<!--
onload=function(){
if( document.location == top.location ) {
top.location.replace("displayframes.pl?display=$FORM{'display'}"

;
}
}
//-->
</script>
</head>
<body>
framejavascript
##########################################################
This all seems to work with the one small problem that When you open the display.pl not inside the frames it loads up completely before then loading up the frames. (only a small problem.) Thanks
here is a link to display.pl