confronto altezza larghezza immagine (.cls)

[beppenet]

ciao ragazzi...sono le 3.00 e ormai sono disperato...ho necessità di utilizzare la classe trovata (tramite altri post) sul sito byluciani.com
http://www.byluciani.com/asp/default...=articoli&ID=7

mi siete rimasti solo voi
il mio codice è questo e credo che la causa del mio problema sia un mio errore nel ricavare il valore della variabile "orizzontale"...per lui è sempre FALSE

<% 
id=request.querystring("idnews")
if id="" then id=1 end if
sqlStringNews = "SELECT * FROM news where id="&id
SET RSNews = Con.Execute( sqlStringNews )
%>
<%
dim orizzontale
dim altezza
dim larghezza
Set objImageSize = New ImageSize
					 
With objImageSize
					
.ImageFile = Server.MapPath("/writable/" & rsNews("immagine") )
larghezza = .ImageWidth
altezza = .ImageHeight
					  
If (.ImageWidth > .ImageHeight) Then
orizzontale = true
else 
orizzontale = false
end if
End With
					 
Set objImageSize = Nothing
%> 

<%if orizzontale = false then%>
orizzontale è <% response.Write(orizzontale)%>

[img]../writable/<%=rsNews([/img]" align="left">
<div>
<%=rsNews("titolo")%>


<%=rsNews("testo")%></div>

<%else%>
orizzontale è <% response.Write(orizzontale)%>
<div align="center">
[img]../writable/<%=rsNews([/img]">
</div>

<div><%=rsNews("titolo")%>


<%=rsNews("testo")%></div>	
<%end if%>

[Fichico]

.ImageFile = Server.MapPath("/writable/" & rsNews("immagine") )
larghezza = .ImageWidth
altezza = .ImageHeight
					  
If larghezza > altezza Then
orizzontale = "S"
else 
orizzontale = "N"
end if
End With

Prova così sostituendo poi sotto false e true a "S" e "N"

[beppenet]

nisba! orizzontale è sempre N

ma come cakkio è!?!

[beppenet]

ok...ora funziona...era un errore nel MapPath("../writable/" & rsNews("immagine") )


grazie...che stress sapessi...

[Tote]

Prima di tutto prova a vedere i veri valori delle variabili "larghezza" e "altezza".....ad esempio puoi mettere un bel
response.write(altezza & " " & larghezza).

Una volta verificato che i valori sono come li vuoi tu prova a dichiarare la variabile orizzontale come variabile booleana
Io cambierei il codice cosi'

boolean orizzontale = false
If (.ImageWidth > .ImageHeight) Then
orizzontale = true
end if
End With

Set objImageSize = Nothing
%>

<%if not orizzontale then%> 'guarda la condizione
orizzontale è <% response.Write(orizzontale)%>

[img]../writable/<%=rsNews([/img]" align="left">
<div>
<%=rsNews("titolo")%>


<%=rsNews("testo")%></div>
....

[Tote]

Abbiamo postato nello stesso momento.....

ciao

[beppenet]

grazie Tote, seguirò cmq. il tuo consiglio perchè credo che sia + corretto e meno incasinante...

grazie!