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

[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