[baol] Errore in upload multiplo

[Martin]

Con questo codice

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "..\public\"
StrIco1 = oUpload.Form("ico1")
StrImg1 = oUpload.Form("img1")
StrIco2 = oUpload.Form("ico2")
StrImg2 = oUpload.Form("img2")
StrIco3 = oUpload.Form("ico3")
StrImg3 = oUpload.Form("img3")
StrIco4 = oUpload.Form("ico4")
StrImg4 = oUpload.Form("img4")
StrIco5 = oUpload.Form("ico5")
StrImg5 = oUpload.Form("img5")
StrIco6 = oUpload.Form("ico6")
StrImg6 = oUpload.Form("img6")
StrIco7 = oUpload.Form("ico7")
StrImg7 = oUpload.Form("img7")
StrIco8 = oUpload.Form("ico8")
StrImg8 = oUpload.Form("img8")
StrIco9 = oUpload.Form("ico9")
StrImg9 = oUpload.Form("img9")
StrIco10 = oUpload.Form("ico10")
StrImg10 = oUpload.Form("img10")
StrId = oUpload.Form("idprog")
.Load
.UploadOnly "images"
%>
<tr>
<td class="homenodot">
<%
dim sw00,sw01,sw03

sw03 = false
if ((oUpload.Form("ico1") = "") OR (oUpload.Form("img1") = "")) then

sw01 = false
else
sw01 = true
end if
While Not .Eof

