Upload billede og data

Er der nogeg der kan fikse det her?
---------------------------------

<%

set conn = Server.CreateObject(\"ADODB.Connection\")

   
    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
    Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"images\")
      set persistfil_billede = upload.files(\"file1\")   

if persistfil_billede is nothing then

conn.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"varer.mdb\")

    conn.Execute(\"insert into varer(beskrivelse, titel, varenummer1, varenummer2) \" &_
      \"values(\'\" & upload.form(\"beskrivelse\") & \"\', \'\" & upload.form(\"titel\") & \"\', \'\" & upload.form(\"varenummer1\") & \"\', \'\" & upload.form(\"varenummer2\") & \"\')\")
    if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
    Else
          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
    End If
    conn.Close
    set conn = nothing
   
else

MyConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"varer.mdb\")   

    For Each File in Upload.Files
   
        File.ToDatabase MyConn, \"insert into varer(billede, beskrivelse, titel, varenummer1, varenummer2) \" &_
        \"values(\'\" & File.ExtractFileName & \"\', \'\" & upload.form(\"beskrivelse\") & \"\', \'\" & upload.form(\"titel\") & \"\', \'\" & upload.form(\"varenummer1\") & \"\', \'\" & upload.form(\"varenummer2\") & \"\')\")
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
    Else
          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
    End If
    Next
   
end if

%>

Jeg får denne fejlmeddelse:

----------------
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0401\'

Slut på sætning var ventet

/ep/Uploadmere.asp, linje 33

\"values(\'\" & File.ExtractFileName & \"\', \'\" & upload.form(\"beskrivelse\") & \"\', \'\" & upload.form(\"titel\") & \"\', \'\" & upload.form(\"varenummer1\") & \"\', \'\" & upload.form(\"varenummer2\") & \"\')\")\"
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^