Kan ik hitte ud af det

Jeg har en dating funktion med upload funktion til.
Hvis jeg vil prøve at uploade et billede siger den at der er fejl i filen (forkert type)

Siden er bygget op omkring en database men jeg ved ikke om det er fordi der skal være 2. En til data og en til billeder..?

Jeg har skrevt i filen (nedenstående) hvad databasen hedder men jeg ved ikke om det er rigtigt. Kan en af jer hajer hjælpe her?

-------------
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vi2dating.mdb")

username = Request.Cookies("username")
intID = Request.QueryString("id")

If Request.QueryString("mode") = "show" Then
    ' Denne kode fremviser den ønskede fil
    strSQL = "SELECT Image_Type, Image_Data FROM users WHERE (ImageID = " & intID & ");"
    Set rs = myConn.Execute(strSQL)
    If Not rs.EOF Then
        Response.ContentType = rs("Image_Type")
        Response.BinaryWrite rs("Image_Data")
    End If
    ' Her frigives Connection objektet fra hukommelsen
    myConn.Close
    Set myConn = Nothing
    Response.End
ElseIf intID > 0 Then
    strMsg = "<p>Det valgte billede er:<br><img src=upload.asp?mode=show&id="& intID &"></p>"
End If



' Her skabes FileUp objektet
Set objUpl = Server.CreateObject("SoftArtisans.FileUp")

' Her sættes en begrænsning på 50 kb.
If objUpl.Form("upload") <> "" Then
    ' Hvis formen er blevet submitted
    strFilename = objUpl.Form("f1").UserFilename
    strFileExt = Mid(strFilename, InstrRev(strFilename, ".") + 1)
    If objUpl.Form("f1").IsEmpty Then
        strMsg = "<p>Du skal vælge en fil</p>"
    ElseIf LCase(strFileExt) <> "gif" AND LCase(strFileExt) <> "jpg" Then
        strMsg = "<p>Du skal vælge enten et GIF eller JPG fil!</p>"
    ElseIf objUpl.TotalBytes > 50000 Then
        strMsg = "<p>Billedet fylder mere end 50 Kb., vælg venligst et andet!</p>"
    Else
        ' Her gemmes filen i databasen
        Set rsBlob = Server.CreateObject("ADODB.RecordSet")
        rsBlob.Open "users WHERE username = '" & username & "'", MyConn, 3, 3
        rsBlob.Update
        objUpl.Form("f1").SaveAsBlob rsBlob.Fields("Image_Data")
        rsBlob.Fields("Image_Type") = objUpl.Form("f1").ContentType
        rsBlob.Fields("Image_Name") = Mid(strFilename, InstrRev(strFilename, "\") + 1)
   
        rsBlob.Update
        intID = rsBlob("imageID")
        rsBlob.Close
        ' Her frigives vores recordset fra hukommelsen
        Set rsBlob = Nothing       
        ' Tekst der viser hvad filnavnet er og hvor meget filen fylder
        strMsg = "<p>Filen <em>" & strFilename & "</em> er uploaded til databasen, og fylder <em>" & objUpl.TotalBytes & "</em> bytes.</p>" &_
            "<p><img src=upload.asp?mode=show&id="& intID &"></p>"
    End If
End If

' Her frigives FileUp objektet fra hukommelsen
Set objUpl = Nothing
%><html><head>
<title>Upload til Access</title>
</head>
<body link="#E7E7E7" vlink="#E7E7E7" alink="#E7E7E7" text="#E7E7E7" bgcolor="#E7E7E7">
<%=strMsg%>
<form method="POST" enctype="multipart/form-data" action="upload.asp">
<p align="center"><img border="0" src="logo1.jpg"></p>
<blockquote>
<p><input type="file" size="20" name="f1"></p>
<p><input type="submit" name="upload" value="Upload"></p>
<p><font color="#000000" size="2" face="Verdana">Bemærk: Der er en
maxbegrænsning på 50 kb.</font></p>
</blockquote>
</form>
<%
' Her skrives der link til de eksisterende objekter i databasen
strSQL = "SELECT ImageID, Image_Name FROM users ORDER BY Image_Name"
Set rs = myConn.Execute(strSQL)
If Not rs.EOF Then
    Response.Write "Objekter i databasen: <ul type=square>"
    Do While Not rs.EOF
        Response.Write "<li><a href=upload.asp?id=" & rs("ImageID") & ">" & rs("Image_Name") & "</a></li>"
        rs.MoveNext
    Loop
    Response.Write "</ul>"
End If
' Her frigives Connection objektet fra hukommelsen
myConn.Close
Set myConn = Nothing
%>
</body></html>