caracter

carlaregina · Fevereiro 7, 2007

Olá,

Estou tentando fazer com que aumente a quantidade de caracter.Visivelmente no site está ok!Mas quando tento fazer com q a notificação por e-mail tb aceite a quantidade de caracteres feita pelo site...e para minha surpresa só aceita 200 caracteres sendo que preciso que apareça até 1000.... :mellow:

Abaixo deixei o código...se alguém puder me ajudar eu agradeço... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

bjus

<%

Dim Conexao

Call Abre_Conexao

CRM = Request.QueryString("codigo_crm")

Lancamento = Request.QueryString("codigo_lancamento")

Laboratorio = Request.QueryString("codigo_laboratorio")

SQL = "Select a.codigo_crm, a.nome_medico, a.endereco, a.numero, a.complemento, a.nome_secretaria, "

SQL = SQL & " a.cep, a.telefone, a.bairro, a.cidade, a.estado, a.fax, a.email, b.codigo_area_temp, "

SQL = SQL & " a.ddd_telefone, b.comentario, b.data_visita, d.nome, e.nome_setor "

SQL = SQL & " FROM MEDICO_CADASTRO a, PROJETO_LANCAMENTOS b, CICLO_VENDEDOR_SETOR c, "

SQL = SQL & " PROJETO_MEMBROS d, PROJETO_SETORES_VENDAS e "

SQL = SQL & " WHERE a.codigo_crm = b.codigo_medico "

SQL = SQL & " AND b.codigo_lancamento =" & lancamento

SQL = SQL & " AND a.codigo_setor = c.codigo_setor "

SQL = SQL & " AND c.codigo_funcionario = d.codigo_funcionario "

SQL = SQL & " AND c.codigo_setor = e.codigo_setor "

SQL = SQL & " AND d.ativado = 'sim' "

SQL = SQL & " GROUP BY a.codigo_crm, a.nome_medico, a.endereco, a.numero, a.complemento, "

SQL = SQL & " a.cep, a.telefone, a.bairro, a.cidade, a.estado, a.fax, a.email, a.nome_secretaria,"

SQL = SQL & " b.comentario, b.data_visita, d.nome, e.nome_setor, a.ddd_telefone, b.codigo_area_temp; "

Set TAB_SQL = Conexao.Execute(SQL)

SQL_EMAIL = " SELECT email, nome_destinatario "

SQL_EMAIL = SQL_EMAIL & " FROM EMAIL_OCORRENCIAS "

SQL_EMAIL = SQL_EMAIL & " WHERE codigo_regiao = " & Session("codigo_regiao") & " "

SQL_EMAIL = SQL_EMAIL & " AND codigo_setor = " & Session("codigo_setor") & " "

SQL_EMAIL = SQL_EMAIL & " AND codigo_laboratorio = " & Laboratorio & ";"

Set TAB_EMAIL = Conexao.Execute(SQL_EMAIL)

If TAB_SQL.EOF OR TAB_EMAIL.EOF Then

varDe = "MERCATTO"

varPara = "carla@mercattoservicos.com.br"

varAssunto = "ERRO NA OCORRENCIA DO PROPAGANDISTA"

inicial = "Este é um e-mail automático gerado pelo sistema Mercatto-DASA."

inicial = inicial & "Por favor não responda Existe uma ocorrência relatada pelo SISTEMA"

inicial = inicial & " O SISTEMA NÃO CONSEGUIU LOCALIZAR O REGISTRO DA OCORRENCIA "

inicial = inicial & " LANCAMENTO Nº " & Lancamento

inicial = inicial & "<blink>"

inicial = inicial & " Verificar com Urgencia "

inicial = inicial & " </blink>"

Else

varDe = "MERCATTO"

varPara = "cpd@mercattoservicos.com.br"

' Do While NOT TAB_EMAIL.EOF

' varPara = varPara & "; " & TAB_EMAIL("email")

' TAB_EMAIL.MoveNext

' Loop

TAB_EMAIL.MoveFirst

varAssunto = "OCORRENCIA NO SETOR " & TAB_SQL("nome_setor") & " - " & TAB_SQL("data_visita") & "."

inicial = ""

While Not TAB_EMAIL.EOF

inicial = inicial & TAB_EMAIL("nome_destinatario") & " "

TAB_EMAIL.MoveNext

Wend

inicial = inicial &""

inicial = inicial & "ESTE É UM E-MAIL AUTOMÁTICO GERADO PELO SISTEMA MERCATTO/DASA. POR FAVOR NÃO RESPONDA."

inicial = inicial & " "

inicial = inicial & ""

inicial = inicial & " Favor analisar ocorrência abaixo relatada pelo propagandista " & TAB_SQL("nome")

inicial = inicial & " do setor " & TAB_SQL("nome_setor") & "."

inicial = inicial & " "

inicial = inicial & " Dados do Médico: "

inicial = inicial & " "

inicial = inicial & " <Table border = '0' width = '100%' bgcolor = '#E1E1E1'>"

inicial = inicial & "<tr><td width = '10%' bgcolor = '#E9E9E6'>"

inicial = inicial & " Nome: "

inicial = inicial & " </td><td width = '55%' bgcolor = '#F8F9F1'>"

inicial = inicial & TAB_SQL("nome_medico")

inicial = inicial & " </td><td width = '5%' bgcolor = '#E9E9E6' > "

inicial = inicial & " CRM:"

inicial = inicial & " </td><td width = '30%' bgcolor = '#F8F9F1'> "

inicial = inicial & TAB_SQL("codigo_crm")

inicial = inicial & " </td></tr> "

inicial = inicial & " <tr><td bgcolor = '#E9E9E6'> "

inicial = inicial & " Endereco: "