Problem med ASP Smart Upload

Jeg har et mindre problem med ASP Smart Upload.

Jeg skal uploade et billed, omdøbe og gemme dets navn i en database, sammen med et id, der bliver hentet ind fra denne Querystring: /picupload.asp?type=news&id=1/

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  On Error Resume Next
  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  'Max størrelse i bytes
  upload.MaxFileSize = 1000000
 
  'Upload filerne til memory
  upload.Upload

  For each file In upload.Files
    If not file.IsMissing Then
      filnavn = "/images/" & request.QueryString("type") & "-" & request.QueryString("id") & "." & file.FileExt
      file.SaveAs filnavn
    end if
  next

  '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("rater.mdb")

    SQL = "INSERT INTO tablenavn (tilknyt_id, filnavn) VALUES (" & Session("id") & ", '" & filnavn & "')"
    Conn.Execute(SQL)
    Conn.Close
    Set Conn = Nothing
  end if
   
%>
<center> Filen er nu uploaded og gemt </center>
<%
else
%>
<!-- #include file="admintop.inc" -->
<%
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("rater.mdb")
conn.open DSN

strSQL = "SELECT * from tbl_news where id=" & Request.QueryString("id")

set rs = Conn.Execute(strSQL)

do until rs.eof

strVis = rs("overskrift")
%>
<tr><td><center><br>Upload et billed til: <b><% Response.Write strVis %></b><br>
<form method="post" action="" ENCTYPE="multipart/form-data">
<input type="file" name="fil1">
<input type="submit" name="Upload" value="Upload">
</form>
</center>
<%
rs.MoveNext
loop
conn.close
set conn = nothing
%>
</td></tr>
</table>
</body>
</html>
<% end if %>

---------------------

Jeg får denne fejl: Wrong selection : Type mismatch