<% @Language="PerlScript" %>
<!--#Include File="base/base.asp"-->
<!--#Include File="base/core.asp"-->
<!--#Include File="base/helper.asp"-->
<!--#Include File="base/modules.asp"-->
<%
my $User = $Request->item("Login")->item();
my $Site = $Request->item("Site")->item();
$topic= $Request->item("Topic")->item();
my $Referer = $Request->ServerVariables("HTTP_REFERER")->item();
use CGI;
use ASP;
use OLE;

$query= new CGI;

	
my %ttopics = (
   home            => 'TEMPO%205%20Help%20Topics-01-1.html',
   listingmgr      => 'TEMPO%205%20Help%20Topics-06-1.html',
 );


if (!defined($topic)) {
#   ...handle error...
}

$nightmare = $ttopics{$topic};

if (!defined($target)) {
#   ...handle error...
}
$Response->Write("Topic is $topic\n");
$Response->Write("my target is $nightmare\n");
}