Gem i DB fra Form

Hejsa...

Jeg har et script som tilføjer noget data til en database og uploader et billede på min server. Alt data kommer via en form som er: "enctype="multipart/form-data"

Det med upload af billede og gem filnavn i databasen virker fint men resten af den data som bliver sendt via formen bliver ikke gemt i databasen....

Jeg tror fejlen ligger i: BilerId = objDict("BilerId") osv.

Men har kan i kigge på min kode:

<%
Dim objDict

    'Hent fil og evt. øvrige data
    Set objDict = FileUpload("", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), Null, False, False)

    'Giv passende resultat
    If objDict("FILEUPLOAD_STATUS") = 0 Then
        'Giv en positiv besked
        Response.Write "<IMG SRC=""" & objDict("FILEUPLOAD_URL") & """><BR>"
        Response.Write "Filen " & objDict("FILEUPLOAD_FILENAME") & " er uploaded til mappen " & objDict("FILEUPLOAD_DIR") & "<BR>"
        Response.Write "Det er en fil af typen " & objDict("FILEUPLOAD_CONTENTTYPE") & " og den fylder " & objDict("FILEUPLOAD_SIZE") & " bytes.<BR>"
    Else
        'Giv en negativ besked
        Response.Write objDict("FILEUPLOAD_STATUSTXT") & " (Fejl nummer " & objDict("FILEUPLOAD_STATUS") & ")<BR>"
    End If


strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/bodykits.dk/carstyle.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

BilerId = objDict("BilerId")
OpretId = objDict("OpretId")
Bil = objDict("Bil")
Model = objDict("Model")
File1 = objDict("FILEUPLOAD_FILENAME")
Historie = objDict("Historie")
Hulstorelse = objDict("Hulstorelse")


strINSERT = "INSERT INTO Model (BilerId, OpretId, Bil, Model, File1, Historie, Falge) VALUES ( '"
    strINSERT = strINSERT &  BilerId & "', '" & OpretId & "', '" & Bil & "', '" & Model & "', '" & File1 & "', '" & Historie & "', '" & Hulstorelse & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

Response.Redirect "viscarstyle.asp?BilerId=" & BilerId & "&Bil=" & Bil
%>