<%
Dim objImage ' Definer en variabel til objektet' For at det er lidt lettere at håndtere det' arbejde vi vil have udført, opretter vi her' nogle flere variable til håndteringenDim strBilledKildeDim strNytBilledeDim intXSizeDim intYSize' Angiv hvor vores billed kilde befinder sigstrBilledKilde = "/billeder/stortbillede.jpg"' Til dette eksempel må benyttes: JPG, PNG og BMP' Angiv hvor det nye billede skal gemmes' og hvad det skal heddestrNytBillede = "/billeder/nytlillebillede.png"' Opret objektet så vi kan arbejde med detSet objImage = Server.CreateObject("AspImage.Image")' Indlæs en kopi af vores oprindelige billedeobjImage.LoadImage(Server.MapPath(strBilledKilde))' Den nye bredde på billedet skal være 75 prikkerintXSize = 75' Her beregner vi så hvor højt billedet skal være' ud fra den bredde vi har bestemtintYSize = (intXSize / objImage.MaxX) * objImage.MaxY' Så ændrer vi størrelsen på billedetobjImage.ResizeR intXSize, intYSize' Ok - så er vi klar til at gemme det nye billede.' Vi vil gemme det nye billede i .png format :objImage.ImageFormat = 3' Så angiver vi hvor vi vil gemme det nye billedeobjImage.FileName = Server.MapPath(strNytBillede)' Vi prøver på at gemme det nye billede, men vil' gerne have at vide hvis noget gik galt ...If objImage.SaveImage Then ' Det lykkedes at gemme det nye billede, ' så lad os vise det ... Response.Write "<img src=""" & strNytBillede & """><br>"Else ' Et eller andet gik galt ... Response.Write "Der opstod en fejl : " & objImage.ErrorEnd If' Vi er færdige, så vi rydder pænt op efter osSet objImage = Nothing%>
