$User = $Request->item("Login")->item();
$Site = $Request->item("Site")->item();
$topic= $Request->item("Topic")->item();
my $Referer = $Request->ServerVariables("HTTP_REFERER")->item();
$Request->ServerVariables("QUERY_STRING")->item();
use CGI;
use OLE;
use CGI::Simple;
$query= new CGI;

    
%ttopics = (
   home            => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-01-1.html',
   listingmgr      => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-06-1.html',
   cma             => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-11-1.html',
   hotsheetmgr     => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-10-1.html',
   clientmgr       => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-05-1.html',
   tempofinancials => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-14-1.html',
   tools           => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-18-1.html',
   rep             => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-12-01.html',
   taxmgr          => 'Content/HELP/TPO\/default\//TEMPO 5 Help Topics
+-13-1.html',
   TempoMemberInfo => 'Content/HELP/TPO\/default\//Tempo_help-01-1.htm
+l',
   email           => 'Content/HELP/TPO\/default\//Tempo_help-01-1.htm
+l',
);


if (!defined($topic)) {
my $startpoint='Content/HELP/TPO/default/Tempo_help-08-1.html';
}
my $baseurl='http://www.tempohelp.com/index.asp?tab=Help&View=#';
$nightmare = $ttopics{$topic};
my @topicvalues=$nightmare;
my @baseurl=$baseurl;
tHelp(@baseurl,@topicvalues);

##</code><code>##

sub tHelp
  {
$baseurl=shift(@baseurl); 
$startpoint=shift(@topicvalues);
$Response->write("$baseurl"."$startpoint");
# This returns values for baseurl and startpoint so far so #good
then deeper in my sub when I go to use startpoint it does not work why
+?
if ($Session->{'usrType'} eq 'Std')
   {
    if ($Request->ServerVariables("SERVER_NAME")->item()=~/tempohelp/i
+)
{
$startpoint=shift(@topicvalues);
$baseurl=shift(@baseurl);
 #my startpoint='Content/HELP/TPO/default/Tempo_help-08-1.html';
my $target='Tempo%20help_frame';
$str .= shadowBox("Tempo Help", qq^<help_iframe name="$target" startpo
+int="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace)));
       return $str;
    }
}

  

finally code for loop to generate helpfile into iframe. 
if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/ )
+ {
        my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\Suppor
+tWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Content\help\tpo\def
+ault\TOC.html';
my $user_type = uc $Session->{'usrType'};
if ($user_type='STD')
{$user_type='TPO/default/'}
open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
        
        foreach my $line ( @toc_lines ) { 
            $content .= qq^<rlink tab="Help" script="frames['help_ifra
+me'].location.href='Content/HELP/$user_type/$1'" title="$3">
                        </rlink>^ if ( $line =~ /<p class="pTOC\d"><a 
+href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
                    
        }
        $content .= '</leftIndex>';    
    }