upload di baol

[kronos23]

scusami ma ho 39 di febbre e devo finire sta cosa......

se uso oUpload.GetFileName() mi riprende solo il primo nome delle immy...

Ma se le immy sono due ??? Una volta usavo un array ma non so come fare... scusa..

[Baol74]

Accidenti!!Io sono in delirio con 39!
In questi casi si discrimina con il nome dell'input file.

oUpload.Files("InputName") restituisce il nome dell'input dal quale è stato caricato il file.

Adatta il codice al tuo form

Dim oUpload , Ar(1)
Set oUpload = new cUpload 
oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else
	While Not oUpload.EOF
		oUpload.Save()
		NomeImmagine = oUpload.GetFileName()
		Select Case oUpload.Files("InputName")
		Case "File1": Ar(0) = NomeImmagine
		Case "File2": Ar(1) = NomeImmagine
		End Select
		oUpload.MoveNext
	Wend
End if
..
..
objrs("immy1") =  Ar(0) 'Il file è stato caricato dell'input FILE1
objrs("immy2") =  Ar(1) 'Il file è stato caricato dell'input FILE2

[kronos23]

<% 

Dim oUpload , Ar(1)
Set oUpload = new cUpload 
oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else
	While Not oUpload.EOF
		oUpload.Save()
		NomeImmagine = oUpload.GetFileName()
		Select Case oUpload.Files("InputName")
		Case "File1": Ar(0) = NomeImmagine
		Case "File2": Ar(1) = NomeImmagine
		End Select
		oUpload.MoveNext
	Wend
End if

Set Con = Server.CreateObject( "ADODB.Connection" ) 
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fcrore/db/base.mdb") & ";" 
Set objrs = CreateObject("ADODB.Recordset") 
objrs.open "SELECT * FROM home",Con,3,3 

objRS.AddNew 

objrs("titolo1") = oUpload.Form("titolo1") 
objrs("titolo2") = oUpload.Form("titolo2") 
objrs("corpo1") = oUpload.Form("corpo1") 
objrs("corpo2") = oUpload.Form("corpo2") 
objrs("immy1") =  Ar(0)
objrs("immy2") = Ar(1)

objRS.Update 

Set oUpload=Nothing 
objRS.Close 
Set objRS = Nothing 
Con.Close 
Set Con = Nothing 
%>

Questo è il codice mi uploada il file mi mette nella banca dati i campi dei form ma nonil nome del file...

Dove sbaglio?

[Baol74]

Concentrati su questa parta di codice.
Inanzitutto aggiungiamo lCase
Dopodichè controlla i nomi dei tuoi <input type="file">
Ultima cosa: il codice che stai usando farà un aggiormanto al db anche se non carichi le immagini.

Select Case lCase(oUpload.Files("InputName"))
	Case "file1": Ar(0) = NomeImmagine
	Case "file2": Ar(1) = NomeImmagine
End Select

[kronos23]

ALLORA I DUE FORM IMPUT FILE SI CHIAMANO FILE1 E FILE2 i file vengono uploaddati correttamente e tutto l'inserimento funge ma mancano ancora i nomi dei file ufff ho la testa che scoppia febbre del ....

[Baol74]

Hai fatto la modifica con lcase()?

[kronos23]

si codice attuale:

<% 

Dim oUpload , Ar(1)
Set oUpload = new cUpload 
oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else
	While Not oUpload.EOF
		oUpload.Save()
		NomeImmagine = oUpload.GetFileName()
		
        Select Case lCase(oUpload.Files("InputName"))
			Case "file1": Ar(0) = NomeImmagine
			Case "file2": Ar(1) = NomeImmagine
		End Select

		
		oUpload.MoveNext
	Wend
End if

Set Con = Server.CreateObject( "ADODB.Connection" ) 
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fcrore/db/base.mdb") & ";" 
Set objrs = CreateObject("ADODB.Recordset") 
objrs.open "SELECT * FROM home",Con,3,3 

objRS.AddNew 

objrs("titolo1") = oUpload.Form("titolo1") 
objrs("titolo2") = oUpload.Form("titolo2") 
objrs("corpo1") = oUpload.Form("corpo1") 
objrs("corpo2") = oUpload.Form("corpo2") 
objrs("immy1") =  Ar(0)
objrs("immy2") = Ar(1)

objRS.Update 

Set oUpload=Nothing 
objRS.Close 
Set objRS = Nothing 
Con.Close 
Set Con = Nothing 
%>

[Baol74]

Dopo End Select

Metti

Response.Write oUpload.Files("InputName") & " -  " &_
 NomeImmagine & " - " & Ar(0) & " - " & Ar(1) & "
"

Dimmi il risultato.

[kronos23]

file2 - test_0.jpg - - test_0.jpg
file1 - 01.jpg - 01.jpg - test_0.jpg

[Baol74]

Quindi l'array viene valorizzato correttamente.
Teoricamente deve funzionare.
Tu cosa pensi ?
Di che tipo sono i campi immy1 e immy2 ?