RÉCUPÉRER DONNÉES REQUEST.FORM OU ASPSMARTUPLOAD ?

<%
' Script créé par matche
' matthieu.dev@laposte.net

'  ************************
' Script pour récupérer toutes les données 
' dans des dictionnaires
'  ************************


'  *********
' Création des 2 dictionnaires
'  *********
Dim listForm ' Pour les champs "courants"
Set listForm = Server.CreateObject("Scripting.Dictionary")
listForm.CompareMode = VBTextCompare ' => Pour ne pas faire de différence entre majuscule / minuscule

Dim listRec ' Pour les champs de recherche
Set listRec = Server.CreateObject("Scripting.Dictionary")
listRec.CompareMode = VBTextCompare ' => Pour ne pas faire de différence entre majuscule / minuscule

'  *********
' Si les données proviennent d'un formulaire "normal"
' On récupère toutes les données avec des request.Form
'  *********
if left(request.ServerVariables("CONTENT_TYPE"),11) = "application" then 

     For Each Champ in Request.Form

' Récupère dans un dictionnaire listRec les éléments correspondant aux critères de recherche
        if left(Champ, 4) = "rec_" then 
            listRec.Add Champ, Request.Form(Champ)
        else
' et dans un autre dictinnaire les autres éléments
            listForm.Add Champ, Request.Form(Champ)
        end if
    Next

'  *********
' Sinon, on vient d'une page qui envoi un fichier
' On récupère toutes les données avec le composant aspsmartupload 
'  *********
elseif left(request.ServerVariables("CONTENT_TYPE"),9) = "multipart" then
' Mise en place du composant
    Dim mySmartUpload
    Dim file
    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
    mySmartUpload.DenyPhysicalPath = True
    mySmartUpload.MaxFileSize = 2097152
    mySmartUpload.Upload

' récupération des champs dans les 2 dictionnaires
    For each item In mySmartUpload.Form
        if left(item, 4) = "rec_" then 
            listRec.Add item, mySmartUpload.Form(item)
        else
            listForm.Add item, mySmartUpload.Form(item)
        end if
    Next
end if



'  ************************
' Pour pouvoir ensuite récupérer les éléments du dictionnaire
' Sur la page
'  ************************
titre = listForm("nom_du_champ")

'  ************************
' Agir sur les fichers
'  ************************
For each file In mySmartUpload.Files
    ...
next


'  ************************
' Et boucle qui permet d'afficher les champs cachés de tout
' les critères de recherche
'  ************************
akeys = listRec.Keys
aitem = listRec.Items
For i = 0 To listRec.Count - 1%>
<input type="hidden" name="<%=akeys(i)%>" value="<%=aitem(i)%>">
<%next
%>