Como hacer funcion para calcular el porcentaje de reduccion de una fotografia

[ciberpata]

Hola a todos:
Estoy intentando hacer una funcion que me calcule para un ancho fijo (en este caso 138px) el porcentaje de reduccion que corresponde. Una vez que lo tengo calculado se lo aplico al alto de la foto y asi la tengo siempre redimensionada proporcionalmente.
Me explico: tengo una fotografia de 276px de ancho por 500 px de alto y quiero dejarla a 138px de ancho por lo que me salga de alto. He hecho lo siguiente:

Código:

Function ReduccionImagen (ancho)
    if ancho > 138 then
        FactorReduccion= ancho/138
        ReduccionImagen=ancho/FactorReduccion
        Response.write ReduccionImagen
    end if
End Function

De esta forma me sale para la foto anterior un factor de reduccion de 2.
Lo que pretendo ahora es aplicar el factor de reduccion obtenido al alto de la fotografia, pero no veo como puedo hacerlo.


Aplico la función así:

Código:

<img src="<%=RsDatos("fotolamina")%>" width="<%ReduccionImagen(RsDatos("fotolaminaancho"))%>" height="<%=RsDatos("fotolaminaalto")%>">

Gracias

[u_goldman]

Tu función es correcta, solo necesitas obtener los valores, puedes descomponerla en varias funciones, no es lo ideal, para mi sería crear un objeto que te regrese propiedades, salvo la mejor opinion de alguien mas, esto te saca del paso:

Código:

<%
Function FactorReduccion (ancho)
	Dim anchoMaximo
	Dim altoMaximo
	
	anchoMaximo = 138

	if ancho > anchoMaximo then
		FactorReduccion = ancho/anchoMaximo
	else
		FactorReduccion = 1
	end if
End Function


Function CalculaTamano(tamano, factor)
	CalculaTamano = tamano/factor
End Function

Function Redimensiona(ancho, alto, esAncho)
	factor = FactorReduccion (ancho)
	
	if esAncho then
		tamano = ancho
	else
		tamano = alto
	end if
	Redimensiona = cint(CalculaTamano(tamano, factor))
End Function

%>

<img src="as.jpg" width="<%=Redimensiona(1087, 781, true)%>" height="<%=Redimensiona(1087, 781, false)%>">

Salud

[ciberpata]

Ya funciona, gracias, me has sacado de una buena....

[u_goldman]

El último argumento le dice a la función si se está calculando el alto o el ancho, esAncho, trata así.

Código:

<img src="<%=RsDatos("fotolamina")%>" width="<%=Redimensiona(RsDatos("fotolaminaancho"),RsDatos("fotolaminaalto"),true)%>" height="<%=Redimensiona(RsDatos("fotolaminaancho"),RsDatos("fotolaminaalto"),false)%>">