upload baol due file nello stesso record db

[saretta_074]

Salve ragazzi, ho scaricato l'upload di baol, e funziona bene.
Ora pero vorrei capire come potrei fare l'upload di due foto in due campi differenti dello stesso record del db.
Con un campo testo e una foto, ci riesco.
Mentre invece con due foto mi genera in automatico un nuovo record dove salva la seconda foto cone lo stesso testo.


<%
If Request("Upload")="1" then
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("database.mdb"),"SELECT Top 1 * FROM

tabella"




.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.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("Percorso") = .GetCompletePathFile
.Database.Fields("Percorso2") = .GetCompletePathFile



'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
end if



%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">

Copertina: <INPUT TYPE="file" NAME="Percorso" size="20">

Video: <INPUT TYPE="file" NAME="Percorso2" size="20">


Titolo:<INPUT class=yform size=50 name=Titolo>


<INPUT TYPE="submit" NAME="Enter">
</FORM>
gradirei un aiutino
grazie
:master:

[Roby_72]

Non usare il metodo .AddNew dell'uplaod di Baol ma recupera semplicemente i nomi dei due file e poi fa da te l'unica query di inserimento.

Roby

[michele.santoro]

Originariamente inviato da saretta_074
Salve ragazzi, ho scaricato l'upload di baol, e funziona bene.
Ora pero vorrei capire come potrei fare l'upload di due foto in due campi differenti dello stesso record del db.
Con un campo testo e una foto, ci riesco.
Mentre invece con due foto mi genera in automatico un nuovo record dove salva la seconda foto cone lo stesso testo.


<%
If Request("Upload")="1" then
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("database.mdb"),"SELECT Top 1 * FROM

tabella"




.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.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("Percorso") = .GetCompletePathFile
.Database.Fields("Percorso2") = .GetCompletePathFile



'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
end if



%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">

Copertina: <INPUT TYPE="file" NAME="Percorso" size="20">

Video: <INPUT TYPE="file" NAME="Percorso2" size="20">


Titolo:<INPUT class=yform size=50 name=Titolo>


<INPUT TYPE="submit" NAME="Enter">
</FORM>
gradirei un aiutino
grazie
:master:

Bastava una piccola ricerca sul forum per trovare questo 3D
Spero possa aiutarti.

[saretta_074]

grazie ragazzi ho risolto cosi:

<%
If Request("Upload")="1" then

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("../data-db/13122003.mdb"),"SELECT Top 1 * FROM VIDEO"









.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "../video/"
.Load

While Not .EOF
Select Case lCase(oUpload.Files("InputName"))
Case "copertina"
fotogrande = oUpload.GetFileName()
fotogrande2 = oUpload.GetCompletePathFile

Case "filevideo"
fotopiccola = oUpload.GetFileName()
fotopiccola2 = oUpload.GetCompletePathFile
End Select



.Save
.MoveNext
Wend
response.Write "il file " & .GetFileName &" è stato salvato
"



.Database.Open()
'Inserimento dei valori
.Database.Fields("filecopertina") = fotogrande
.Database.Fields("percopertina") = fotogrande2

.Database.Fields("filevideo") = fotopiccola
.Database.Fields("pervideo") = fotopiccola2
.Database.Fields("nome") = .Form("nome")
.Database.Fields("descrizione") = .Form("descrizione")

'Inserimento
.Database.AddNew()


End With
Set oUpload = Nothing
end if


%>
<FORM method="post" action="?upload=1" name="data" ENCTYPE="multipart/form-data">
<INPUT class=yform type=file size=60 name=copertina>
<INPUT class=yform type=file size=60 name=filevideo>
<INPUT class=yform size=50 name=nome>
<INPUT class=yform size=50 name=descrizione>
<INPUT class=yform type=submit value="Inserisci Nuovo Video" name="data" onclick="SubmitContent();"></P>
</FORM>

[saretta_074]

ORA PERO VORREI CAPIRE COME POTER MODIFICARE IMMAGINE E TESTO GIA CARICATA NEL DATABASE.
HO PROVATO COSI:

MODIFICA_FOTO.ASP


<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload

oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = False
oUpload.EnabledLog = False

oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "../foto/" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "campo1"
FileName_prima = oUpload.GetFileName()
FileName_seconda = oUpload.GetCompletePathFile
End Select
oUpload.MoveNext
Wend
id = oUpload.Form("id")
nome = oUpload.Form("nome")
FileName_prima = oUpload.Form("filefoto")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data-db/13122003.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM FOTO_GALLERY WHERE ID ="&id&""
Rs.Open SQL,Conn,3,3
Rs.update
Rs("filefoto") = FileName_prima
Rs("percorso") = FileName_seconda
Rs("nome") = oUpload.Form("nome")

Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing

End if
%>
' COMNNESSIONE AL DATABASE

<%

'APERTURA DEL DATABASE
ID=request.querystring("ID")
SQL="SELECT * FROM FOTO_GALLERY WHERE ID=" & request("ID")
set RSfoto=objdbconnection.execute(sql)
ID= RSfoto("ID")
nome= RSfoto("nome")
filefoto= RSfoto("filefoto")

%>

<FORM method="post" name="data" action="?save=1">
<input name="id" type="hidden" value="<%=id%>">
<input name="nome" type="hidden" value="<%=nome%>">
<input name="campo1" type="hidden" value="<%=filefoto%>">

' VISUALIZZO LA FOTO DA MODIFICARE
[img]../foto/<%=RSfoto( [/img]" border=0 width="120" height="90">


<INPUT class=yform size=50 name=nome value="<%=nome%>">
<INPUT class=yform type=file size=60 name="campo1" id="campo1">
<INPUT class=yform type=submit value="Modifica Nome e Foto" name="data" onclick="SubmitContent();">
</FORM>

<%
RSfoto.close
%>

SEMBREREBBE TUTTO APPOSTO MA NON RISESCO A CAPIRE PERCHE MI GENERA QUESTO
ERRORE NELLA PAGINA upload.asp

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Files'
upload.asp, line 1002


MI POTETE SPIEGARMI DOVE SBAGLIO...
GRAZIE