Filnavn, Asp.Smart.Upload

Få den til at udskrive filnavnet som 1.png
hvordan gøres dette?

og hvordan får man en brugervenlig fejlmeddl.? 
*************************************************
Dim mySmartUpload
  Dim file

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.AllowedFilesList = "jpg,png"
  mySmartUpload.DeniedFilesList = "exe,bat,asp,txt,htm,html,bmp"

  mySmartUpload.MaxFileSize = 100000

  mySmartUpload.Upload

  For each file In mySmartUpload.Files
  file.SaveAs("display/" & session("ID") & "." & file.FileExt)
filnavn = ???????
  Next

strSQL = "Update logind set "
strSQL = strSQL & "picture= '" & filnavn & "' "
strSQL = strSQL & " Where ID = " & Session("ID")
Conn.Execute(strSQL)
      Response.Redirect("display.asp?vis=updated")
end if