Set AspJpeg_Obj_New=createObject("Persits.Jpeg") AspJpeg_Obj_New.Open Img_PicIn_Path AspJpeg_Obj.PreserveAspectRatio = True AspJpeg_Obj_New.PreserveAspectRatio = True If AspJpeg_Obj.OriginalWidth<Img_Reduce_Size or AspJpeg_Obj.OriginalHeight<Img_Reduce_Size then Img_WaterMark=Errors(3) Exit Functi...