<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ok = 0 filename = "" 'Instancia o componente SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 'Configura o caminho onde arquivo será salvo SaFileUp.Path = Application("DiretorioImagensConteudo")&"\logos\" 'Caso o usuário não indique um arquivo para upload, informa erro. If SaFileUp.IsEmpty Then response.write "Por favor, indique um arquivo para upload.
" Else 'Salva o arquivo no servidor filename = SaFileUp.UserFilename SaFileUp.Save response.write "Total de Bytes Enviados: " & SaFileUp.TotalBytes & "" ok = 1 End if Set SaFileUp = Nothing if ok=1 then message = "Olá,
uma logomarca foi enviada.
Cliente: "&Request.QueryString("nome_cobranca")&"
Código do pedido: "&Request.QueryString("codigo_pedido")&"
Clique aqui para baixar a logomarca" Call funcao_mail_html("Loja Origem - Envio de logomarca", "janete@origem.com.br", message, 0) end if %>