Problemer med filnavn

Jeg skal have filnavn på den fil jeg upload tilføjet til databasen, men den kommer ikke ind. Alt andet virker fint og filen bliver også uploaded.

Hvor går det lige galt?

<%
  set upload = Server.CreateObject("SoftArtisans.FileUp")



Upload.OverwriteFiles = False
On Error Resume Next

upload.Path = Server.MapPath("/images")

filename = file.FileName

if (upload.IsEmpty) then
    Response.write "<p>Fejl: Filen er tom eller findes ikke!</p>"
  elseif (upload.ContentDisposition <> "form-data") then
    Response.write "<p>Fejl: Upload mislykkedes!</p>"
  else
    Response.write "<p>Filen er nu uploadet.</p>"
  on error resume next
  ' Gem den uploadede fil på webhotellet
    upload.Save

' Formaterer teksten
strKommentar = Replace(Upload.Form("kommentar"),"'","´")
strKommentar = Replace(strKommentar,vbCrLf,"<br />")


strTarget = Replace(Upload.Form("target"),"'","´")
strTarget = Replace(strTarget,vbCrLf,"<br />")
strSpil = "Spil"
strOverskrift = Replace(Upload.Form("overskrift"),"'","´")
strOverskrift = Replace(strOverskrift,vbCrLf,"<br />")

' Tilfojer til databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/dbbase.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM seneste "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("pic") = File.FileName
rs("beskrivelse") = strKommentar
rs("target") = strTarget
rs("spil") = 2
rs("spil") = strSpil
rs("visnyhed") = Upload.Form("visnyhed")
rs("moviekategori") = Upload.Form("kategori")
rs("overskrift") = strOverskrift
rs.update
rs.close


response.write("Billedet er nu tilføjet til databasen")

End if
%>