aspSmartUpload og navnegive billederne som skal uploades

Jeg har følgende kode. Det jeg har brug for er at billederne bliver navngivet efter variablerne  lektion og medlemsnummer.
Det nye navn skal så også puttes i databasen.
Håber i forstår.
koderne virker men uden at omdøbe filerne.

<%

'  Variables
'  *********
  Dim mySmartUpload, file, intCount, grafik, lektion, medlemsnummer,  streng, besvar, besvarfelt
 

  intCount=0


grafik=Trim(Replace(Request("grafik"),"'",""))
'grafik=mySmartUpload.form("grafik")     
lektion=Trim(Replace(Request("lek"),"'",""))
'lektion=mySmartUpload.form("lek")
medlemsnummer=Trim(Replace(Request("medlemsnummer"),"'",""))
'medlemsnummer=mySmartUpload.form("medlemsnummer")


'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg,jpeg,gif"

'  Only allow files smaller than 15000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 15000

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
'  Only if the file exist
  '  **********************
  If file.IsMissing = false Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
        file.SaveAs(server.mappath("elevgrafik/" & file.FileName))
if CStr(intCount) = "0" then
streng = "" & file.FileName & "" 
     

end if
        ' sample with a physical path
        'file.SaveAs("c:\" & file.FileName)

      '  Tæl antal filer...
      '  ******************************************
      intCount = intCount + 1
      End If
  Next

besvar=mySmartUpload.form("besvarelse")
besvarfelt=mySmartUpload.form("besvarfelt")


'  Display the number of files which could be uploaded
'  ***************************************************
set rs = Server.CreateObject("ADODB.Connection")
str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/hvem.mdb")
rs.open str

sql = "Update brugerinfo set " & grafik & " = '" & streng & "'," & besvarfelt & " = '" & besvar & "' , status = 'ret' WHERE medlemsnummer= '" & medlemsnummer & "'"
'Response.Write  (sql) 



set rs = rs.execute(sql)
' Response.Write("<BR>" & mySmartUpload.Files.Count & " Kunne sendes.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " fil sendt.<BR>")
Set RS = Nothing
  Set str = nothing
%>