aspSmartUpload og oprette i access database

Hej jeg har arbejdet lidt på nedenstående script, jeg kan ikke få det til at virke, ikke fordi der kommer en error men den vil bare ikke læse det der står i mine forms og jeg kan ikke se hvad der er galt:

script:


<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    dim upload
   
    Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")

    over = upload.form("overskrift")
    sted = upload.form("sted")
    startd = upload.form("startd")
    slutd = upload.form("slutd")
    startkl = upload.form("startKlH") & ":" & upload.form("startKlM")
    slutkl = upload.form("slutKlH") & ":" & upload.form("slutKlM")
    nota = upload.form("nota")
    fil = upload.form("file1")
   
    if over = "" then
        over_fejl = font_a & "* Du skal skrive en overskrift" & font_b
    end if
    if sted = "" then
        sted_fejl = font_a & "* Du skal skrive hvor aktiviteten forgår" & font_b
    end if


    if over <> "" AND sted <> "" then
   
        Set rsAdd = Server.CreateObject("ADODB.RecordSet")
        KalAddSQL = "select * from events"
        rsAdd.Open KalAddSQL, ConnKal, 3, 3
       
        rsAdd.AddNew
                rsAdd("overskrift") = over
                rsAdd("sted") = sted
                rsAdd("startd") = startd
                rsAdd("slutd") = slutd
                rsAdd("startkl") = startkl
                rsAdd("slutkl") = slutkl
                rsAdd("nota") = nota
        rsAdd.Update
       
        response.write ("event opretter")
       
        set rsID = ConnKal.Execute("Select @@IDENTITY AS NewID")
        nytId = rsID("NewID")
       
        rsAdd.Close
            Set rsAdd = Nothing
   
    end if

    if file1 <> "" then
    upload.Upload

    upload.MaxFileSize = 50000
    upload.AllowedFilesList ="pdf,doc"
    FileExt = LCase(upload.Files.Item(1).FileExt)
 
    if FileExt <> "pdf" then
        if FileExt <> "doc" then
            response.write "kun pdf og doc filer er tilladt"
        end if
    end if
   
    if LCase(upload.Files.Item(1).FileExt) = "pdf" or LCase(upload.Files.Item(1).FileExt) = "doc" then
    sti = "/../upload/"
    for each file in upload.Files
        if not file.IsMissing Then
            FileName = nytId & "."
            filnavn = sti & FileName & FileExt
              file.saveas Server.MapPath(filnavn)
        else
            filnavn = ""
        end if
    next
    end if
    rsID.close
        Set rsID = nothing
    end if

end if %>