Problema Upload Baol

[mic3000]

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

<%
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

[mic3000]

ho modificato in questo modo ma ancora non ci siamo, mi salva nel database i campi text mentre non salva ne i file nella cartella public\files ne il loro nome nel database..
suggerimenti?

<%
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

Select Case lCase(oUpload.Files("InputName"))
Case "ImgP" 
ImgP = oUpload.GetFileName
Case "Img1" 
Img1 = oUpload.GetFileName
Case "Img2" 
Img2 = oUpload.GetFileName
Case "Img3" 
Img3 = oUpload.GetFileName
Case "Img4" 
Img4 = oUpload.GetFileName
End Select
.Save()
response.Write "il file " & .GetFileName &" è stato salvato 
"
.MoveNext

Wend

.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>

[mic3000]

correggo...i file vengono uploadati ma non scrive il percorso e il nome del file nel database

[Wama]

1. la funzione è impostata per prende solo il nome del file e non tutto il percorso

2. l'ho avuto anche io questo problema e ho creato a mano una funzione che legge il nome del file dal campo del form e la inserisco poi nel db, se trovo il file ti posto il codice

[Wama]

If Request.Form("img") <> "" Then
nome_img = Split((Request.Form("img")), "\", -1, 1)
For i = 0 To UBound(nome_img)
        Response.Write nome_img(i) & "
"
		a = a+1
    Next
a = a-1
s_img = nome_img(a)
Else
s_img  = ""
End If

s_img è il nome del file che ho uploadato e che vado a scrivere nel db

[mic3000]

Originariamente inviato da Wama
1. la funzione è impostata per prende solo il nome del file e non tutto il percorso

2. l'ho avuto anche io questo problema e ho creato a mano una funzione che legge il nome del file dal campo del form e la inserisco poi nel db, se trovo il file ti posto il codice

If Request.Form("img") <> "" Then
nome_img = Split((Request.Form("img")), "\", -1, 1)
For i = 0 To UBound(nome_img)
        Response.Write nome_img(i) & "
"
		a = a+1
    Next
a = a-1
s_img = nome_img(a)
Else
s_img  = ""
End If

grazie Wama!
un dubbio...il codice che hai postato in poche parole ricava il nome del file dal campo form, attraverso uno split..e poi?
non capisco cosa fa..serve per rinominare i file?
nome_img sarebbe FileName?
cosa dovrei sostituire alla mia pagina per fargli scrivere correttamente nel database?
grazie ancora

[Wama]

Rieccomi...
s_img è il nome del file completo di estensione.

poi il pezzo da cambiare dovrebbe essere questo

.Database.Fields("ImgP") = ImgP
.Database.Fields("Img1") = Img1
.Database.Fields("Img2") = Img2
.Database.Fields("Img3") = Img3
.Database.Fields("Img4") = Img4

al posto di ImgP, Img1, Img2, Img3, Img4 metti s_imgP, s_img1, s_img2, s_img3, s_img4

dove s_img è il risultato della piccola funzione che ti ho postato io. Ovviamente quella funzione devi ripeterla per ogni file che devi uploadare, in modo da avere il nome di tutti.
tutto chiaro?

[mic3000]

si piu o meno...ora ci provo, al massimo riposto!
ma una cosa...funziona anche nel caso .AutoRename = True ?
per me è indispensabile che funzioni il rename automatico.
granzie ancora per la pazienza!

[mic3000]

Niente ragazzi non riesco a sistemare...
c'è qualche anima pia che mi da una mano?

[mic3000]

come debbo fare?

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

se metto punto form recupero il nome del file e dove è collocato sul mio pc....
io devo recuperarlo dopo che è stato eventualmente rinominato dallo script di baol...
aiuto please