omdøb med persits

Er der nogen der kan skrive disse sammen

Set Upload = Server.CreateObject("Persits.Upload.1")
if request.QueryString("action") = "upload" then

Upload.OverwriteFiles = False
On Error Resume Next

Upload.Save(Server.MapPath("./"))
For Each File in Upload.Files 
    if inStr(1,File.Path,"\")>0 then deli="\" else deli="/"
    arr=split(File.Path,deli)
    Filename = arr(UBound(arr))
    File.Move  Server.MapPath("./filer/" &Filename)
Next

OG

<%
Function cardKey(keySize)
  chars = "aAbBcCdDeEfFgGhHijJkKLmMnNopPqQrRsStTuUvVwWxXyYzZ1234567890"
  strKey = ""
  randomize
  for i = 1 to keySize
    index = Int(rnd * len(chars))+1
    strKey = strKey & Mid(chars,index,1)
  next
  cardKey = strKey
End Function

Response.Write cardKey(15)
%>

Således at filen får et 15 længdes navn, det navn skal senere gemmes i databasen så skal være tilgængeligt