asp upload File.SaveAs problem

Jeg har et upload script der bruger ASPupload ... men efter at have prøvet at ændre gemmeproceduren til et unikt filnavn (der også skal gemmes i access db) med File.SaveAs er der gået hø i den :

<%

    dag = Day(Date)
    mdr = Month(Date)
    aar = Year(Date)
    ctime = Hour(Time)
    min = Minute(Time)
    sek = Second(Now)

TIDNU = aar & mdr & dag & ctime & min & sek

function lavPassword(antal)
  tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
  str = ""
  randomize
  for i = 1 to antal
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 3000000, True
CountFiles = Upload.Save
if CountFiles < 4 then response.redirect "Default.asp?message=Du skal have valgt en lydfil og 3 billeder med gennemse"
i=1
Recordset1.addnew
for each file in Upload.Files
fn  = lcase(Right(File.ExtractFileName, 3))
imageerror="Default.asp?message=Du må kun uploade billeder af typen .gif eller .jpg og lydfiler af typen .mp3"
if imageerror <> "" then
Ext = lcase(Right(File.ExtractFileName, 3))
If not (Ext = "gif" or Ext = "jpg" or Ext = "mp3") Then
File.Delete
Response.Redirect imageerror
End If
End if
set descr=Upload.Form("descr" & i)
set filnavn=Upload.Form("file" & i)
set check=Upload.Form("check" & i)
        if check = "-1" then
  check = "-1"
else
  check = "0"
end if
filnavn = TIDNU & lavpassword(5) & fn
File.SaveAs "c:/stien-til-mappen-på-serveren" & filnavn
Recordset1("check" & i)=check
Recordset1("filnavn" & i)="images/" & filnavn
i=i+1
next
Recordset1.update
response.redirect "default.asp"
%>
<%
Recordset1.Close()
%>

Jeg får en "ordinal" fejl :

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/charon/Upload.asp, line 60

Any clues ?