upload/update con Baol

[annaelle]

Utilizzo l'upload di Baol per caricare 1 file sul server e contemporaneamente memorizzare una serie di informazioni in un DB access a lui legate che provengono da una form.

E il tutto funziona perfettamente.

Ora vorrei creare una pagina di modifica dove poter cambiare solo alcuni campi del DB, o solo il file associato o entrambi (file del DB e file associato).

Qualcuno ha già sviluppato qualcosa di simile?

La pagina di modifica è pronta (visualizzo la stessa maschera di inserimento visualizzando le info recuperate dal DB e per il file collegato ho scritto così:

Attualmente il file associato è:  <%=matriceDoc(2,0)%><br />        
Se vuoi sostituirlo scegli il file dal tuo PC *<br />
    <input name="fileattuale" type="hidden" value="<%=matriceDoc(2,0)%>" />
    <input name="filedocumento" type="file" id="filedocumento"  size="70"  />

ma non so come modificare la pagina che, se necessario, salvi i dati nel DB e aggiorni il file.

grazie

[annaelle]

Scusate, mi stavo perdendo in un bicchier d'acqua.

Semplicissimo da realizzare:

<%
 recordModificare=request.QueryString("mod")
      
      Dim oUpload,nome,cognome,allegato,inviato,indirizzo,destinatario,testo,etichetta, allegato1, allegato2, num_allegato, nascita, residenza, telefono, stringaSQL, recordModificare
            Set oUpload= new cUpload
            
            
            
            inviato="no"
            With oUpload
            

            stringaSQL = "Select Top 1 * FROM documenti WHERE idDocumenti=" & recordModificare
            .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/db/docMuseo.mdb"),stringaSQL
            .EnabledAspUpload    = False
            .EnabledImageSize    = False
            .EnabledLog         = False
            .AutoRename         = True
            .Overwrite            = False
            .SetPath "\documenti\"
            .Load
            .MoveFirst
            
            if .EOF then
            NumFiles = .Count()
            inviato="no"
            .Database.Open()
            .Database.Fields("titolo") = .Form("titolo")
            .Database.Fields("descrizione") = .Form("desc")
            .Database.Fields("nomeFile") = .Form("fileattuale")
            .Database.Fields("data") = Date()               
            .Database.Fields("protocollo") = .Form("protocollo")
            .Database.Fields("sezione") = .Form("sezione")
            
            .Database.Update()
            
            
            
            
            
            else
                .Database.Open()
                num_allegato="1"
                While Not .EOF
                IF cLng(.Files("Size"))< 2050000 then
                
                    ' salvo il file sul server
                    .Save
                    'response.Write "il file " & .GetFileName &" è stato inviato <br />"
                    if right(.GetFileName,3)="pdf" or right(.GetFileName,3)="doc" or right(.GetFileName,3)="docx" then
                        inviato="si"
                        'Inserimento dei valori nel database
                        .Database.Fields("titolo") = .Form("titolo")
                        .Database.Fields("descrizione") = .Form("desc")
                        .Database.Fields("nomeFile") = .GetFileName
                        .Database.Fields("data") = Date()                             
                        .Database.Fields("protocollo") = .Form("protocollo")
                        .Database.Fields("sezione") = .Form("sezione")
                                              
                        .Database.Update()
                    else
                        inviato="no"
                        messaggio="Formato documento non valido, deve essere un PDF o un DOCX"      
                    end if        
                else
                    inviato="no"
                end if
          
            
            .MoveNext
            Wend
            end if
            End With
            Set oUpload = Nothing
            %>