Problema con Baol e upload multiplo

[Andrea Toniolo2]

Dim oUpload
	       Set oUpload = new cUpload
	       oUpload.AutoRename = False
	       oUpload.Overwrite = true
	       oUpload.Upload
           'salvo i dati della prima pagina
		   Titolo = oUpload.Form("txtTitolo")
	       Sottotitolo= oUpload.form("txtSottotitolo")
           Descrizione = oUpload.form("txtDescrizione")
           Sottotitolo_Dimensioni= oUpload.form("txtSottotitolo_Dim")
           IDCategoria= oUpload.form("SelIDCategoria")
           sql="INSERT INTO PRODOTTI ([Titolo], [Sottotitolo], [Descrizione], [Sottotitolo_Dimensioni], [IDCategoria]) values('" & Titolo & "','" & Sottotitolo & "','" & Descrizione & "','" & Sottotitolo_Dimensioni & "','" & IDCategoria & "')"
	
           set Rs = db.execute(sql) 
           'salvo il pdf
		   if oUpload.form("UsePDF") = "yes" then 
		       sql="SELECT * FROM PRODOTTI ORDER BY ID DESC"
	           set Rs = db.execute(sql)
		       rs.movefirst
			   oUpload.MoveFirst
			   oUpload.SetPath "Allegati/"
	           oUpload.SaveAs rs("ID") & ".pdf"
	           sql="UPDATE PRODOTTI SET [PDF]='Allegati/" & rs("ID") & ".pdf" & "' WHERE ID=" & rs("ID")
               set Rs = db.execute(sql)
			   oUpload.MoveNext
		   else
		       oUpload.MoveFirst
		   end if
		   'salvo l'immagine
		   if oUpload.form("UseIMG") = "yes" then 
		       sql="SELECT * FROM PRODOTTI ORDER BY ID DESC"
	           set Rs = db.execute(sql)
		       rs.movefirst
			   oUpload.MoveFirst
               'salvo il pdf
			   oUpload.SetPath "Images/Prodotti/"
	           oUpload.SaveAs rs("ID") & ".jpg"
	           sql="UPDATE PRODOTTI SET [Immagine_Dimensioni]='Images/Prodotti/" & rs("ID") & ".jpg" & "' WHERE ID=" & rs("ID")
               set Rs = db.execute(sql)
		   end if
		   
		   Set oUpload=Nothing
           response.Write("<span>Salvato correttamente</span>")

