ASpUpload FEJL, HJÆLP

Hvad sker der her?????????

Feltet navnet skal hentes fra hedder file

<%
  Dim FileName
  FileName = File.ExtractFileName

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../cgi-bin/hhk.mdb")
Conn.Open DSN

SQLstmt = "UPDATE spillere SET billede = '"&FileName&"' WHERE id = " & Request("id")

'SQLstmt = SQLstmt & " VALUES ('"&FileName&"')"

response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

Response.Redirect("spillere.asp")

  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 1300000, True
  Upload.SaveVirtual("../../../spillere")


Next
%>

Får fejlen:
-------------------------------------------
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/hhk/login/admin/spillere/gem_billede.asp, line 4