Vise billede i mindre format
Hej eksperterJeg er ved at skifte webudbyder. Ved den gamle udbyder har jeg brugt:
<%
BilledKilde = "/upload/" & Session("Bruger") & "/" & request.querystring("FileName") & ""
Set objImage = Server.CreateObject("AspImage.Image")
objImage.LoadImage(Server.MapPath(BilledKilde))
OprBredde = objImage.MaxX
OprHojde = objImage.MaxY
Nybredde = request.querystring("Bredde")
Nyhojde = Cint(OprHojde*Nybredde/OprBredde)
objImage.ResizeR "" & Nybredde & "","" & Nyhojde & ""
Response.BinaryWrite objImage.Image
Set objImage = Nothing
%>
til at vise et billede mindre, men hos den nye udbyder siger de, at de ikke vil installerede AspImage, da det er smæk fyldt med fejl. Fair nok. Før brugte jeg også AspImage til resize, men her bruger jeg nu Jpeg.
Mit spørgsmål er derfor, hvordan jeg får vist et mindre billede? Hvilke muligheder er det?