sostituire un immagine in un database

[blupix80]

Ciao a tutti!
io mi sono appena registrata, questo è il mio primo post.. e spero che qualcuno mi aiuti!!
vorrei sostituire un immagine in un database..

vi riporto il mio codice:
[/I]

<%
'************** Variabili **************
Dim oUpload,objrs,Con
Dim MioArray(50),i,dbfile,strCon
i = 0
dbfile = Server.MapPath("datab.mdb")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"

'************** Upload **************
Set oUpload = new cUpload
oUpload.Load()
While Not oUpload.EOF
oUpload.Save()
Mioarray(i) = oUpload.GetFileName
i=i+1
oUpload.MoveNext
Wend

'************** Database **************

set con = Server.CreateObject( "ADODB.Connection" )
set objrs = CreateObject("ADODB.Recordset")
con.open strCon

pippo= oUpload.Form("pippo")
objrs.open "SELECT * FROM tabella where (ID = '" & pippo & "')"

objrs.addNew
objrs("immagini") = Mioarray(0)
objrs.update
response.write



[/I]

e l'errore:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Files'

upload.asp, line 990

che riguarda questa funzione:

Public Property Get EOF()
EOF = Files.EOF
end property

Grazie in anticipo!!!!

[blupix80]

non fate così... vi prego aiutatemi!

[Roby_72]

Ciao, ma il form come è fatto?
E "pippo" da dove viene?

Roby

[santino83]

il form deve essere in metodo post e con l'enctype multipart-forma data o qualcosa del genere

manca oUpload.setPath ".....path....." per dirgli dove salvare

[blupix80]

ok perfetto il method del form in effetti mancava..
ma adesso mi da errore nel sql

pippo me lo tiro dietro dalla pagina precedente, per fargli passare il valore dell'ID

riporto la prima parte del form (pagina precedente)

<%
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("datab.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
pippo=request.Querystring("id")
SQL1 = "SELECT * FROM gruppoimmobiliare WHERE ID="&pippo&""
Rs.Open SQL1, Conn1
%>

<CENTER>
<TABLE BORDER="4" CELLSPACING="0" CELLPADDING="5" BORDERCOLOR="#39BA9B">
<FORM ACTION="imm_mod5.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<TR BGCOLOR="#DCF4D9" BORDERCOLOR="#FFFFFF">
<TD ALIGN="RIGHT"><FONT FACE="verdana" SIZE="2" COLOR="#000080">id</FONT></TD>
<TD><FONT FACE="verdana" SIZE="2" COLOR="#000080">Inserzione n°: <%=pippo%></FONT>
</td><input type="hidden" name="ID" value="<%=pippo%>">
</TR>

Vi spiego quello che devo fare..
ho una serie di inserzioni scritti in un database
offro la possibilità di modificare il record e posso scegliere se modificare solo i dati oppure l'immagine..
se scelgo di modificare l'immagine, in una pagina (che è quella che vi ho riportato sopra) faccio visualizzare l'img presente e poi scelgo di sostituirla... vorrei modificare solo il nome scritto ne l database, poi l'immagine la cancello io manualmente.. quello non importa..


Grazie!

[santino83]

riporta l'errore dell'sql

[blupix80]

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

imm_mod5.asp, line 39

che sarebbe:

objrs.open "SELECT FROM gruppoimmobiliare where (ID = '" & pippo & "')"

[santino83]

objrs.open "SELECT FROM gruppoimmobiliare where (ID = '" & pippo & "')",con,3,3

[blupix80]

mi dispiace ma ancora nulla...
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

imm_mod5.asp, line 39

[santino83]

SELECT * FROM

e poi non usare objrs.addnew (toglilo) perchè stai facendo un update non un inserimento