upload file con db

[sermanuel]

Cercando su questo forum ho trovato questo interessante script, che mi andrebbe a modo.

http://forum.html.it/forum/showthrea...ghlight=upload

L’unico problema che non scrive i phat e i nomi dei files sul db.
Mi potete aiutare? :berto:

[sermanuel]

ok, girando e spulciando su questo forum ho trovato.. ora
il mio vero problema è quello di caricare due img.

il secondo file come faccio??

[list]


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\mdb-database\cem.mdb"),"SELECT Top 1 * FROM lavori"
.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog          = False
.AutoRename          = True
.Overwrite             = False
.SetPath "\public\img-lavori"
.Load
.MoveFirst
if .EOF then
    NumFiles = .Count()
    Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
    .Database.Open()
    While Not .EOF
            .Save
            response.Write "il file " & .GetFileName &" è stato salvato 
"
            'Inserimento dei valori
            .Database.Fields("Titolo") = .Form("Titolo")
            .Database.Fields("phatfoto") = .GetCompletePathFile
            
            'Inserimento
            .Database.AddNew()
    .MoveNext
    Wend
end if
End With
Set oUpload = Nothing
%>
[/list] 

[sermanuel]

mi spiego meglio...la mia esigenza è quella di caricare tramite un form invio due immagini all'interno del db. Questo script mi carica le foto nel db però me le duplica nei due campi phatfoto e phatfoto2, come fare per caricare ogni file nel proprio phatfoto senza avere il duplicato?

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\mdb-database\cem.mdb"),"SELECT Top 1 * FROM lavori"
.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog          = False
.AutoRename          = True
.Overwrite             = False
.SetPath "\public\img-lavori"
.Load
.MoveFirst
if .EOF then
    NumFiles = .Count()
    Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
    .Database.Open()
    While Not .EOF
            .Save
            response.Write "il file " & .GetFileName &" è stato salvato 
"
            'Inserimento dei valori
            .Database.Fields("Titolo") = .Form("Titolo")
            .Database.Fields("datainserimento") = .Form("datainserimento")
            .Database.Fields("phatfoto") = .GetCompletePathFile
            .Database.Fields("phatfoto2") = .GetCompletePathFile
            
            'Inserimento
            .Database.AddNew()
    .MoveNext
    Wend
end if
End With
Set oUpload = Nothing
%>