<% use Win32::OLE; #use strict; #use warnings; my $User = $Request->item("Login")->item(); my $Site = $Request->item("Site")->item(); #my $topic= $Request->item("Topic")->item(); my $Referer = $Request->ServerVariables("HTTP_REFERER")->item(); my $topic = $Request->ServerVariables->{'QUERY_STRING'}->item("Topic"); my %topics = ( home => 'TEMPO%205%20Help%20Topics-01-1.html', listingmgr => 'TEMPO%205%20Help%20Topics-06-1.html', cma => 'TEMPO%205%20Help%20Topics-11-1.html', hotsheetmgr => 'TEMPO%205%20Help%20Topics-10-1.html', clientmgr => 'TEMPO%205%20Help%20Topics-05-1.html', tempofinancials => 'TEMPO%205%20Help%20Topics-14-1.html', tools => 'TEMPO%205%20Help%20Topics-18-1.html', rep => 'TEMPO%205%20Help%20Topics-12-01.html', taxmgr => 'TEMPO%205%20Help%20Topics-13-1.html', TempoMemberInfo => 'TEMPO%205%20Help%20Topics-19-1.html', email => 'TEMPO%205%20Help%20Topics-09-1.html', ); if (!defined($topic)) { } my $startpoint = $topics{$topic}; if (!defined($startpoint)) { exit(); } return $startpoint;