aspmail dando erro

[maurohpg 0]

Pessoal não estou entendendo o pq desse erro alguém tem uma luz???

 

Está dando erro na linha 74 que é essa:

 

message = ("Cliente (e-mail):....

 

Microsoft VBScript compilation error '800a03ee'

 

Expected ')'

 

/aspmail_orcamento.asp, line 74

 

<%response.buffer=trueSet mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1") enter = CHR(13) & CHR(10)'ENDERECO DE DESTINO DO EMAILrecipient = "webmaster@acanjadasemana.com.br"sender = Request.form("email")'CAMPO DE ASSUNTO DO EMAILsubject = "Consultoria - Orçamento"'CAMPOS DO FORMULARIO HTMCampo1 = Request.form("Nome")Campo2 = Request.form("Email")Campo3 = Request.form("Agencia")Campo4 = Request.form("Contato")Campo5 = Request.form("Titulo")Campo6 = Request.form("Servico")Campo7 = Request.form("Quantidade")Campo8 = Request.form("Entrega")Campo9 = Request.form("Formato_da_Capa")Campo10 = Request.form("Largura_da_Capa_(aberta)")Campo11 = Request.form("Altura_da_Capa_(aberta)")Campo12 = Request.form("Largura_da_capa_(fechada)")Campo13 = Request.form("Altura_da_capa_(fechada)")Campo14 = Request.form("Formato_do_miolo")Campo15 = Request.form("Largura_do_Miolo_(aberto)")Campo16 = Request.form("Altura_do_Miolo_(aberta)")Campo17 = Request.form("Largura_do_Miolo_(fechado)")Campo18 = Request.form("Altura_do_Miolo_(fechado)")Campo19 = Request.form("Cores_da_Capa_(altura)")Campo20 = Request.form("Cores_da_Capa_(largura)")Campo21 = Request.form("Cores_do_Miolo_(altura)")Campo22 = Request.form("Cores_do_Miolo_(largura)")Campo23 = Request.form("Papel_da_Capa")Campo24 = Request.form("Gramatura_do_Papel_da_Capa")Campo25 = Request.form("Papel_do_Miolo")Campo26 = Request.form("Gramatura_do_Papel_do_miolo")Campo27 = Request.form("Acabamento")Campo28 = Request.form("Papelao_Centimetro")Campo29 = Request.form("Empastar_area_centimetro")Campo30 = Request.form("Fita_DF_centimetro")Campo31 = Request.form("Espiral_centimetro")Campo32 = Request.form("Wire_o_centimetro")Campo33 = Request.form("Relevo_seco_centrimetro")Campo34 = Request.form("Hot_stamping_centimetro")Campo35 = Request.form("Verniz_UV_Capa")Campo36 = Request.form("Capa_do_Verniz_UV_(largura)")Campo37 = Request.form("Capa_do_Verniz_UV_(altura)")Campo38 = Request.form("Verniz_UV_Miolo")Campo39 = Request.form("Miolo_do_Verniz_UV_(largura)")Campo40 = Request.form("Miolo_do_Verniz_UV_(altura)")Campo41 = Request.form("Verniz_Maq_Fosco_capa")Campo42 = Request.form("Verniz_Maq_fosco_Miolo")Campo43 = Request.form("Verniz_Maq_brilho_Capa")Campo44 = Request.form("Verniz_Maq_brilho_Miolo")Campo45 = Request.form("Verniz_Calandra_Capa")Campo46 = Request.form("Verniz_Calandra_Miolo")Campo47 = Request.form("Plastificacao_da_Capa")Campo48 = Request.form("Plastificacao_do_Miolo")Campo49 = Request.form("BOPP_Capa")Campo50 = Request.form("BOPP_Miolo")Campo51 = Request.form("Pre_Impressao")Campo52 = Request.form("Conteudo_Prova")Campo53 = Request.form("Largura_Scaneamento_1")Campo54 = Request.form("Altura_Scaneamento_1")Campo55 = Request.form("Largura_Scaneamento_2")Campo56 = Request.form("Altura_Scaneamento_2")Campo57 = Request.form("Largura_Scaneamento_3")Campo58 = Request.form("Altura_Scaneamento_3")Campo59 = Request.form("Observacoes")'MONTAGEM DO CORPO DO EMAILmessage = ("Cliente (e-mail): " & Campo1 & enter & "Contato no cliente: " & Campo2 & enter & "Agência: " & Campo3 & enter & "Contato na Agência: " & Campo4 & enter & "Título do Job: " & Campo5 & enter & "Serviço: " & Campo6 & enter & "Quantidade " & Campo7 & enter & "Entrega em: " & Campo8 & enter & "Número de Páginas/Lâminas (Capa) " & Campo9 & enter & "Largura da Capa (Aberta) " & Campo10 & enter & "Altura da Capa (Aberta) " & Campo11 & enter & "Largura da Capa (Fechada): " & Campo12 & enter & "Altura da Capa (Fechada): " & Campo13 & enter & "Número de Páginas/Lâminas (Miolo) " & Campo14 & enter & "Largura do Miolo (Aberto) " Campo15 & enter & "Altura do Miolo (Aberta): " & Campo16 & enter & "Largura do Miolo (Fechado): " & Campo17 & enter & "Altura do Miolo (Fechado): " & Campo18 & enter & "Cores da Capa (Altura): " & Campo19 & enter & "Cores da Capa (Largura): " & Campo20 & enter "Cores do Miolo (Altura): " & Campo21 & enter & "Cores do Miolo (Largura): " & Campo22 & enter & "Tipo do Papel da Capa: " & Campo23 & enter & "Gramatura do Papel da Capa: " & Campo24 & enter & "Tipo do Papel do Miolo: " & Campo25 & enter & "Gramatura do Papel da Miolo: " & Campo26 & enter & "Acabamentos: " & Campo27 & enter & "Número do Centímetro do Papelão " & Campo28 & enter & "Empastar Área em cm: " & Campo29 & enter & "Fita Dupla Face em cm: " & Campo30 & enter & "Espiral em cm: " & Campo31 & enter & "Wire-o em cm: " & Campo32 & enter & "Relevo Seco em cm: " & Campo33 & enter & "Hot Stamping em cm: " & Campo34 & enter & "Verniz UV Capa: " & Campo35 & enter & "Verniz UV Capa (Largura): " & Campo36 & enter & "Verniz UV Capa (Altura): " & Campo37 & enter & "Verniz UV Miolo: " & Campo38 & enter & "Verniz UV Miolo (Largura): " & Campo39 & enter & "Verniz UV Miolo (Altura): " & Campo40 & enter & "Verniz de Máquina Fosco Capa: " & Campo41 & enter & "Verniz de Máquina Fosco Miolo: " & Campo42 & enter & "Verniz de Máquina Brilho Capa: " & Campo43 & enter & "Verniz de Máquina Brilho Miolo: " & Campo44 & enter & "Verniz Calandra Capa: " & Campo45 & enter & "Verniz Calandra Miolo: " & Campo46 & enter & "Plastificação da Capa: " & Campo47 & enter & "Plastificação do Miolo: " & Campo48 & enter"BOPP Capa: " & Campo49 & enter & "BOPP Miolo: " & Campo50 & enter & "Pré-Impressão: " & Campo51 & enter & "Conteúdo da Prova: " & Campo52 & enter & "Largura do Scaneamento1: " & Campo53 & enter & "Altura do Scaneamento1 " & Campo54 & enter & "Largura do Scaneamento2: " & Campo55 & enter & "Altura do Scaneamento2: " & Campo56 & enter & "Largura do Scaneamento3 " & Campo57 & enter & "Altura do Scaneamento3 " & Campo58 & enter & "Observações " & Campo59 & enter )'SERVIDOR DE EMAILmailserver = "smtp.acanjadasemana.com.br"result = mailer.SendMail(mailserver, recipient, sender, subject, message)If  "" = result ThenSet mailer = nothing'PAGINA DE CONFIRMACAO DE ENVIO DE EMAILresponse.redirect "http://www.acanjadasemana.com.br/site/anuncie_thanks.htm"Else'MENSAGEM DE ERRO CASO NÃO TENHA PREENCHIDO O CAMPO DE EMAIL CORRETAMENTEResponse.write "Seu E-mail não foi enviado, a mensagem de erro é:" & resultend If%>

[jrcardozo 4]

bom, eu tive que facilitar minha vida e aconselho você fazer isso tb.....olhe como montei o código da mensagem.....encontrie três erros no seu código, apenas faltando a concatenação &. Particularmente acho que é mais fácil de achar o erro da maneira que vou postar...faz o teste e vê se continua

 

 

 

 

 

message = "Cliente (e-mail): " & Campo1 & enter & "Contato no cliente: " message = message & Campo2 & enter & "Agência: " & Campo3 & enter & "Contato na Agência: " & Campo4 & enter message = message & "Título do Job: " & Campo5 & enter & "Serviço: " & Campo6 & enter & "Quantidade " & Campo7 & enter message = message & "Entrega em: " & Campo8 & enter & "Número de Páginas/Lâminas (Capa) " & Campo9 & enter message = message & "Largura da Capa (Aberta) " & Campo10 & enter & "Altura da Capa (Aberta) " & Campo11 & entermessage = message & "Largura da Capa (Fechada): " & Campo12 & enter & "Altura da Capa (Fechada): " & Campo13 & enter message = message & "Número de Páginas/Lâminas (Miolo) " & Campo14 & enter & "Largura do Miolo (Aberto) " & Campo15 & enter message = message & "Altura do Miolo (Aberta): " & Campo16 & enter & "Largura do Miolo (Fechado): " & Campo17 & entermessage = message & "Altura do Miolo (Fechado): " & Campo18 & enter & "Cores da Capa (Altura): " & Campo19 & entermessage = message & "Cores da Capa (Largura): " & Campo20 & enter & "Cores do Miolo (Altura): " & Campo21 & enter message = message & "Cores do Miolo (Largura): " & Campo22 & enter & "Tipo do Papel da Capa: " & Campo23 & entermessage = message & "Gramatura do Papel da Capa: " & Campo24 & enter & "Tipo do Papel do Miolo: " & Campo25 & entermessage = message & "Gramatura do Papel da Miolo: " & Campo26 & enter & "Acabamentos: " & Campo27 & enter message = message & "Número do Centímetro do Papelão " & Campo28 & enter & "Empastar Área em cm: " & Campo29 & entermessage = message & "Fita Dupla Face em cm: " & Campo30 & enter & "Espiral em cm: " & Campo31 & enter message = message & "Wire-o em cm: " & Campo32 & enter & "Relevo Seco em cm: " & Campo33 & entermessage = message & "Hot Stamping em cm: " & Campo34 & enter & "Verniz UV Capa: " & Campo35 & entermessage = message & "Verniz UV Capa (Largura): " & Campo36 & enter & "Verniz UV Capa (Altura): " & Campo37 & entermessage = message & "Verniz UV Miolo: " & Campo38 & enter & "Verniz UV Miolo (Largura): " & Campo39 & entermessage = message & "Verniz UV Miolo (Altura): " & Campo40 & enter & "Verniz de Máquina Fosco Capa: " & Campo41 & entermessage = message & "Verniz de Máquina Fosco Miolo: " & Campo42 & enter & "Verniz de Máquina Brilho Capa: " & Campo43 & enter message = message & "Verniz de Máquina Brilho Miolo: " & Campo44 & enter & "Verniz Calandra Capa: " & Campo45 & enter message = message & "Verniz Calandra Miolo: " & Campo46 & enter & "Plastificação da Capa: " & Campo47 & entermessage = message & "Plastificação do Miolo: " & Campo48 & enter & "BOPP Capa: " & Campo49 & entermessage = message & "BOPP Miolo: " & Campo50 & enter & "Pré-Impressão: " & Campo51 & entermessage = message & "Conteúdo da Prova: " & Campo52 & enter & "Largura do Scaneamento1: " & Campo53 & entermessage = message & "Altura do Scaneamento1 " & Campo54 & enter & "Largura do Scaneamento2: " & Campo55 & entermessage = message & "Altura do Scaneamento2: " & Campo56 & enter & "Largura do Scaneamento3 " & Campo57 & entermessage = message & "Altura do Scaneamento3 " & Campo58 & enter & "Observações " & Campo59 & enter

[maurohpg 0]

Valeuuu! Essa maneira é muito mais fácil mesmo, ontem penei para descobrir que estava faltando um & no campo 15. Da proxima faço dessa maneira que facilita muito...Valeuuuu