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

sexta-feira, 27 de abril de 2012 10:55

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
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
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&_
"<br><br><table style="WIDTH: 70%" border="0" cellPadding="0" id="table1" align="center"> & vbcrlf&_
"<tr> & vbcrlf&_
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt"> & vbcrlf&_
"    <table style="WIDTH: 100%" border="0" cellPadding="0" width="100%" id="table2"> & vbcrlf&_
"        <tr> & vbcrlf&_
"            <td style="width: 228pt; padding: 0.75pt; background: #000099" bgColor="#000099" width="304"> & vbcrlf&_
"            <p align="center"><font size="5" color="#FFFFFF" face="Arial">
"            <span style="font-weight: 700">EMPRESA<br></span></font>
"            <font size="2" color="#FFFFFF"><span style="font-weight: 700">
"            <font face="Arial">Ind. e Com. Ltda.</font></p></span></font><p style="TEXT-ALIGN: center" align="center">
"            <span><b>
"            <font color="white" size="3" face="Arial">
"            Nota Fiscal Eletrônica Nacional</font></b></span><U5:P></U5:P></td>
"            <td style="padding: 0.75pt; background: #000099" bgColor="#000099">
"            <p style="TEXT-ALIGN: center" align="center">
"            <span><b>
"            <font color="white" size="2" face="Arial">
"            <span style="FONT-SIZE: 11pt">Nota fiscal eletrônica emitida e
"            autorizada.</span></font></b></span></p>
"            <p style="TEXT-ALIGN: center" align="center">
"            <span><font face="Arial" color="#FFFFFF">
"            Telefone para Suporte</font><font color="white" size="3" face="Arial"><span style="FONT-SIZE: 12pt" tyle="font-size: 10.0pt; line-height: 115%" s>:</span></font></span><br>                <span><font color="white" size="3" face="Arial">
"            <span style="FONT-SIZE: 12pt" tyle="font-size: 10.0pt; line-height: 115%" s>
"            (11 )0000-0000</span></font></span></td>
"        </tr>
"    </table> 
"    </td>
"</tr>
"<tr>
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
"    <p> </td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: #000099" bgColor="#000099">
"    <p align="center"><span style="font-weight: 700">
"    <font face="Arial" color="#FFFFFF">Dados da NFe</font></span></td>
"</tr>
"<tr>
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
"    <table style="WIDTH: 100%" border="0" cellPadding="0" width="100%" id="table4" height="79">
"        <tr>
"            <td style="width: 24%; padding: 0.75pt; background: silver" bgColor="silver" height="23">
"            <p><font face="Arial">Numero NFe:</font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver" width="42%" height="23">
"             </td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver" width="31%" height="23">     "            <font face="Arial">Série: </font></td>
"        </tr>
"        <tr>
"            <td style="width: 24%; padding: 0.75pt; background: silver" bgColor="silver">
"            <p><font face="Arial">Data de Emissão:</font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver" colspan="2">
"             </td>
"        </tr>
"        <tr>
"            <td style="width: 24%; padding: 0.75pt; background: silver" bgColor="silver">
"            <font face="Arial">Chave de Acesso:</font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver" colspan="2">
"             </td>
"        </tr>
"    </table>
"    <p> </td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: #000099" bgColor="#000099">
"    <p align="center"><span style="font-weight: 700">
"    <font face="Arial" color="#FFFFFF">Dados do Cliente</font></span></td>
"</tr>
"<tr>
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">     "    <table style="WIDTH: 100%" border="0" cellPadding="0" width="100%" id="table6">
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <p><font size="3" face="Arial">     "            <span style="FONT-SIZE: 12pt">Razão Social :</span></font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">
"             </td>
"        </tr>
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <p><font size="3" face="Arial">
"            <span style="FONT-SIZE: 12pt">CNPJ:</span></font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">
"             </td>
"        </tr>
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <font face="Arial">E-mail:</font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">     
"             </td>
"        </tr>
"    </table>
"    <p align="center"> </td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: #000099" bgColor="#000099">
"    <p align="center"><span style="font-weight: 700">
"    <font face="Arial" color="#FFFFFF">Dados do Transportador</font></span></td>
"</tr>
"<tr>     
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
"    <table style="WIDTH: 100%" border="0" cellPadding="0" width="100%" id="table7">     
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <p><font size="3" face="Arial">
"            <span style="FONT-SIZE: 12pt">Razão Social :</span></font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">     
"             </td>
"        </tr>
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <p><font size="3" face="Arial">
"            <span style="FONT-SIZE: 12pt">CNPJ:</span></font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">
"             </td>
"        </tr>
"        <tr>
"            <td style="width: 129px; padding: 0.75pt; background: silver" bgColor="silver">
"            <font face="Arial">E-mail:</font></td>
"            <td style="padding: 0.75pt; background: silver" bgColor="silver">
"             </td>
"        </tr>     
"    </table>
"    <p align="center"> </td>
"</tr>
"<tr>     
"    <td style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
"     </td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: silver" bgColor="silver">
"    <p><font size="3" face="Arial">
"    <span style="FONT-SIZE: 12pt"> </span></font></td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: silver" bgColor="silver">
"    <p style="TEXT-ALIGN: center" align="center"><em><i>
"    <font color="black" size="1" face="Arial">
"    <span style="FONT-FAMILY: Arial; COLOR: black; FONT-SIZE: 9pt">Guarde o
"    arquivo XML anexo a este e-mail em local seguro</span></font></i></em>
"    <br><font color="black" size="1" face="Arial"><span style="FONT-FAMILY: Arial; COLOR: black; FONT-SIZE: 9pt"><br>
"    <span><font face="Arial">Para verificar a autorização da
"    SEFAZ referente à nota acima mencionada, acesse: <b>https://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx?chaveAcesso=35120459280669000208550010000153171060084090</b></font></span></span></font></p>
"    <p style="TEXT-ALIGN: center" align="center">     
"    <font size="3" face="Arial"><span style="FONT-SIZE: 12pt"> </span></font></td>
"</tr>
"<tr>
"    <td style="padding: 0.75pt; background: silver" bgColor="silver">
"    <p align="center"><i>
"    <span style="font-size:9.0pt;font-family:Arial">Desenvolvido por Fulano
"    de Tal (Analista TI - EMPRESA)</span></i></td>     "</tr>
"</table>"

