Ciao, problemi con l'upload di baol.

Carico tre file diversi tramite l'upload di baol ma nella query che inserisce i nomi dei tre file in una tabella mysql, il nome del file è sempre l'ultimo caricato, questo è l'output:

codice:
new documento di microsoft word.doc
new documento di microsoft word_0.doc
new documento di microsoft word_1.doc

UPDATE tbl SET 
FILE_1 = 'new documento di microsoft word_1.doc', 
FILE_2 = 'new documento di microsoft word_1.doc', 
FILE_3 = 'new documento di microsoft word_1.doc' 
WHERE ID = 5
Questo è il codice:

codice:
   Function IsSet(Value)
       IsSet = Not IsNull(Value) And Value <> ""
   End Function

   Sub Write(Value)
      Response.Write Value
   End Sub

   Set oUpload = new cUpload
   
   With oUpload
   oUpload.Load

   strFolder = "/Archivio/"

   If IsSet(strFolder) Then

   oUpload.SetPath strFolder 
   oUpload.AutoRename = true
   oUpload.Overwrite = false   

   oUpload.MoveFirst
   While Not .Eof  
   
   
   oUpload.SaveAs oUpload.GetFileName
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext") 
   response.write file_uploaded & "

"
   

   //QUERY DI AGGIORNAMENTO
   strSQL = "UPDATE " 
   strSQL = strSQL & "  tbl " 
   strSQL = strSQL & "  SET " 
   strSQL = strSQL & "  FILE_1 = '" & strFolder & "/" & file_uploaded & "', "
   strSQL = strSQL & "  FILE_2 = '" & strFolder & "/" & file_uploaded & "', "
   strSQL = strSQL & "  FILE_3 = '" & strFolder & "/" & file_uploaded & "', "
   strSQL = strSQL & "  WHERE " 
   strSQL = strSQL & "  ID = " & request.querystring("strID")
   cn.execute(strSQL)

   oUpload.MoveNext
   Wend
   
   End if

   End With  
   
   Set oUpload = Nothing
Dove sbaglio?
Grazie