får fejl Object required: ''

hej jeg får en fejl, der står
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/asp2009/include/cms.asp, line 122

her er koden


<%
CASE "cmsUploadArtikel"


    if session("cmsadgang") = false then 'vis password er forkert
            response.Redirect("default.asp") ' gå til default.asp
        end if   
%>

    <form enctype="multipart/form-data" method="post" action="default.asp?case=cmsUploadArtikel&action=upload">
   
    <table border="0" width="700">
    <tr>
    <td width="90">Overskrift:</td><td> <input type="text" name="a_overskrift" /></td>
    </tr>
    <tr>
    <td colspan="2" valign="top">
    <%
    Dim oFCKeditor
    Set oFCKeditor = New FCKeditor
    oFCKeditor.BasePath = "/fckeditor/"
    oFCKeditor.Value = "<p>Opret en artikel</p>"
    oFCKeditor.Create "FCKeditordb"
    %>
    </td>
    </tr>
   
   
    <%
    sql1Artikel = "SELECT * FROM tbundermenu"
    set rs = Conn.Execute(sql1Artikel)
    %>
       
      <tr>
        <td>Menupunkt: </td>
        <td><select name="n_emne" style="width:200px;">
    <%do until rs.eof%>
    <option value="<%=rs("uid")%>" name="a_emne"><%=rs("unavn")%></option>

<%
    rs.movenext
    loop
%>
</td>   
    </select>
</tr>
<tr>
 
   
    <td>Upload billede:</td><td> <input type="file" name="myfile" /></td><br />
 
</tr>
</table>

    <input type="submit" value="Upload" />
</form>


<%
action = request.QueryString("action")
if action = "upload" then

    var_a_overskrift = upload.form("a_overskrift") '!her er linie 122!
    var_a_FCKeditordb = upload.form("FCKeditordb")
    a_emne = upload.form("a_emne")
   
    varUploadArtikel = "INSERT INTO tbartikel (overskrift, brodtekst, gruppe) values ("&"'"&var_a_overskrift&"', '"&a_FCKeditordb&"', '"&a_emne&"')"
    conn.execute(varUploadArtikel)

    'Opret objekt
    Set Upload = Server.CreateObject("Persits.Upload")
   
    'Fortæl at filer ikke må overskrives
    upload.OverwriteFiles = False
   
    Path = Server.MapPath("./upload")
    'Fang uploaded filer og nummeret
    Count = Upload.Save(Path)
   
    'Hvis count =0 er der ikke uploaded noget. SKriv fejl
    If Count = 0 then
        response.write "Intet billede valgt"
    else
        'Fang filen til upload
        Set File = Upload.Files(1)
       
        'Tjek filformat
        if File.Ext <> ".jpg" then
            response.write"Forkert fil format"
            response.End()
        end if
       
        'Er det en gyldig billede fil?
        If File.ImageType <> "UNKNOWN" then
            Set Jpeg = Server.CreateObject("Persits.Jpeg")
           
            Width = 117
            Height = 150
           
           
            'Åben den uploadede fil
            Jpeg.Open(File.Path)

                'Resize, uden at strække eller presse
            if Jpeg.OriginalWidth > int(width) or Jpeg.OriginalHeight > int(height) then
                NewWidth = width
                Jpeg.Width = NewWidth
                Jpeg.Height = Jpeg.OriginalHeight * NewWidth / Jpeg.OriginalWidth
            end if
                       
            Jpeg.Quality = 100
           
            'Beskær billedet 0px fra venstre og 0px fra toppen indtil ønsket bredde og højde er nået
            if Jpeg.Height > int(height) then
                Jpeg.Crop 0, 0, width, int(height)
            end if
           
            '0 dårlig kvalitet (hurtigst), 1 God kvalitet (Langsomt)
            Jpeg.Interpolation = 1
           
            'True = vis mere og mere af billedet mens det loades
            'False = Vis først billedet når det er loaded
            Jpeg.Progressive = True
   
            pathT = Server.MapPath("./upload")
           
            'angiv hvor filen skal gemmes
            SavePath = PathT & "\small_" & File.ExtractFileName
           
            'Find absolut sti til upload mappe
            dbPath = replace(server.MapPath("./upload"),"\","\\")
           
            'Gem filnavnet i en variabel
            filnavn = File.ExtractFileName
           
            nemne = upload.form("a_emne")
           
            'indsæt det hele i DB
            conn.execute("insert into tbbilleder ( bnavn, blokation, bartikel) values  ('"&filnavn&"','"&dbpath&"','"&nemne&"')")
           
            'Fang billede navnet
            img = "upload/thumbnail/small_" & File.ExtractFileName
           
            'Gem filen
            Jpeg.Save SavePath
           
            'Udskriv bekræftigelse
            Response.write "Success!"
        else
            'Udskriv fejlbesked
            response.write "Filen er ikke en gyldig billede fil"
            response.End()
        end if
    end if
   
end if           
%>