recupero nome file da upload Boal

[nataq]

Ho un problema: sto usando upload di boal. Invio i files da un modulo e vorrei recuperare i loro nomi. Con getfilename() riesco a recuperarne solo uno, come posso recuperare anche gli altri?
C'è uno script che posso visionare o qualche suggerimento, grazie.

[santino83]

devi mandare in loop l'upload e ad ogni giro recuperi un file, il nome del file, lo salvi e poi passi al successivo

[nataq]

ci ho provato ma mi dà questo tipo di errore:Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
ADODB.Stream (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/turismo/upload.asp, line 291


il form è questo:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="Upload_LimitSizeAndImages1.asp">
File : <INPUT TYPE="file" NAME="Campo1">

File : <INPUT TYPE="file" NAME="Campo2">

File : <INPUT TYPE="file" NAME="Campo3">

File : <INPUT TYPE="file" NAME="Campo4">

File : <INPUT TYPE="file" NAME="Campo5">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

mentre il mio tentativo è stato questo:

<%
 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
dim c
c=1
do until c >5
.Load
d=.getfilename()
response.write(d)
c = c + 1
loop
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
else
 .Save
end if
.MoveNext
Wend
End With
Set oUpload = Nothing

%>

[Baol74]

No, no.

<%
 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
else
 .Save
 Response.Write .GetFileName()
end if
.MoveNext
Wend
End With
Set oUpload = Nothing

%>

[nataq]

ora sto procedendo alla separazione dei nomi e successivamente al loro inserimento in data base sto usando il response write per visualizzare cosa succede, tuttavia ottengo sempre questo errore:Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: ","]'
/turismo/Upload_LimitSizeAndImages1.asp, line 28


il codice è questo:

<%
 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )

else

 .Save
dim c
d=.GetFileName()
for c =0 to 4
arrnames= split(d,"jpg",",")
response.write(arrnames(c))
next

end if
.MoveNext
Wend
End With
Set oUpload = Nothing

%>

cosa è che non và in split?

[Baol74]

Ma che vuoi fare? Separazione dei nomi?????

allora...

inizia col mettere i nomi dei files in un array

<%
 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )

else
.Save
FileList = "|" & .GetFileName()
end if
.MoveNext
Wend
End With
Set oUpload = Nothing

If FileList<>"" then
FileList = Mid(FileList,2)
ArFiles = Split(FileList,"|")
End if
%>

Nell' array arFiles troverai i nomi dei files caricati.

Per la cronaca:

arrnames= split(d,"jpg",",") non si può fare.

in generale

for c =0 to 4
arrnames= split(d,"jpg",",")
response.write(arrnames(c))
next

Non ha senso.

[nataq]

si, ma non mi funziona perchè mi dà quest'errore:Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: '[number: 1]'
/turismo/Upload_LimitSizeAndImages1.asp, line 36


codice:[CODE]
<%

Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
Response.write ("Le dimensioni dell'immagine " &_
.GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato
" )

else

.Save
FileList = "|" & .GetFileName()
end if
.MoveNext
Wend
End With
Set oUpload = Nothing

If FileList<>"" then
FileList = Mid(FileList,2)
ArFiles = Split(FileList,"|")
End if
response.write (ArFiles(1))

%>
[CODE]
uso response.write unicamente per vedere se mi cattura i nomi. successivamente vorrei inserirli in delle variabili per poi immetterli nel data base
perchè non mi cattura i nomi help

[Baol74]

ArFiles(1) NON ESISTE!

Metti

For Each File in ArFiles
Response.Write File & "
"
Next

[nataq]

ci ho provato ma questo è cio che mi visualizza il browser:

For Each File in ArFiles Response.Write File & "
" Next For Each File in ArFiles Response.Write File & "
" Next copia di copia di ddd_23.jpg

Comunque utilizzo response.write unicamente per vedere il risultato. Vorrei unicamente inserire i singoli nomi nelle rispttive variabili per poi inserirle nei campi di un data base.
Utilizzando response.write ho visto che viene catturata solo un nome nell'indice di array 0. Mentre se metto response . write sotto la riga FileList = "|" & .GetFileName(), vengono visualizzati tutti i nomi chiaramente compresi tra| |. Quindi, i nomi sono catturati ma quando si passa alla condizione if e precisamente alla funzione split viene catturato un solo nome e posto nell'indice array. Come posso inserire i singoli nomi ciascuno in un a propria varialile? aiuto