sub pMain
  {
    my ($dWidth) = @_;
    my $str = "";
    my $xmlFSO = CreateObject OLE "Scripting.FileSystemObject"; 
    if ($Request->item("xURL")->item())
    {
      lg("ACTIVITY","REFERRAL:".$Request->item("xURL")->item());
      $str .= "<xURL href=\"".$Request->item("xURL")->item()."\"/>";
    }
    if ($Request->item("xResource")->item())
    {
      lg("ACTIVITY","Resource:".$Request->item("xResource")->item());
      $str .= "<xResource href=\"".$Request->item("xResource")->item()."\" height=\"".$Request->item("xRh")->item()."\" width=\"".$Request->item("xRw")->item()."\"/>";
    }
    SWITCH:
    {         
      if ($Request->item("View")->item() eq "Logout"){ $str .= mLogout(); last SWITCH; }
                if ($Request->item("Tab")->item() eq "Help"){ $str .= &tHelp($nightmare); last SWITCH; }   
      if ($Request->item("Tab")->item() eq "Support"){ $str .= tSupport(); last SWITCH; }   
           if ($Request->item("Tab")->item() eq "Admin"){ $str .= tAdmin(); last SWITCH; } 	  
    }    
    return $str;
  }