* Dados Obrigatórios.

<% Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath("imagem_fundo.gif") Jpeg.Canvas.Font.Color = &H000000 Jpeg.Canvas.Font.Family = "Courier New" Jpeg.Canvas.Font.Size = 20 Session("seguranca") = GerarCodigo Jpeg.Canvas.Print 10, 0, Session("seguranca") Jpeg.SendBinary %> <% Private Function GerarCodigo() Dim valores, i GerarCodigo = "" valores = Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize For i = 1 to 4 GerarCodigo = GerarCodigo & valores(Int(uBound(valores) * Rnd)) Next End Function %>