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

Rispondi quotando