ciao a tutti
ho provato a mettere giu una pagina di upload utilizzando la classe di baol ma non sono riuscito a farla funzionare...

codice:
<%
If Request("Upload")="1" then

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;Data Source=" & server.MapPath("/mdb-database/Prova.mdb"),"SELECT Top 1 * FROM Prova"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "Public\files\"
.Load

If oUpload.Count=0 then
Response.Write "Nessun file caricato"

Else

While Not oUpload.EOF
oUpload.Save()

Select Case lCase(oUpload.Files("InputName"))
Case "ImgP" = (oUpload.Database.Fields("ImgP")) = oUpload.GetFileName
Case "Img1" = (oUpload.Database.Fields("Img1")) = oUpload.GetFileName
Case "Img2" = (oUpload.Database.Fields("Img2")) = oUpload.GetFileName
Case "Img3" = (oUpload.Database.Fields("Img3")) = oUpload.GetFileName
Case "Img4" = (oUpload.Database.Fields("Img4")) = oUpload.GetFileName

.MoveNext
End Select

Wend
response.Write "il file " & .GetFileName &" è stato salvato 
"

.Database.Open()
'Inserimento dei valori
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("DescPubblica") = .Form("DescPubblica")
.Database.Fields("DescPrivata") = .Form("DescPrivata")
.Database.Fields("ImgP") = ImgP
.Database.Fields("Img1") = Img1
.Database.Fields("Img2") = Img2
.Database.Fields("Img3") = Img3
.Database.Fields("Img4") = Img4
'Inserimento
.Database.AddNew()

End If
End With
Set oUpload = Nothing
End If
%>

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
Titolo : <INPUT TYPE="text" NAME="Titolo">

DescPubblica : <textarea name="DescPubblica" rows="4" cols="10"></textarea>

DescPrivata : <textarea name="DescPrivata" rows="4" cols="10"></textarea>

File ImgP : <INPUT TYPE="file" NAME="ImgP">

File Img1 : <INPUT TYPE="file" NAME="Img1">

File Img2 : <INPUT TYPE="file" NAME="Img2">

File Img3 : <INPUT TYPE="file" NAME="Img3">

File Img4 : <INPUT TYPE="file" NAME="Img4">

<INPUT TYPE="submit" NAME="Enter">
</FORM>
Ora come ora riesco a visualizzare il form ma al momento dell'invio ricevo questo errore

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Database.Fields'


Probabilmente ho fatto casini con il case...ma non riesco ad uscirne
Aspetto suggerimenti
grazie a tutti
ciaooo