Ciao, questo è il codice che uso per il salvataggio. Succede che mi salva il pdf senza problemi, mentra la jpg no. il form (ho tolto l'intabellamento per renderlo piu leggibile) è questo:

<form action="AddProdotto.asp?adding=2" enctype="multipart/form-data" method="post" name="FormAdd">
    <select class="Select" name="SelIDCategoria">
        <%sql="SELECT * FROM CATEGORIE ORDER BY Titolo"
	set Rs = db.execute(sql)
	do while not Rs.eof %>
            <option value='<%response.Write(rs("ID"))%>'><%response.Write(rs("Titolo"))%></option>
            <% 
	    Rs.movenext
	loop %>
    </select>
    <input name="txtTitolo" class="Select" /></td></tr>
    <input name="txtSottotitolo" class="Select" /></td></tr>
    <textarea name="txtDescrizione" rows="10" class="Select" ></textarea>
    <input name="txtSottotitolo_dim" class="Select" /></td></tr>
    <input type="checkbox" name="UsePDF" value="yes"/><INPUT TYPE="file" NAME="Campo1" >
    <input type="checkbox" name="UseIMG" value="yes"/><INPUT TYPE="file" NAME="Campo2" >
    <input type="hidden" name="Azione" value="1" /><input type="submit" value="Salva dati" name="b1">
</form>

che agisce sulla stessa pagina.

Io non riesco a capire dove sbaglio, probabilmente non devo usare il movenext. non so, qualcuno di voi può gentilmente darmi una mano?
vorrei anche capire se posso mantenere l'estensione del file pur cambiandogli il nome, ma quella è una cosa secondaria...

[Andrea Toniolo2]

Vorrei inoltre aggiungere che nel database mi salva la destinazione del file correttamente.

[Andrea Toniolo2]

up, perfavore mi serve...

[Santino83_02]

while not oUpload.eof

  select case oUpload.files("InputName")

  case "Campo1"

       if oUpload.form("UsePDF") = "yes" then

          'faccio l'upload del pdf

     end if

  case "Campo2"

      if oUpload.form("UseJpg") = "yes" then

        'faccio l'upload della jpg

     end if

   end select

   oUpload.movenext

wend

penso che siano chiari i commenti dentro l'if

[Andrea Toniolo2]

per il momento posso solo dirti che ti amo appena ho tempo provo...ti ringrazio con tutto il cuore, penso proprio che funzioni

Non capisco, comunque, come una persona possa comprendere al 100% gli script di baol...esiste una guida o un qualcosa (magari creata dallo stesso baol) che spiega come utilizzarli?

[Santino83_02]

Originariamente inviato da Andrea Toniolo2
per il momento posso solo dirti che ti amo appena ho tempo provo...ti ringrazio con tutto il cuore, penso proprio che funzioni

Non capisco, comunque, come una persona possa comprendere al 100% gli script di baol...esiste una guida o un qualcosa (magari creata dallo stesso baol) che spiega come utilizzarli?

sinceramente non so se c'è una guida a riguardo, non credo boh. Cmq se vuoi sapere come funzioni la classe di baol puoi anche metterti li e studiarti a fondo la classe. infondo non è complicatissima da capire.





EDIT:

ps: questa riga dopo la insert:

set Rs = db.execute(sql)

è inutile, basta solo il db.execute(sql)

[Andrea Toniolo2]

Ti ringrazio per i consigli

[Andrea Toniolo2]

Ciao,
Ho provato ma non funziona.
Se scrivo il codice cosi:

select case oUpload.files("InputName")
                   case "Campo1"
                       if oUpload.form("UsePDF") = "yes" then
                           'faccio l'upload del pdf
	                       oUpload.SetPath "Allegati/"
	                       oUpload.SaveAs ID & ".pdf"
	                       'sql="UPDATE PRODOTTI SET [PDF]='Allegati/" & ID & ".pdf" & "' WHERE ID=" & ID
                           'set Rs = db.execute(sql)
						   response.Write("
<span>Campo1</span>
")
                       end if
                   case "Campo2"
                       if oUpload.form("UseIMG") = "yes" then
                           'faccio l'upload della jpg
			               oUpload.SetPath "Images/Prodotti/"
	                       oUpload.SaveAs ID & ".jpg"
	                       'sql="UPDATE PRODOTTI SET [Immagine_Dimensioni]='Images/Prodotti/" & ID & ".jpg" & "' WHERE ID=" & ID
                           'set Rs = db.execute(sql)
						   response.Write("
<span>Campo2</span>
")
                       end if
               end select

continua a ciclare fino al timeout.

mentre se tolgo il pezzo con cui salvo, cioe:

oUpload.SetPath "Images/Prodotti/"
oUpload.SaveAs ID & ".jpg"

mi cicla giusto.

Non capisco cosa succede...

[Andrea Toniolo2]

ok, ho controllato meglio e ho scoperto che il ciclo continua a looppare e rimane sul 2, cioe a schermo mi continua a stampare campo2, a parte la prima che stampa campo1, quindi vuoldire che si muove sul 2 correttamente, ma poi ci rimane all'infinito, senza raggiungere l'eof quindi?

ho cambiato il do-loop con un ciclio for, mi stampa giusto campo1 e campo2 , ma non mi salva comunque la jpg(Campo2), mentre il pdf (campo1) lo salva sempre...

[Andrea Toniolo2]

tornando al ciclo while, mi sono accorto che se provo a salvare solo la jpg me la salva.

come se ci fosse qualcosa che viene settato prima del ciclo, di cui usufuisce solo il primo elemento che viene salvato.
quindi se provo a salvare il pdf e la jpg insieme mi salva solo il primo, se provo a salvare solo la jpg me la salva correttamente.

quindi ho pensato, che prima di questo ciclo ci sono queste istruzioni:

                  Dim oUpload
	       Set oUpload = new cUpload
	       oUpload.AutoRename = False
	       oUpload.Overwrite = true
	       oUpload.Upload

ho quindi messo

oUpload.Upload

all'interno di ogni CASE, ma ricevo un errore durante il salvataggio:

Tipo di errore:

ADODB.Stream (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/ipino.it/upload.asp, line 291