Ændre filnavn ved upload

Hej
Jeg bruger dette til at uploade med:
---------
randomize
n=int(10000000*rnd)

  Set Upload = Server.CreateObject("Persits.Upload")
  Count = Upload.Save("d:\inetpub\wwwroot\xxx.dk\xxx\xxx\xxx\xxx\")
  Upload.SetMaxSize 250000, True
  For Each File in Upload.Files
 
  Dim FileName
  FileName = File.ExtractFileName
  Next
------------
og det virker. MEN jeg vil gerne have et nummer (n) foran navnet. Så hvis jeg vælger at uploade test.jpg så skal filen omdøbes til 4340783test.jpg (hvis n=4340783). Hvis jeg skriver:
...
FileName = n & File.ExtractFileName
...
så gemmer den 4340783test.jpg i databasen men det fil der uploades hedder kun test.jpg. Nogen forslag?