[Upload Boal] Filter Images

[unreg]

Salve,

Uso lo scritp di Boal per fare l'upload di foto sul server,

tutto funziona bene se si tratta di un'immagine
ma se si fa l'upload di un altro tipo di file mi dal'errore Asp


Questo è il sorgente Asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
   Dim oUpload, foto, errore
   
   Set oUpload = new cUpload
   
   With oUpload
      .EnabledAspUpload = False
      .EnabledImageSize = True
      .EnabledLog = False
      .AutoRename = True
      .Overwrite = False
      .SetPath "upload\grandi\"
      .Load
	  .UploadOnly "Images"
	       
      If .Files("Height") <> 400 or .Files("Width") <> 400 Then
         errore = ("

Le dimensioni dell'immagine : " & .GetFileName() &"</p>

non sono corrette : (" & .Files("Height") &" x " & .Files("Width") &") pixel</p>")
      Else
         .Save
         foto = .GetFileName()
      End If
	  
   End With

   Set oUpload = Nothing
%>

Questo è l'errore che ritorna in caso il file non una immagine

error '80020009'
upload.asp, line 18

questa la riga incriminata.

      If .Files("Height") <> 400 or .Files("Width") <> 400 Then

vorrei fare in modo che se il files uppato non è una immagini mi dia un messaggio del tipo: "Errore: Formato Immagine non valido !".

Per favore mi sistemate lo scritp che ho postato su ?

grazie di cuore !

[Baol74]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
   Dim oUpload, foto, errore
   
   Set oUpload = new cUpload
   
   With oUpload
      .EnabledAspUpload = False
      .EnabledImageSize = True
      .EnabledLog = False
      .AutoRename = True
      .Overwrite = False
      .SetPath "upload\grandi\"
      .Load
	  nImmaginiInviate = .Count
	  .UploadOnly "Images"
      If .Count>0 then    
		  If .Files("Height") <> 400 or .Files("Width") <> 400 Then
			 errore = "

Le dimensioni dell'immagine : " & .GetFileName() &"</p>

non sono corrette : (" & .Files("Height") &" x " & .Files("Width") &") pixel</p>"
		  Else
			 .Save
			 foto = .GetFileName()
		  End If
	  Elseif nImmaginiInviate=1 then
		errore = "Il file caricato non è un'immagine"
	  Else
		errore = "Selezionare un file"
	  End if
   End With

   Set oUpload = Nothing
%>