upload immagini e mysql

[slay]

ciao a tutti vorrei chiedere informazioni riguardo all upload di immagini da proprio pc al server .. praticamente ho creato un form dove l'utente inserisce i propri dati tipo nome descrizione ecc.. e con la possibilità di inserire 2 immagini il tutto in con mysql ora sono davanti al problema upload immagini e registrazione del nome nel db mysql ... conoscete qualche script o link che mi possa aiutare?

volevo chiedere 1 altra cosa perchè se nel mio form inserisco enctype="multipart/form-data" e dopo verlo compilato mi si aggiunge un record vuoto senza niente dentro invece se lo tolgo il record mi si aggiunge in modo corretto ...

[Roby_72]

http://www.creamweb.it/script/mostra.../?id_script=12
qui un esempio.
I dati inviati con il metodo multipart non posso essere recuperati con request.form.

Roby

[slay]

sembra molto interessante lo provo ... al posto di es: fax=request.form("form_fax") cosa dovrei usare?

[Roby_72]

Guarda gli esempi del link.

Roby

[slay]

ho guardato i link però... non ho capito molto ... cmq alla fine ho fatto così e vedo che funziona ... devo ancora implementare il discorso dell upload però..

ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
    DatiRicevuti = Request.BinaryRead(ByteRicevuti)
    ' funzione che ricostrisce i dati
    For i = 1 To lenB(DatiRicevuti)
        FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
    Next
    
    Firma = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
    ' è una stringa che divide ogni dato inviato attraverso le caselle
    ArrayPezzi = split(FileBinario,Firma)
    ' creo un vettore che contienei pezzi di FileBinario, separando i dati
    ' quindi analizzo un pezzo alla volta
    for item = 1 to ubound(ArrayPezzi)-1
        pos = instr(ArrayPezzi(item),"" & vbCrLf & "" & vbCrLf)
        ' è la posizione del separatore
        intestazione = left(ArrayPezzi(item),pos-1)
        ' separo l'intestazione alla sinistra del separatore
        pos = pos + len("" & vbCrLf) + len("" & vbCrLf)
        ' separo il contenuto alla destra del separatore
            contenuto = mid(ArrayPezzi(item),pos)
            contenuto2 = "1"

    ' Recupero i campi se sono compilati    
        if instr(intestazione,"form_nome") > 0 then
            nome = contenuto
        end if            
        if instr(intestazione,"form_descrizione") > 0 then
            descrizione = contenuto
        end if    
        if instr(intestazione,"form_via") > 0 then
            via = contenuto
        end if    
        if instr(intestazione,"form_citta") > 0 then
            citta = contenuto
        end if    
         ecc...

    next
end if 

però ora ho questo problema per alcuni campi che sono delle checkbox dovrei fare una condizione simile... (se la checkbox è selezionata mi passa il valore 1 altrimenti mi passa il valore 0)

if instr(intestazione,"form_flag") = "0" then
flag = contenuto
else
flag = contenuto2
end if

flag è checkbox con valore 0,1 a seconda se è selezionato o no ... ovviamente così non può funzionare ... come potrei fare ...

[Roby_72]

Se la checkbox non è selezionata non passa nulla quindi ti basta fare la solita IF

Roby

[slay]

ahh..ok ma io vorrei, in caso di check non è selezionata mi passasse 0 cioè che mi vada a riempire il campo del db con uno 0 e non con un null...

[Roby_72]

Devi usare la IF te l'ho detto.
Se la checkbox non passa nulla valorizzi il valore a 0.

Roby

[slay]

grazie

[slay]

roby ... scusami ancora .. ma ho sto problema ... allora ho fatto la if

if instr(intestazione,"form_animali") > 0 then
            animali = contenuto
        end if 

se la selezione tutto ok e mi passa il numero 1 se non la seleziono mi da questo errore:


Microsoft OLE DB Provider for ODBC Drivers (0x80040E31)
[MySQL][ODBC 3.51 Driver][mysqld-5.0.27-community-nt]Incorrect integer value: '' for column 'animali' at row 1
/registrati/prova_dati.asp, line 136