Salvare altezza e larghezza UPLOAD di BAOL

[Gio&Ste]

Sto cercando di memorizzare nel db altezza e larghezza delle immagini usando la classe di Baol.
Non sto capendo come fare: se scrivo semplicemente
.Database.Fields("Height") = .Files("Height")
Mi viene fuori un messaggi di errore.

.UploadOnly "Images"

IsImage = True
On error resume next
'Controlla le dimensioni dell'immagine di cui si tenta di fare upload
ImageError = .Files("Height")>=470 or .Files("Width")>=760 

If Err.Number <> 0 then 
   ImageError=True 
   IsImage = False
end if

On error goto 0
If ImageError then
	 If IsImage then
		  Response.write ("L'immagine " &_
	 	 .GetFileName() &" risulta più grande delle dimensioni imposte(" &_
		  .Files("Height") &"x" & .Files("Width") &"): File non caricato!!!")
	 else
	 	 Response.Write ("Il file caricato non è un'immagine")
	 End if
else
	.MoveFirst
	if .EOF then
		NumFiles = .Count()
		Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
	else
		.Database.Open()
		While Not .EOF
			if not .Files("FileExists") then
				.Save
				oUpload.MoveFirst() 
				Titolo = oUpload.GetFileName()
				Response.Write(Titolo) 
 				response.Write "Il file " & .GetFileName &" è stato salvato"
				.Database.Fields("PIC_IMAGE") = Titolo
				.Database.Fields("PIC_NAME") = .Form("PIC_NAME")
				.Database.Fields("PIC_CAT") = .Form("PIC_CAT")
				.Database.Addnew()

[michele.santoro]

Prova a mettere i valori in percentuale:
invece di:
ImageError = .Files("Height")>=470 or .Files("Width")>=760
metti:
ImageError = .Files("Height")>=100% or .Files("Width")>=100%

o regola il valore di % come vuoi.

[Gio&Ste]

Scusa ma penso che non hai capito il mio problema!!!
La parte di codice che dici di modificare serve per non fare inserire immagini che superano una certa dimensione.
Che senso ha mettere la percentuale? :master:

[michele.santoro]

Hai ragione, scusa ma ho avuto una giornataccia e ho preso fischi per fiaschi.

[Gio&Ste]

Questo l'errore

Request object error 'ASP 0206 : 80004005'

Cannot call BinaryRead

/galleria/upload.asp, line 291

Cannot call BinaryRead after using Request.Form collection. HTTP/1.1 400 Bad Request Server: Microsoft-IIS/5.0 Date: Sat, 12 Mar 2005 22:51:31 GMT Content-Type: text/html Content-Length: 98

HTTP/1.1 400 Bad Request

[Gio&Ste]

UP :master:

[deivnet]

Dopo aver istanziato la classe di baol usi da qualche parte Request.Form? se si ecco l'errore, devi leggere i campi del form usando la classe di baol e basta.

[Gio&Ste]

Ok ho risolto in questo modo.

.Database.Open()
While Not .EOF
if not .Files("FileExists") then
.Save
oUpload.MoveFirst() 
Titolo = oUpload.GetFileName()
Height = oUpload.Files("Height") 
	Response.Write(Titolo) response.Write "Il file " & .GetFileName &" è stato salvato"
.Database.Fields("PIC_IMAGE") = Titolo
.Database.Fields("PIC_NAME") = .Form("PIC_NAME")
.Database.Fields("PIC_CAT") = .Form("PIC_CAT")
.Database.Fields("PIC_HEIGHT") = Height
.Database.Addnew()