Upload / gemt i database

Hej
Jeg har problemer med at få en form til at virke hvor man ved hjælp af ASPSimpleUpload skal uploade 3 forskellige filer og gemme stien hvor de bliver uploaded in en database, samt andre oplysninger som man indtaster samtidig med at man vælger de 3 filer der skal uploades.

i form hovedet skriver jeg følgende:
<form action="tilfoej_fisk.asp?save=yes" enctype="multipart/form-data" method="post">

og for at gemme i database / uploade filer gør jeg følgende:
<%

If Request.QueryString("save")="yes" then

Dim ObjRs, StrSQL, Conn, film

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("billedefisk")) > 0 Then
    NewFileName = "multimedie/fisk/" & upl.ExtractFileName(upl.Form("billedefisk"))
    If upl.SaveToWeb("billedefisk", NewFileName) Then
        Response.Write("File successfully written to disk.") 
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If


If upl.form("Film") = "" then
film = "-"
else
film upl.form("Film")
End if





Const adOpenKeyset = 1
Const adLockOptimistic = 3


    Set ObjRS = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * "
    strSQL = strSQL & "FROM fisk "
   
    ObjRS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

        ObjRS.AddNew
        ObjRS("Fiskenavn_DK") = upl.form("Fiskenavn_DK")
        ObjRS("Fiskenavn_DE") = upl.form("Fiskenavn_DE")
        ObjRS("Fiskenavn_GB") = upl.form("Fiskenavn_GB")
        ObjRS("Fisklatinnavn") = upl.form("Fisklatinnavn")
        ObjRS("Navngiver") = upl.form("Navngiver")
        ObjRS("Aar") = upl.form("Aar")
        ObjRS("Kendetegn_DK") = upl.form("Kendetegn_DK")
        ObjRS("Kendetegn_DE") = upl.form("Kendetegn_DE")
        ObjRS("Kendetegn_GB") = upl.form("Kendetegn_GB")
        ObjRS("Maxlaengde") = upl.form("Maxlaengde")
        ObjRS("Beskrivelse_DK") = upl.form("Beskrivelse_DK")
        ObjRS("Beskrivelse_DE") = upl.form("Beskrivelse_DE")
        ObjRS("Beskrivelse_GB") = upl.form("Beskrivelse_GB")
        ObjRS("Artnavn_DK") = upl.form("Artnavn_DK"))
        ObjRS("Akvarienummer") = upl.form("Akvarienummer")
        ObjRS("Billedefisk") = upl.form("Billedefisk")
        ObjRS("Billedekort") = upl.form("Billedekort")
        ObjRS("Film") = Film
       
        ObjRS.Update

    ObjRS.Close
    Set ObjRS = Nothing

Conn.Close
set Conn = Nothing




response.redirect "index.asp"

end if

%>

Den uploader fint nok, men når man så når til at skulle gemme i database skrives der følgende fejl

Der opstod en Microsoft VBScript-kørselsfejl error '800a000d'

Typerne stemmer ikke overens

har også prøvet at bruge request.form men så vil den heller ikke.

Hjælp