Olá pessoal, boa tarde! É o seguinte... Estou editando um projeto da INTRANET da empresa que eu trabalho... Estou alterando o corpo do email que é enviado com o Arquivo XML de uma nota fiscal que eu escolho atraves de um formulário. Para isso, é utilizado um arquivo chamado: cdosys_nfe.asp. Ele esta dando o seguinte erro: Informações técnicas (para a equipe de suporte) Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /empresa/faturamento/nfe/cdosys_nfe.asp, line 148, column 23 Será que alguém poderia me ajudar? Só para lembrar, é um arquivo ASP, que faz o envio do email em HTML... Segue a parte do envio do email HTML no arquivo cdosys_nfe.asp: <% remetente = "email@empresa.com.br" data = now() nf = nfe destinatario = email Set msg = CreateObject("CDO.Message") msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="servidor.smtp" msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False) msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text) msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email@empresa.com.br" msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha" msg.AddAttachment diretorio+arquivoxml msg.AddAttachment diretorio+nomeBusca+".pdf" msg.Configuration.Fields.Update msg.To = email msg.Cc = emailfornec msg.Subject = danfe & " " & assunto & ": " & cliente & " - Danfe: " & danfe msg.From = remetente arquivoxml = left(arquivoxml,44) msg.HTMLBody = "EMPRESA - INTRANET VERSÃO 4.60 - SOFTWARE: " & Request.ServerVariables("SERVER_SOFTWARE") & vbcrlf&_ ``` "

& vbcrlf&_ " & vbcrlf&_ " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "

& vbcrlf&_ " & vbcrlf&_ " & vbcrlf&_ " " " "

& vbcrlf&_ "

" EMPRESA
" " Ind. e Com. Ltda.

" " " Nota Fiscal Eletrônica Nacional

" " " Nota fiscal eletrônica emitida e " autorizada.

" " Telefone para Suporte:
" " (11 )0000-0000

" Dados da NFe

" " " " " " " " " " " " " " "

" Numero NFe:	"	" Série:
" Data de Emissão:	"
" Chave de Acesso:	"

" Dados do Cliente

" " " " " " " " " " " " " "

" " Razão Social :	"
" " CNPJ:	"
" E-mail:	"

" Dados do Transportador

" " " " " " " " " " " " " "

" " Razão Social :	"
" " CNPJ:	"
" E-mail:	"

" " Guarde o " arquivo XML anexo a este e-mail em local seguro "

" Para verificar a autorização da " SEFAZ referente à nota acima mencionada, acesse: https://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx?chaveAcesso=35120459280669000208550010000153171060084090

" Desenvolvido por Fulano " de Tal (Analista TI - EMPRESA)

" ``` msg.Send Set msg = Nothing %> Obs.: A linha 148 é a linha: "

Será que alguém pode me ajudar? No código ainda esta faltando as variaves que vão preencher a tabela. Ex.: Numero NFe (variavel do numero da nf) Obrigado!

Junior Godoy

Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução