<% Response.Expires = 0 ' create instance of AspJpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") ' Open source file 'Jpeg.Open( Request("path") ) Jpeg.Open( "D:\XVRT\laroda.es\Html\documentos\fondo.jpg" ) ' Set new height and width 'Jpeg.Width = Request("Width") 'Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth Jpeg.Quality = 100 Jpeg.Interpolation = 2 Jpeg.Canvas.Font.Bold = True Jpeg.Canvas.Font.Quality = 4 ' Antialiased Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work Jpeg.Canvas.Font.Color = &HFF0000 jpeg.Canvas.Font.Size = 45 Randomize 'drcha=0 cadena=request("cadena") for i=1 to 5 pos=pos+25 Text=mid(cadena,i,1) 'Text = LEFT(request("cadena"),i) 'Text = RIGHT(text,drcha) rot = int((35 - (-30) + 1) * rnd + (-30)) Jpeg.Canvas.Font.Rotation = rot jpeg.Canvas.PrintTextEx Text, pos, 40, Jpeg.WindowsDirectory & "\Fonts\Times.ttf" 'drcha=drcha+1 next ' Perform resizing and ' send resultant image to client browser Jpeg.SendBinary %>