2 upload

[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