error '80020009' Exception occurred

[yro]

devo far si che se il campo banner1 è occupato scriva nel campo banner2 eccetera fino a banner 5 ma

mi da errore sulla riga in neretto!!

strBanner = request.Form("img")

if rs1("banner1") = "" then
rs1.Fields("banner1") = strBanner
rs1.update

elseif rs1("banner1") <> "" then
rs1.Fields("banner2") = strBanner
rs1.update

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" then
rs1.Fields("banner3") = strBanner
rs1.update

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" AND rs1("banner3") <> "" then
rs1.Fields("banner4") = strBanner
rs1.update

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" AND rs1("banner3") <> "" AND rs1("banner4") <> "" then
rs1.Fields("banner5") = strBanner
rs1.update

end if

[DarioN1]

probabilmente il recordset non è aperto oppure è vuoto

[yro]

Originariamente inviato da DarioN1
probabilmente il recordset non è aperto oppure è vuoto

il record non è vuoto, ma anche se lo fosse, secondo quella riga se è vuote dovrebbe scrivere in quel campo o no?? :master:

[DarioN1]

no , se tu fai riferimento a un valore di un recordset che non cè hai errore

se il valore ce , ma è nullo è un altro conto, puoi testarlo e non hai nessun errore

[yro]

allora cosa metto nella condizione?? se il campo è vuoto?

[yro]

ok, era un errore nella stringa sql...

ma adesso ho un'altro problema, cioè mi sovrascrive il campo banner2 anche se è gia esistente!

ho provato a cambiare e scrivere le condizioni così:

if rs1("banner1") <> "" AND rs1("banner2") <> "" AND rs1("banner3") <> "" AND rs1("banner4") <> "" AND rs1("banner5") <> "" then
response.write "Tutti i banner inseriti"

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" AND rs1("banner3") <> "" AND rs1("banner4") <> "" then
rs1.Fields("banner5") = strBanner
rs1.update

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" AND rs1("banner3") <> "" then
rs1.Fields("banner4") = strBanner
rs1.update

elseif rs1("banner1") <> "" AND rs1("banner2") <> "" then
rs1.Fields("banner3") = strBanner
rs1.update

elseif rs1("banner1") <> "" then
rs1.Fields("banner2") = strBanner
rs1.update

elseif rs1("banner1") = "" then
rs1.Fields("banner1") = strBanner
rs1.update

end if

ma non da errore, però non scrive niente!!

help!!!