2 upload

[enpenzieri]

e se invece volessi cambiare il path secondo il InputName + un altro paramentro di identificazione?
esempio
1-->JPGSMALL: "/public/id1/jpgsmall/"
1-->JPGBIG: "/public/id1/jpgbig/"
2-->JPGSMALL "/public/id2/jpgsmall/"
2-->JPGSBIG "/public/id2/jpgbig/"
etc..

ho provato a fare un select case ma si inchioda e da diversi test effettuati sembra proprio che si inchiodi nel select case e non nel save, dunque si può dedurre che è proprio il SetPath che dà problemi

  Dim oUpload
  Set oUpload = new cUpload
  With oUpload
    .AutoRename = True
    .Overwrite = True
    .Load
    While Not .EOF
    'response.write lCase(.Files("InputName")) & "
"
    Select Case lCase(.Files("InputName"))
        Case "jpgsmall"
          .SetPath "/public/id" & .Form("id_progetto") & "/" & .Files("InputName")
        Case "jpgbig"
          .SetPath "/public/id" & .Form("id_progetto") & "/" & .Files("InputName")
    End Select
    .Save
    .MoveNext
    Wend
  end With
  Set oUpload = Nothing 

in cosa sbaglio?

grazie

[enpenzieri]

cercando di mettere in variabili giustamente tutte le variabili (ho incluso anche il tipo pdf, ma non è importante ai fini dell'errore)

        Dim oUpload
        Set oUpload = new cUpload
        With oUpload
            .AutoRename = True
            .Overwrite = True
            .Load
            id_progetto = .Form("id_progetto")
            While Not .EOF
                response.write lCase(.Files("InputName")) & "
"
                
                Select Case lCase(.Files("InputName"))
                    Case "pdf"
                        mypath="/public/SGM/prog" & id_progetto & "/pdf/" 'Impostazione del percorso
                    Case "jpgsmall"
                        mypath="/public/SGM/prog" & id_progetto & "/images/small/" 'Impostazione del percorso
                    Case "jpgbig"
                        mypath="/public/SGM/prog" & id_progetto & "/images/big/" 'Impostazione del percorso
                End Select
                response.write "mypath: " & mypath & "
"
                .SetPath mypath
                .Save
                .MoveNext
            Wend
        end With
        Set oUpload = Nothing 

restituisce:

Response object error 'ASP 0251 : 80004005' 

Response Buffer Limit Exceeded 

/gestione/do_upload.asp, line 0 

Execution of the ASP page caused the Response Buffer to exceed its configured limit. 

ovvero si inchioda alla grande, dipende dal server? mah

tnx

[enpenzieri]

trovato l'inghippo

file upload.asp --->

Public Function SetPath(StringPath)
    iPath = Server.MapPath (StringPath) & "\"
    If IsDataLoad then
        MoveFirst
        While Not EOF
            Files("DestPath") = iPath
            Files.Update
            MoveNext
        Wend
        MoveFirst
    end if
End function 

questa funzione va in loop se richiamata da un loop ehehe (scusate il gioco di parole)
così ho aggiunto il parametro che identifica se viene richiamata all'interno di un do oppure fuori

Public Function SetPath(StringPath, myLoop)'MODIFICATO
    iPath = Server.MapPath (StringPath) & "\"
    If IsDataLoad then
        if myLoop<>true then
            MoveFirst
            While Not EOF
                Files("DestPath") = iPath
                Files.Update
            MoveNext
            Wend
            MoveFirst
        else
            Files("DestPath") = iPath
            Files.Update
        end if
    end if
End function 

quindi nello script quando richiamo la funzione scelgo se funzione normale o funzione no loop
esempio 1: (con richiamo fuori dal do) rimane invariata

 dim oUpload
 Set oUpload = new cUpload
 With oUpload
   .SetPat "/public"
   While Not .EOF
      .save
      .MoveNext
   Wend
End With
Set oUpload = Nothing 

esempio 2: (con richiamo dentro al do)

Dim oUpload
Set oUpload = new cUpload
With oUpload
    .AutoRename = True
    .Overwrite = True
    .Load
    id_progetto = .Form("id_progetto")
    mypath="\public\SGM\prog" & id_progetto & "" 'Impostazione del percorso
    While Not .EOF
        Select Case lCase(.Files("InputName"))
        Case "pdf"
            myDir=mypath & "\pdf" 'Impostazione del percorso
        Case "jpgsmall"
            myDir=mypath & "\images\small" 'Impostazione del percorso
        Case "jpgbig"
            myDir=mypath & "\images\big" 'Impostazione del percorso
        End Select
        .SetPath myDir, true //imposto il parametro myLoop = true (non eseguirà il ciclo nella funzione)
        .Save
        .MoveNext
    Wend
end With
Set oUpload = Nothing 

ecco fatto spero di essere stato utile

[verbaweb]

Ciao ho seguito e fatto "mio" il codice da voi postato aggiungendo l'upload di un terzo file. fin qui va tutto bene anzi benissimo

però nel DB viene salvato solo il nome del file come faccio a far scrivere il percorso del file?

grazie mille!!!