Criar Thumbnail de uma imagem
<%
' Cria uma instância do controle
Set AspImage = Server.CreateObject("AspImage.Image")
' Carrega a imagem
AspImage.LoadImage( Server.MapPath("imagem.jpg") )
' Propriedades da imagem
AspImage.ImageFormat = 1
AspImage.JPEGQuality = 100
' Redimensiona a imagem
AspImage.ResizeR 200, 80
' Salva a imagem
AspImage.FileName = Server.MapPath("imagem_thumbnail.jpg")
AspImage.SaveImage
' Tira o objeto da memória
Set AspImage = Nothing
Response.Write "<img src=""imagem_thumbnail.jpg"" />"
%>


Criar uma imagem de texto
<%
' Cria uma instância do controle
Set AspImage = Server.CreateObject("AspImage.Image")
' Texto a ser excrito
strMessage = "AspImage - ServerObjects"
' Seta as propriedades do Texto
AspImage.Bold = True
AspImage.Italic = False
AspImage.Underline = False
AspImage.FontColor = vbBlue
AspImage.FontName = "Tahoma"
AspImage.FontSize = 30
AspImage.MaxX = AspImage.TextWidth(strMessage)
AspImage.MaxY = AspImage.TextHeight(strMessage)
' Cria a imagem com o texto
AspImage.TextOut strMessage, AspImage.X, AspImage.Y, False
' Salva a imagem
AspImage.FileName = Server.MapPath("imagem_texto.jpg")
AspImage.SaveImage
' Tira o objeto da memória
Set AspImage = Nothing
' Exibe a imagem na tela
Response.Write "<img src=""imagem_texto.jpg"" />"
%>