AspSmartUpload opret stinavne i db

Hej jeg forsøger at lave en "portal" hvor brugerne skal kunne ligge 5 billeder op..

Billed 1 bliver fint uploadet til serveren og blir døbt brugernavn1.jpg og sti til billedet i databasen er også ok - så er problemet at få oprettet stien til de sidste billeder i db.

Feltnavne i db er hhv. brugerImg1 brugerImg2 brugerImg3 brugerImg4 brugerImg5

Jeg har taget udgangspkt. i sample 4 som ser således ud..


<% if mode = "billedupload" then
                       
                        'Tjecker om brugeren er logget ind
                        if session("brugernavn") = "" then
                            Response.Redirect("login_ejertest.asp?mode=login")
                        end if
                       
                       
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim intCount
  intCount=0
'  Session.LCID = 1030     
 
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload
 
'  ******
  intCount = mySmartUpload.Save("d:\web\localuser\prestmann.dk\public_html\images\")                     

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("../database/feriebolig.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};"

'  Open a recordset
'  ****************

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************

file.SaveAs "d:\web\localuser\prestmann.dk\public_html\images\" & Session("brugernavn") & "_" & intCount & "." & file.FileExt
filnavn = "images\" & Session("brugernavn") & "_" & intCount & "." & file.FileExt

SQL = "Update beskrivelse Set brugerImg1 = '" & filnavn & "' Where brugernavn = '" & Session("brugernavn") & "' "
      oConn.Execute (SQL)

        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oConn.Close
  Set oConn = Nothing
                             
                        %>
               
               
               
<% end if %>