Austin, I think you have @ProductSuite and @ProductType backwards.

If @ProductSuite returns 18 you have to process it like:
code:
Function ProductSuite ($Product)
   Dim $Product

   select
      case  $Product = "None"                         $x=0
      case  $Product = "Small Business"               $x=1
      case  $Product = "Enterprise"                   $x=2
      case  $Product = "BackOffice"                   $x=4
      case  $Product = "CommunicationServer"          $x=8
      case  $Product = "Terminal Server"              $x=16
      case  $Product = "Small Business (Restricted)"  $x=32
      case  $Product = "Embedded NT"                  $x=64
      case  $Product = "DataCenter"                   $x=128
      case  $Product = "Single User Terminal Server"  $x=256
      case  $Product = "Home Edition"                 $x=512
      case  $Product = "Blade Server"                 $x=1024
      case 1   $RC=MessageBox ("Invalid parameter used in function ProductSuite ($Product)",48)
               WriteLog("Invalid parameter used in function ProductSuite ($Product)")
   endselect

   $ProductSuite = $x & val(@ProductSuite)
Endfunction
the number requires bitwise processing.

[ 14. February 2003, 13:36: Message edited by: Howard Bullock ]
_________________________
Home page: http://www.kixhelp.com/hb/