ASP upload giver fejl

Hej,

Jeg prøver at køre det her script.
Jeg bruger det et andet sted på serveren med en anden Access database og der virker det godt nok..


<%
' UPLOAD IMAGE SCRIPTS START
Set Upload = Server.CreateObject("Persits.Upload")

' Capture files
Upload.Save Server.Mappath("upload")

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

If Not File Is Nothing Then

    ' Check size of the image
    If File.ImageWidth > 300 OR File.ImageHeight > 400 Then
      strTxt = Upload.Form("tekst")
      imgName = File.FileName
          Response.Redirect "mynewblog.asp?errormsg=Billedet, <b>" & imgName & "</b> er for stort&strTxt=" & strTxt & ""
    End If

  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb")

  ' Build SQL INSERT statement
  SQL = "INSERT INTO Image(image_blob, filename, description, filesize) VALUES(?, '"
  SQL = SQL & filen & "', '"
  SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
  SQL = SQL & File.Size & ")"

  ' Save to database
  File.ToDatabase Connect, SQL

Set RS = MyConn.Execute("SELECT max(id) from Image")
newid = RS(0)

Else
  newid = 0

End if

' UPLOAD IMAGE SCRIPT SLUT

    strNavn = Upload.Form("navn")
    strNavn = Replace(strNavn, "'", "''")
   
    strAntalKort = Upload.Form("antalKort")
    strAntalKort = Replace(strAntalKort, "'", "''")
   
    strStoerrelse = Upload.Form("stoerrelse")
    strStoerrelse = Replace(strStoerrelse, "'", "''")
   
    strMateriale = Upload.Form("materiale")
    strMateriale = Replace(strMateriale, "'", "''")
   
    strBelaegning = Upload.Form("belaegning")
    strBelaegning = Replace(strBelaegning, "'", "''")
   
    strIndeks = Upload.Form("indeks")
    strIndeks = Replace(strIndeks, "'", "''")
   
    sql = "insert into Produkt(navn, antalKort, stoerrelse, materiale, belaegning, indeks, billede) values('"& strNavn &"', '"& strAntalKort &"', '"& strStoerrelse &"', '"& strMateriale &"', '"& strBelaegning &"', '"& strIndeks &"', '"&newId&"')"
    Myconn.execute(sql)
%>


Hvis billedet har den rigtige størrelse, kommer der denne fejl:

Persits.Upload.1 error '800a0018'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xf04 Thread 0xd28 DBC 0xc55fdb4 Jet'.

/copag/cms/strProdukt.asp, line 31

Linie 31:
  File.ToDatabase Connect, SQL

Hvad er der galt?