Upload Baol - database + size

[lucacasu]

Salve, premetto che uso la classe di Baol e mi funziona benissimo. Ora ho l'esigenza di implementarla con il controllo delle dimensioni. Nello zip di Baol sono in due file separati, ho provato ad "unirli" :



<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/dati.mdb"),"SELECT Top 1 * FROM testa"

.EnabledAspUpload = False
.EnabledImageSize = false
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.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
.Database.Open()
While Not .EOF
if .Files("InputName")="aa" then
.Files("DestPath") = Server.MapPath("/testa")
.Save
else
.Files("Name")=session("session.sessionID")
.Save
'Inserimento dei valori
.Database.Fields("des") = .Form("des")
.Database.Fields("foto") = .GetFileName()

.Database.AddNew()
end if
%>
<center>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
response.Write "L'immagine è stata inserita..
"
%>


<input type="button" value="Continua" onClick="location.href='../test.asp?'" name="button223" style="color: #000000; font-size: 8 pt">
</font>
</center>
<%
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>


Mi va sempre in errore nella parte finale:
line 50
End With

Consigli?

[lucacasu]

nessuno mi sa dare una mano??

[lucacasu]

in rosso l'errore:


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/dati.mdb"),"SELECT Top 1 * FROM testa"
.EnabledAspUpload = False
.EnabledImageSize = false
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
.UploadOnly "Images"
.MoveFirst

if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
end if

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
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("des") = .Form("des")
.Database.Fields("foto") = .GetFileName()
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>

:master:

[lucacasu]

[Santino83_02]

hai messo due cicli while, un else che non c'entra niente e la logica dell'if pare sbagliata visto il doppio while.. tutto qui