<% strSem = Request.Form("nome") strSem = Replace(strSem, "á", "a") strSem = Replace(strSem, "é", "e") strSem = Replace(strSem, "í", "i") strSem = Replace(strSem, "ó", "o") strSem = Replace(strSem, "ú", "u") strSem = Replace(strSem, "â", "a") strSem = Replace(strSem, "ê", "e") strSem = Replace(strSem, "ô", "o") strSem = Replace(strSem, "à", "a") strSem = Replace(strSem, "ã", "a") strSem = Replace(strSem, "õ", "o") strSem = Replace(strSem, "ç", "c") strSem = Replace(strSem, "Á", "A") strSem = Replace(strSem, "É", "E") strSem = Replace(strSem, "Í", "I") strSem = Replace(strSem, "Ó", "O") strSem = Replace(strSem, "Ú", "U") strSem = Replace(strSem, "Â", "A") strSem = Replace(strSem, "Ê", "E") strSem = Replace(strSem, "Ô", "O") strSem = Replace(strSem, "À", "A") strSem = Replace(strSem, "Ã", "A") strSem = Replace(strSem, "Õ", "O") strSem = Replace(strSem, "Ç", "C") %> <% pri_nome = Replace(strSem," ","_") %> <% tel = Split(Request.Form("telefone"),".") %> <% fax = Split(Request.Form("fax"),".") %> <% If Request.Form("celular") <> "" Then %> <% cel = Split(Request.Form("celular"),".") %> <% End If %> <% Set Jpeg = Server.CreateObject("Persits.Jpeg") Set Upload = Server.CreateObject("Persits.Upload") Jpeg.Open Server.MapPath("../assinatura/" & Request.Form("imagem")) L = 765 Jpeg.Width = L Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 20 Jpeg.Canvas.PrintTextEx Request.Form("nome"), 280, 28, "c:\Windows\Fonts\tahomabd.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx LCase(Request.Form("email")), 280, 40, "c:\Windows\Fonts\tahoma.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx (Request.Form("cargo")), 280, 53, "c:\Windows\Fonts\tahoma.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "t. + 55", 280, 85, "c:\Windows\Fonts\tahomabd.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "|" & tel(0) & "| " & tel(1) & " " & tel(2), 321, 85, "c:\Windows\Fonts\tahoma.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "f. + 55", 400, 85, "c:\Windows\Fonts\tahomabd.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "|" & fax(0) & "| " & fax(1) & " " & fax(2), 445, 85, "c:\Windows\Fonts\tahoma.ttf" If Request.Form("celular") <> "" Then Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "c. + 55", 520, 85, "c:\Windows\Fonts\tahomabd.ttf" Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Size = 10 Jpeg.Canvas.PrintTextEx "|" & cel(0) & "| " & cel(1) & " " & cel(2), 560, 85, "c:\Windows\Fonts\tahoma.ttf" End If Jpeg.Interpolation = 1 Jpeg.Quality = 100 Jpeg.Save Server.MapPath("../assinatura/assinatura_" & LCase(pri_nome) & ".jpg") Path = Server.MapPath("../assinatura/assinatura_" & LCase(pri_nome) & ".jpg") %> <% Response.Buffer = True Response.AddHeader "Content-Type","application/x-msdownload" Response.AddHeader "Content-Disposition","attachment; filename=assinatura_" & LCase(pri_nome) & ".jpg" Response.Flush %>