AspSmartUpload fejlmedl.

Hvad betyder denne fejl og hvad er der galt ??

Fejl Nr. -2147220384: Unable to save file (Error 1120)

Upload Script:
------------------------------------------------------

<%

On Error Resume Next
   
' Variabler til upload af filer
    Dim mySmartUpload
    Dim intCount
    Dim item
    Dim value
    Dim file
   
' Variabler til databaseoperationer
    Dim cn
    Dim strSQL
    Dim rs
   
' Variabler til postsættene
    Dim bytKarak
    Dim strHeadline
    Dim strDato
    Dim strNews1
    Dim strForfatter
    Dim strTid
    Dim strFil
    Dim i
   
' Her erklæres/instantieres aspSmartUpload objektet



    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'********** Nedenstående fil-extensions accepteres: *************************************
upl.AllowedFilesList = "gif,jpg,jpeg,jpe"

' Allow all files except exe,txt,bat and asp   
' ***************************************   
' mySmartUpload.DeniedFilesList = ""

'  Only allow files smaller than 30000 bytes
'  *****************************************   
' mySmartUpload.MaxFileSize = 300000
 


    mySmartUpload.Upload


' Her fanges dataene fra formularen på siden default.asp
' Læg mærke til, at man ikke kan benytte Request.Form, men skal benytte mySmartUpload.Form
    'bytKarak = mySmartUpload.Form("karakter")
    strHeadline = mySmartUpload.Form("Headline")
    strDato = mySmartUpload.Form("Dato")
    strNews1 = mySmartUpload.Form("News1")
    strForfatter = mySmartUpload.Form("Forfatter")
    strTid = mySmartUpload.Form("Tid")


'Upload af filer
'Rettighederne på mappen for IUSR skal være RW
    intCount = mySmartUpload.Save("images")

'Derefter gemmes alt i databasen NEWS
    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/NEWS.mdb")

    For i = 1 To mySmartUpload.Files.Count
        If mySmartUpload.Files.Item(i).FileName = "" Then
            file = ""
        Else
            file = mySmartUpload.Files.Item(i).FileName
        End If
        strFil = mySmartUpload.Files.Item(i).FileName
            strSQL = "INSERT INTO News (Headline, Dato, News1, forfatter, tid, Billed) "
            strSQL = strSQL & "VALUES('" & strHeadline & "','" & strDato & "','" & strNews1 & "','" & strForfatter & "','" & strTid
            strSQL = strSQL & "','" & file & "');"
            cn.Execute strSQL
    Next

   
'  Trap errors
'  ***********   
If Err Then     

    Response.Write("<TR><TD><FONT FACE='Arial, helvetica' SIZE=2 COLOR='#000000'><b>Fejl Nr. " &Err.Number &":</b> " &Err.Description & "<BR><BR></TD></TR>")
    Response.Write("<TR><TD><FONT FACE='Arial, helvetica' SIZE=2 COLOR='#000000'><b><hr>De har sikkert forsøgt at uploade en filtype, der ikke accepteres!<hr></b></TD></TR>")
    Response.Write("<TR><TD><FONT FACE='Arial, helvetica' SIZE=2 COLOR='#000000'><BR>Kun billedfiler af typerne 'billede.gif', 'billede.jpg' eller 'billede.jpeg' accepteres.<BR><BR></TD></TR>")
    Response.Write("<TR><TD><FONT FACE='Arial, helvetica' SIZE=2 COLOR='#000000'><b><hr>Husk billedet kun må fylde max. 30 Kb!<hr><BR><BR><input type='button'  value='<< Prøv igen' onClick='history.go(-1)'></b></TD></TR>")

Else   
'  Display the number of files uploaded   
'  ************************************     
Response.Redirect("next.htm") 

End If


   
%>