Dimensione Immagine

[carlo55]

Aiuto - con la classe Classe ImageSize di byluciani ricavo le dimensioni di una immagine però voglio che non vengano superate certe dimensioni e quindi faccio così:

Set objImageSize = New ImageSize

With objImageSize

'.ImageFile = Server.MapPath("logo_byluciani.gif")

.ImageFile = Server.MapPath(var_cart & "\" & var_file)

if (.ImageWidth <> 500 or .ImageWidth <> 600) and (.ImageHeight <> 600 or .ImageHeight <> 500) then

Response.Write "Name: " & .ImageName & "
"
'larghezza
Response.Write "X (larghezza): " & .ImageWidth & "
"
'altezza
Response.Write "Y (altezza): " & .ImageHeight & "
"
Response.Write "Immagine non consentita valori permessi
"
Response.Write "1 larghezza 500 e altezza 600 se foto verticale
"
Response.Write "1 larghezza 600 e altezza 500 se foto orizzontale
"


'elseif (.ImageWidth <> 600 and .ImageHeight <> 500) then

' Response.Write "Name: " & .ImageName & "
"
' 'larghezza
' Response.Write "X (larghezza): " & .ImageWidth & "
"
' 'altezza
' Response.Write "Y (altezza): " & .ImageHeight & "
"
' Response.Write "Immagine non consentita
"
' Response.Write "2 larghezza 500 e altezza 600 se foto verticale
"
' Response.Write "2 larghezza 600 e altezza 500 se foto orizzontale
"

else
'If .IsImage Then

Response.Write "Path: " & .ImageFile & "
"
Response.Write "Name: " & .ImageName & "
"
Response.Write "Type: " & .ImageType & "
"
'larghezza
Response.Write "X (larghezza): " & .ImageWidth & "
"
'altezza
Response.Write "Y (altezza): " & .ImageHeight & "
"
'Response.Write "Colors: " & .ImageDepth & "
"

'Else

'Response.Write "Name: " & .ImageName & "
"
'Response.Write "it isn't an image"

End If

End With

Set objImageSize = Nothing

Però non riesco nell'intento ossia se l'immagine è 500 x 600 o 600 x 500 mi visualizza Immagine non consentita.
Dove sbaglio ve ne sono grato

[br1]

questa e' sempre vera:

(.ImageWidth <> 500 or .ImageWidth <> 600)

e come questa pure l'altra....