upload baol aggiornare foto nel db e nella cartella

[saretta_074]

Salve ragazzi, ho scaricato l'upload di baol, e funziona bene.
Ora pero vorrei capire come potrei modificare le foto, e il nome che ho caricato nel database.
dalla pagina elencofoto.asp mi porto l'id

">MODIFICA FOTO

Nella pagina modifica_foto.asp
dovrei visulazzare la foto già presente, il nome, e fare l'update con
la nuova foto, e nuovo nome.

io ho fatto così:

pagina modifica_foto.asp

<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload

oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = False
oUpload.EnabledLog = False

oUpload.AutoRename = True
oUpload.Overwrite = False 
oUpload.SetPath "../foto/" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "campo1"
FileName_prima = oUpload.GetFileName()
FileName_seconda = oUpload.GetCompletePathFile
End Select
oUpload.MoveNext
Wend
id = oUpload.Form("id") 
nome = oUpload.Form("nome")
FileName_prima = oUpload.Form("filefoto")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM FOTO_GALLERY WHERE ID ="&id&""
Rs.Open SQL,Conn,3,3
Rs.update
Rs("filefoto") = FileName_prima 
Rs("percorso") = FileName_seconda
Rs("nome") = oUpload.Form("nome")

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

End if
%>
 

<%

'QUI RIAPRO LA CONNESSIONE AL DB PER VISUALIZZARE LA FOTO E NOME PRESENTE
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")



ID=request.querystring("ID")
SQL="SELECT * FROM FOTO_GALLERY WHERE ID=" & request("ID")
set RSfoto=objdbconnection.execute(sql)
ID= RSfoto("ID")
nome= RSfoto("nome")
filefoto= RSfoto("filefoto")

%>

<FORM method="post" name="data" action="?save=1">
<input name="id" type="hidden" value="<%=id%>">
<input name="nome" type="hidden" value="<%=nome%>">
<input name="campo1" type="hidden" value="<%=filefoto%>">

' VISUALIZZO LA FOTO DA MODIFICARE
[img]../foto/<%=RSfoto( [/img]" border=0 width="120" height="90">


<INPUT class=yform size=50 name=nome value="<%=nome%>">
<INPUT class=yform type=file size=60 name="campo1" id="campo1">
<INPUT class=yform type=submit value="Modifica Nome e Foto" name="data" onclick="SubmitContent();">
</FORM>

<%
RSfoto.close
Conn.Close
%>

SEMBREREBBE TUTTO APPOSTO MA NON RISESCO A CAPIRE PERCHE MI GENERA QUESTO
ERRORE NELLA PAGINA upload.asp

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Files'
upload.asp, line 1002

MI POTETE SPIEGARMI GENTILMENTE DOVE SBAGLIO...
GRAZIE

[saretta_074]

RISOLTO!!!!! A titolo di informazioni il problema che mi dava l'errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Files'
upload.asp, line 1002

era dovuto dal fatto che nel form avevo dimenticato di mettere ENCTYPE="multipart/form-data"

<FORM method="post" ENCTYPE="multipart/form-data" name="data" action="?save=1">

GRAZIE
P.S. Caspiterina Quante info ci sono in questo forum!!!