' Obtiene el tamaño de la imagen y ajusta la vertical o la horizontal de la imagen
' y devuelve una cadena diciendo si es demasiado alta o demasiado ancha.
' La funcion toma el nombre de la imagen de la variable global Direccion
Function AjustaImagen() As String
Dim Dimension As String
'-- El Alto de la imagen
Dim iH As Integer = 0
'-- El ancho de la imagen
Dim iW As Integer = 0
Dim ti As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath(Direccion))
'-- Obtiene la altura y el ancho y le añade un margen
iH = ti.Height
iW = ti.Width
If iW > iH Then 'Ajusta ancho
Dimension = "WIDTH"
'Ya que estamos aquí, sacamos el tamaño del margen en una variable exterior
AnchoMargen = (480 - iH) / 2
Else 'Ajusta alto
Dimension = "HEIGHT"
End If
Return Dimension
End Function