Upload billed + tekst

Hej alle

Jeg har forsøgt at kobinere to scripts så det er muligt at uploade en fil samtidigt med at noget tekst lagres i en database. De to scripts virker fint hver for sig, men når jeg sætter dem sammen virker upload-funktionen ikke.

her er det vigtigste af scriptet:
....
if request.form("list1") = "ja" then

    Set Upload = Server.CreateObject("Persits.Upload.1")
   
    Upload.OverWritefiles = false
    Upload.SetMaxSize 10000000, True
    Count = Upload.SaveServer.MapPath("db")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/1test.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From News"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

          rs.AddNew
          rs("forfatter") = Request.form("forfatter")
          rs("Email") = Request.form("email")
          rs("Nyhed") = Request.form("langtekst")
    rs("overskrift") = Request.form("overskrift")
    rs("Dato") = date()
        rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.redirect "default.asp"

else

herefter kommer der self noget mere, men det er i det givne stykke fejlen må være.