Sepia

Dim Image, Status
Set Image = Server.CreateObject("TABSUpload4.Image")
Status = Image.Load("C:\Images\sample1.jpg")
If Status = Ok Then
    Set Param = Server.CreateObject("TABSUpload4.ImageParam")
    Image.SetEffect "sepia", Param

    Image.Save "C:\Images\effect.png", 0, False
    Image.Close
End If