msg.Send

Set msg = Nothing %>

Obs.: A linha 148 é a linha:

"<br><br><table style="WIDTH: 70%" border="0" cellPadding="0" id="table1" align="center">

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!

Editado Junior Godoy sexta-feira, 27 de abril de 2012 11:06

Todas as Respostas

segunda-feira, 7 de maio de 2012 15:07

0
O problema é que está faltando (ou sobrando) aspas na sua instrução. E isso, do jeito que está, vai ser difícil mesmo de encontrar.

Vc pode tentar escapar o aspas através de chr, como abaixo:

teste="texto e "+chr(64)+"TEXTO ENTRE ASPAS"+chr(64)

Abs.
HJ
- Sugerido como Resposta hamiltonj terça-feira, 8 de maio de 2012 16:58
- Responder
- Citação
terça-feira, 8 de maio de 2012 10:27

0
Junior,

Ao menos no código acima quando você instancia a string do conteudo do msg.HTMLbody está sendo encerrada por várias vezes por causa da aspa.

tente utilizar ' ao invés de " para o conteudo das tags HTML, ou senão você pode usar aspas dupla na string, mas ao invés de escrever ...

" "texto entre aspas" ", você terá de escrever " ""texto entre aspas"" ".

para o segundo caso, segue um link no qual foi discutido o uso de aspas dupla em uma string.

http://social.msdn.microsoft.com/Forums/pt/aspnetpt/thread/faa21d49-f142-4aec-819e-27b8bd7909c8
- Sugerido como Resposta hamiltonj terça-feira, 8 de maio de 2012 16:58
- Responder
- Citação