Okay.. I'll post it.. see if you can get it smaller and test it to make sure no bugs! [Smile] It's hard to believe that after the original 261, it could be shaved to 231, but here it is:

code:
Function BaseConverter($v,$f,$t)
   $=len($v)
   $n=0
   $y=1.
   Do
      $x = ASC(UCASE(substr($v,$,1)))
      $n=$y*($x - 48 - ($x > 64) * 7) +$n
      $y=$y*$f
      $=$-1
   Until $=0

   $=""
   While $n
      $x = INT($n - (INT($n/$t) * $t))
      $n = ($n-$x)/$t
      $ = CHR($x + 48 + ($x > 9) * 7) + $
   Loop
   $BaseConverter = $
Endfunction
Enjoy!

Brian

[ 11 June 2002, 19:17: Message edited by: BrianTX ]