' Requête
' *******
strSQL = "SELECT * FROM client"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' Selectionne chaque fichier
' **************************
For each file In mySmartUpload.Files
' Seulement si le fichier existe
' ******************************
If not file.IsMissing Then
' Ajoute le fichier courrant dans un champ de la base de données
' **************************************************************
oRs.AddNew
file.FileToField oRs.Fields("FILE")
oRs("FILENAME") = file.FileName
oRs.Update
intCount = mySmartUpload.Save("/upload")
End If
Next
' Affiche le nombre de fichiers uploadés
' **************************************
Response.redirect "remerciements.asp"
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>