lo llamas asi
<%redimImage "fotos/mifoto.jpg", 50, 70, 100, 100%>
Sub redimImage(inImg, inW, inH, inMW, inMH)
maxWidth = CInt(inMW)
maxHeight = CInt(inMH)
dW = 0
dH = 0
h = CInt(inH) : w = CInt(inW)
dH = CInt(inH) : dW = CInt(inW)
If h >= maxHeight Or w >= maxWidth Then
If h >= maxHeight And w >= maxWidth Then
If h > w Then
dH=maxHeight
dW = CInt((w * dH) / h)
Else
dW = maxWidth
dH = CInt((h * dW) / w)
End If
ElseIf h > maxHeight And w < maxWidth Then
dH = maxHeight
dW = CInt((w * dH) / h)
ElseIf h < maxHeight And w > maxWidth Then
dW = maxWidth
dH = CInt((h * dW) / w)
End If
End If
Response.Write "<img src=""" & inImg & """ width=""" & dW & """ height=""" & dH & """ border=""0"">"
End Sub%>
un saludo