Active file problem

Jeg forstår det ikke...Jeg har det her script, og den siger give denne fejl:


Microsoft VBScript runtime error '800a01a8'

Object required: 'FormInput.File.Name'

Koden er herunder...er der nogen der har nogen gode bud?

<%
Server.ScriptTimeout = 600

Eventen = request.Querystring("Id")
' Perform the upload limiting files to 7000000k
Set Post = Server.CreateObject("ActiveFile.Post")
Post.MaxTotalFileSize = 7000000
Post.Upload "d:\xxxx\"

' Display a summary of the file
Set FormInput = Post.FormInputs("FILE1")
If FormInput.ContentType <> "" Then
    ' Display uploaded file information

    ' Clean up
'    FormInput.File.Delete
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webs\xxxx.mdb"
Conn.Open DSN

SQL="Insert into Event_Pic(Event, Pic) Values('" & Eventen & "', '" & FormInput.File.FileName & "')"
Conn.Execute(Sql)

Conn.Close
Set Conn = Nothing

%>