un semplice upload ma nn entra nel while

[cicetaar]

mi ritrovo chiedere ancora aiuto..

questo è il codice che avevo pensato di fare..

<%

Dim oUpload
Set oUpload= new cUpload


With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = false

.Load
.PrintStatus "File Inviati"
.UploadOnly "Images"

While Not .Eof

for i= 1 to cInt(Session("quante_foto"))
If .Files("Height")>=5680 or .Files("Width")>=5660 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
	response.End()
else

	
	'response.write("dentro")
	'response.End()
	.SetPath "img/birre/big/"
	.SaveAs(Session("nome_foto" & i))
	
.MoveNext 
ho bisogno di caricare alternatamente una foto 
in una cartella e la successiva in un'altra; quando ho completato il 
primo for dovrò passare 
a un secondo che faccia le stesse cose ma con altre 2 cartelle...
in questo modo però mi uploadda solo la prima foto e poi si pianta...
 
	
	.SetPath "img/birre/small/"
	.SaveAs(Session("nome_foto" & i))
	.MoveNext
end if

next


Wend
.PrintStatus "File Salvati"
End With
Set oUpload = Nothing
%>

:master:

ciao e grazie..
simone

[cicetaar]

up.. helppppp

[cicetaar]

..è tutto il giorno che ci provo..

ma nn riesco a risolvere..

aiutooooo

[cicetaar]

[cicetaar]

ho fatto questo codice partendo da una pagina d'esempio

uploadda una sola immagine ma poi si pianta

qualcuno sa perchè??

grazie

Dim oUpload
Set oUpload = new cUpload 
oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = TRUE
oUpload.EnabledLog = False
oUpload.AutoRename = True
oUpload.Overwrite = False

oUpload.Load
oUpload.UploadOnly "Images"
 
session("a")="0"
While Not oUpload.Eof
i=i+1

if session("a")="0" then
If oUpload.Files("Height")>=4480 or oUpload.Files("Width")>=4460 then
	
 Response.write ("Le dimensioni dell'immagine " &_
 oUpload.GetFileName() &" non sono corrette (" &_
 oUpload.Files("Height") &"x" & oUpload.Files("Width") &"): File non caricato
"  )
 session("a")="1"
else
 
 oUpload.SetPath "img\birre\big"
 oUpload.SaveAs(Session("nome_foto"& i))
 session("a")="1"
end if
end if



if session("a")="1" then

If oUpload.Files("Height")>=4480 or oUpload.Files("Width")>=4460 then
	
 Response.write ("Le dimensioni dell'immagine " &_
 oUpload.GetFileName() &" non sono corrette (" &_
 oUpload.Files("Height") &"x" & oUpload.Files("Width") &"): File non caricato
")
	 session("a")="0"
else
 
 oUpload.SetPath "img\birre\small"
 oUpload.SaveAs(Session("nome_foto"& i))
 session("a")="0"
end if
end if

oUpload.MoveNext
Wend
'End With
Set oUpload = Nothing
%>

[cicetaar]

RISOLTO!! finalmente