Omdøbning af af fil sammen med upload komponent

Jeg har nedenstående kode.  Men jeg vil gerne omdøbe den fil jeg uploader.  Hvordan gør jeg det

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 300000, True
' Capture files
Upload.Save Server.Mappath("../db/hires")

' Obtain file object
Set File = Upload.Files("file1")

If Not File Is Nothing Then
  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/database.mdb")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL = "INSERT INTO gallery(id, image, category, size, vdate) VALUES('"& Session("strId") &"', '"& File.Filename & "', 'Music', " & File.Size & ", #" & date() & "#);"

  ' Save to database
  File.ToDatabase Connect, SQL
  Response.Write "File saved."
Else
  Response.Write "File not selected."
End If
%>