.Save
sw00 = true
Response.write ("Il file <font class='colore'>" & .GetFileName() &"</font> è stato caricato con successo.

" )

.MoveNext
Wend



mi restituisce questo errore...
Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/XXX/pannello/uploadimg.asp, line 90 (il Wend)

visto che comincio ad essere un po' stanco non vedo il problema, magari ci riuscite voi?

[Martin]

Ok, l'errore lì non era un problema...

Ora devo però scrivere nel database... il codice è questo

'...GESTIRE la scrittura nel DATABASE...START

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL = "SELECT * FROM progetti WHERE IDProgetto LIKE '" & StrId & "'"
objRS.Open strSQL, objConn, adOpenStatic

objRS("ico1") = StrIco1
objRS("img1") = StrImg1
objRS("ico2") = StrIco2
objRS("img2") = StrImg2
objRS("ico3") = StrIco3
objRS("img3") = StrImg3
objRS("ico4") = StrIco4
objRS("img4") = StrImg4
objRS("ico5") = StrIco5
objRS("img5") = StrImg5
objRS("ico6") = StrIco6
objRS("img6") = StrImg6
objRS("ico7") = StrIco7
objRS("img7") = StrImg7
objRS("ico8") = StrIco8
objRS("img8") = StrImg8
objRS("ico9") = StrIco9
objRS("img9") = StrImg9
objRS("ico10") = StrIco10
objRS("img10") = StrImg10
objRS.Update

'...GESTIRE la scrittura nel DATABASE...END

Il record esiste con altri campi già compilati... a cui vanno aggiunti questi dati.
L'errore:
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

[Baol74]

Se non chiami il metodo load, non puoi avere il valore dei campi:

.Load
StrIco1 = oUpload.Form("ico1") 
StrImg1 = oUpload.Form("img1") 
StrIco2 = oUpload.Form("ico2") 
.
.

[Martin]

Originariamente inviato da Baol74
Se non chiami il metodo load, non puoi avere il valore dei campi:

.Load
StrIco1 = oUpload.Form("ico1") 
StrImg1 = oUpload.Form("img1") 
StrIco2 = oUpload.Form("ico2") 
.
.

L'avevo messo sotto...

Ora a questa riga del codice del secondo post
objRS.Open strSQL, objConn, adOpenStatic
Ho questo errore
Tipo di errore:
ADODB.Recordset (0x800A0CB3)
L'operazione richiesta non è supportata dall'oggetto o dal provider.

Come lo devo aprire il RS?
Se lo apro adOpenDynamic mi restituisce lo stesso errore...

Se lo apro
objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic
mi restituisce errore
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

[Baol74]

objRS.Open strSQL, objConn,3,3

[Martin]

Originariamente inviato da Baol74
objRS.Open strSQL, objConn,3,3

figo, un errore che non avevo mai visto

Si sono verificati errori in un'operazione OLE DB composta da più passaggi. Controllare i singoli valori di stato OLE DB, se disponibili. Nessuna operazione eseguita.
/seti/pannello/uploadimg.asp, line 99

Line 99: objRS("ico1") = StrIco1

Ora lo prendo a calci...

[Baol74]

Posta il codice completo (usa il tag CODE per cortesia)

[Martin]

<%
StrId = Request.QueryString("idprog")

Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "..\public\"
.Load
StrIco1 = oUpload.Form("ico1")
StrImg1 = oUpload.Form("img1")
StrIco2 = oUpload.Form("ico2")
StrImg2 = oUpload.Form("img2")
StrIco3 = oUpload.Form("ico3")
StrImg3 = oUpload.Form("img3")
StrIco4 = oUpload.Form("ico4")
StrImg4 = oUpload.Form("img4")
StrIco5 = oUpload.Form("ico5")
StrImg5 = oUpload.Form("img5")
StrIco6 = oUpload.Form("ico6")
StrImg6 = oUpload.Form("img6")
StrIco7 = oUpload.Form("ico7")
StrImg7 = oUpload.Form("img7")
StrIco8 = oUpload.Form("ico8")
StrImg8 = oUpload.Form("img8")
StrIco9 = oUpload.Form("ico9")
StrImg9 = oUpload.Form("img9")
StrIco10 = oUpload.Form("ico10")
StrImg10 = oUpload.Form("img10")

.UploadOnly "images"
%>
<tr>
<td class="homenodot">
<%
dim sw00,sw01,sw03

sw03 = false
if  ((oUpload.Form("ico1") = "") OR (oUpload.Form("img1") = "")) then

	sw01 = false
else 
	sw01 = true
end if
While Not .Eof

    .Save 
 	sw00 = true
 	Response.write ("Il file <font class='colore'>" & .GetFileName() &"</font> è stato caricato con successo.

"  ) 
 
.MoveNext
Wend
 
'...GESTIRE la scrittura nel DATABASE...START
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	Dim strSQL
	strSQL = "SELECT * FROM progetti WHERE IDProgetto LIKE '" & StrId & "'"
    objRS.Open strSQL, objConn,3,3

	objRS("ico1") = StrIco1
	objRS("img1") = StrImg1
	objRS("ico2") = StrIco2
	objRS("img2") = StrImg2
	objRS("ico3") = StrIco3
	objRS("img3") = StrImg3
	objRS("ico4") = StrIco4
        objRS("img4") = StrImg4
	objRS("ico5") = StrIco5
	objRS("img5") = StrImg5
	objRS("ico6") = StrIco6
	objRS("img6") = StrImg6
	objRS("ico7") = StrIco7
	objRS("img7") = StrImg7
	objRS("ico8") = StrIco8
	objRS("img8") = StrImg8
	objRS("ico9") = StrIco9
	objRS("img9") = StrImg9
	objRS("ico10") = StrIco10
	objRS("img10") = StrImg10
	objRS.Update
	
'...GESTIRE la scrittura nel DATABASE...END

[Martin]

Originariamente inviato da Baol74
objRS.Open strSQL, objConn,3,3

qualsiasi modo cambio mi dà errore, che non sia qui il problema? Cosa posso controllare?

[Baol74]

Inanzitutto metti

strSQL = "SELECT * FROM progetti WHERE IDProgetto='" & StrId & "'"

(il like è un po' lento e serve per altro)

Secondo. Controlla che la dimensione dei campi sia corretta e di poter mettere a vuoto il campo.

Terzo. Domanda. Ma oUpload.Form("img1"),oUpload.Form("img2")
sono dei files? Se si stai sbagliando.

Quattro. sw01 ti servirà in seguito? Comunque invece di scrivere

if  ((oUpload.Form("ico1") = "") OR (oUpload.Form("img1") = "")) then

	sw01 = false
else 
	sw01 = true
end if

Puoi mettere:

sw01 = Not (oUpload.Form("ico1") = "" OR oUpload.Form("img1") = "")

E' la stessa cosa, il codice risulta + pulito