Recuperare Titolo + Nome File con UPLOAD Baol

[peppeweb]

Salve a tutti,

ho cercato da stamattina su google una risposta al mio problema ma senza risultato.

In pratica utilizzo la classe di Baol per fare l'upload di più immagini senza nessun problema ..... ma se devo, oltre al nome del file, caricare su database pure un testo per ogni file caricata non riesco a capire come recuperarla nella pagina INSERISCI.ASP

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="INSERISCI.ASP">
<table border="1" width="100%" id="table1">
<tr>
<td width="20%">Immagine 1</td>
<td width="30%"><input type="text" name="Testo1" size="20"></td>
<td width="556"> <INPUT TYPE="file" NAME="Campo1"></td>
</tr>
<tr>
<td width="20%">Immagine 2</td>
<td width="30%"><input type="text" name="Testo2" size="20"></td>
<td width="556"> <INPUT TYPE="file" NAME="Campo2"></td>
</tr>
<tr>
<td width="20%">Immagine 3</td>
<td width="30%"><input type="text" name="Testo3" size="20"></td>
<td width="556"> <INPUT TYPE="file" NAME="Campo3"></td>
</tr>
<tr>
<td width="20%">Immagine 4</td>
<td width="30%"><input type="text" name="Testo4" size="20"></td>
<td width="556"> <INPUT TYPE="file" NAME="Campo4"></td>
</tr>
<tr>
<td width="20%">Immagine 5</td>
<td width="30%"><input type="text" name="Testo5" size="20"></td>
<td width="556"> <INPUT TYPE="file" NAME="Campo5"></td>
</tr>
<tr>
<td colspan="3">
<p align="center"><INPUT TYPE="submit" NAME="Enter"></td>
</tr>
</table>

<input type="hidden" name="BloccoPuzzle" value="<%=Request("BloccoPuzzle")%>">
<input type="hidden" name="ID_Tipo" value="<%=Request("ID_Tipo")%>">
<input type="hidden" name="DATAINSERIMENTO" value="<%=DATA%>">
<input type="hidden" name="Cartella" value="<%=Session("ID")%>">

</FORM> 

per recuperare i dati e memorizzarli in un database utilizzo la pagina INSERISCI.ASP:

Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Jet OLEDB:Database Password=P0S; Data Source=" & server.MapPath("/mdb-database/Puzzle/Pixel.mdb"),"SELECT Top 1 * FROM ANAGRAFICA_Immagini"
.EnabledAspUpload    = False
.EnabledImageSize    = True
.EnabledLog         = False
.AutoRename         = False
.Overwrite        = True
.Load
.UploadOnly "Images"
.MoveFirst
.SetPath "\public\"
if .EOF then
    NumFiles = .Count()
    Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else
    .Database.Open()
    While Not .EOF
    
    If .Files("Height")>10 or .Files("Width")>10 then
            
    Response.write ("<table border=0 width=100% cellpadding=2 bgcolor=#FFFFFF><tr><td bgcolor=#E1E1E1>Le dimensioni dell'immagine [b]"&.GetFileName()&"[/b] non sono corrette ("&.Files("Height") &"x" & .Files("Width") &"): File non caricato</td></tr></table>")
            
    else
                
    .Save
    Response.write ("<table border=0 width=100% cellpadding=2 bgcolor=#FFFFFF><tr><td bgcolor=#E1E1E1>Il File [b]"&.GetFileName()&"[/b] è stato salvato</td></tr></table>")
                                 
    'Inserimento dei valori
    .Database.Fields("ID_Tipo") = .Form("ID_Tipo")
    .Database.Fields("DataInserimento") = .Form("DataInserimento")
    .Database.Fields("BloccoPuzzle") = .Form("BloccoPuzzle")
    .Database.Fields("ID_Cliente") = .Form("Cartella")
    .Database.Fields("File") = .GetFileName()
    .Database.Fields("Testo") = [COLOR=red]???????????????[/COLOR] 
    'Inserimento
    .Database.AddNew()

    end if
    .MoveNext

    Wend

    Response.write ("
<input onclick=""javascript:window.close()"" type=""button"" value=""CHIUDI FINESTRA"" class=""Button"" />")
    
    
end if
End With
Set oUpload = Nothing 

Come posso risolvere questo problema ?