upload di Baol74

[Yuppies]

Ho un primo form con un campo di tipo file che sono riuscito a far funzionare eseguendo l'upload del file.

ora però ho questo problema:

- prima fase (che funziona)
l'amministratore accede ad area riservata ed esegue l'upload del file;
l'upload del file viene eseguito (si tratta di una immagine di un prodotto);

-seconda fase (dove ho problemi)
l'amministratore accede in area riservata e vuole sostituire il file caricato in precedenza;
lancia il file edit.asp (che in parte è del tutto uguale al file add.asp con la differenza che richiama i valori dal DB)

qui sorgono i problemi perchè al momento dell'inserimento del nuovo file da caricare,
ricevo sempre questo errore:

Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto: 'Files'
/reserved/upload/upload.asp, line 369

per favore aiutami a risolvere questo problema

il codice che ho scritto è il seguente:
'Controllo se è stato inserito l'url della foto del prodotto
If Trim(oUpload.Form("indirizzo_url"))="" Or Len(Trim(oUpload.Form("indirizzo_url")))=0 Then
Set rstest = Server.CreateObject("ADODB.RecordSet")
sql="select * from offerte where idofferte=" & id
rstest = conn.execute(sql)
url_img_prodotto = rstest("url_img_prodotto")
Else
url_img_prodotto = trim(oUpload.form("indirizzo_url"))
End if

If Errore <> "si" Then
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "indirizzo_url"
FileName_image = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("\m db-db\xxx.mdb;")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "offerte",Conn,3,3
rs.find "idofferte=" & id
'Rs.AddNew
Rs("nome_prodotto") = trim(oUpload.Form("nome_prod"))
Rs("descr_prodotto") = trim(oUpload.Form("descr_prodotto"))
Rs("prezzo") = trim(oUpload.Form("prezzo"))
Rs("url_img_prodotto") = trim(FileName_image)
Rs("datainserimento") = Date()
Rs.update

Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing



HELP MEEEEEE!!!!!!!!!!!!!

[Roby_72]

E la riga 369??? Le dobbiamo contare???

Roby

[Yuppies]

368 Public Property Get EOF()
369 EOF = Files.EOF
370 end property

comunque tutto il resto del codice si trova nel file upload.asp (quello di baol74)

[Yuppies]

possibile che nessuno sappia aiutarmi con questo tanto acclamato script di baul74?

[Roby_72]

Carica le foto normalmente e poi usa il db senza collegarlo allo script di Baol.
Ti confonde se non lo sai usare quel procedimento.
Preoccupati di caricare le immagini prima, poi vediamo come scrivere il db.

Roby

[Yuppies]

roby ma io le foto le riesco a caricare.

se vuoi posso inviarti i file in uno zip (tanto sono solo 2 + il piccolo db)

se si può fare

te ne sarei vermante grato

[Roby_72]

Se le foto le carichi, quale'è il problema di scrivere nel db???
Se le foto le assegni a variabili diverse usa quelle per scrivere nel db togliendo tutta quella parte nello script ed usando una semplice query SQL INSERT INTO...

Roby

[Yuppies]

allora mi spiego meglio:

io ho una prima pagina con un form che chiede questi valori :

nome_prodotto
descr_prodotto
prezzo
url_img_prodotto

che andranno poi inseriti nel db.

per quanto concerne l'url_img_prodotto si tratta di un campo file quindi l'utente va ad inserire l'immagine da caricare in una determinata cartella on-line.

preme il pulsante invia e viene eseguito questo codice:

<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "/public/upload/offerte/" 'Impostazione del percorso
oUpload.Load

in questa posizione ci sono una serie di controlli che evitano la presenza di campi vuoti
nel caso ci siano campi vuoti, assegno alla variabile errore il valore "si" e mando l'utente alla stessa pagina per richiedere inserimento valore.
altrimenti

If Errore <> "si" Then
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "indirizzo_url"
FileName_image = oUpload.GetFileName()
End Select

oUpload.MoveNext
Wend

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("\m db-db\xxx.mdb;")
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "offerte",Conn,3,3

Rs.AddNew
Rs("nome_prodotto") = oUpload.Form("nome_prod")
Rs("descr_prodotto") = oUpload.Form("descr_prodotto")
Rs("prezzo") = oUpload.Form("prezzo")
Rs("url_img_prodotto") = "http://"&request.ServerVariables("HTTP_HOST")&"/public/upload/offerte/"&FileName_image
Rs.update

Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing

Response.Redirect ("/reserved/test/prod_in_offerta_list.asp")

Else

Response.Redirect("/reserved/test/prod_in_offerta_list.asp")

End IF

End if


%>

tutto questo di sopra funziona.


ORA IL PROBLEMA NASCE CON LA SECONDA PARTEEEEEEEEEEE

la padina edit.asp è uguale alla precedente ma il problema sta nel fatto che :
sia che lasci il campo url_img_prodotto vuoto che se lo riempio, mi da sto problema di Files

spiegami meglio cosa mi suggerisci di fare