Comunicação Empresarial on Line

<% if email = "" then email = request.Form("email") end if if email <> "" then %> <% Set cadastro = Server.CreateObject("ADODB.Recordset") set cadastro.ActiveConnection = conectar cadastro.open "SELECT * FROM emails WHERE email = '"&email&"'" if cadastro.EOF then cadastro.close set cadastro = nothing conectar.close set conectar= nothing erro_email = 1 email = "" else r = cadastro("registro") nome = cadastro("nome") email = cadastro("email") comu_estr = cadastro("comu_estr") comu_saud = cadastro("comu_saud") agri_meio = cadastro("agri_meio") cien_comu = cadastro("cien_comu") cadastro.close set cadastro = nothing conectar.close set conectar= nothing end if end if %> Comunicação Empresarial on Line - Newsletter

<% if email = "" then if erro_email <> "" then%>

Atenção o e-mail informado não consta em nosso cadastro por favor verifique sua digitação e tente novamente, ou se preferir escreva para comtexto@comtexto.com.br

<% end if %>

Por favor informe o e-mail utilizado no cadastro.

<% else %>

<% if cadastrado = "s" then%>

Você já é nosso assinante, por favor confira abaixo seus dados e se necessário modifique sua assinatura.

<% else %>

Para alterar sua assinatura basta modificar os dados abaixo e clicar no botão.
Se desejar cancelar todas as suas assinaturas basta desmarcar os campos ao lado dos títulos das news.

<% end if %>

Nome:
E-mail:	ATENÇÃO: informe apenas 01 endereço de e-mail

	Marque abaixo as newsletters de seu interesse:
<%= "checked"%><%end if%>>	Comunicação & Estratégia - tem como objetivo trazer informações sobre aspectos relevantes da Comunicação Empresarial, com ênfase na realidade brasileira.
<%= "checked"%><%end if%>>	Comunicação & Saúde - visa promover a circulação de informações sobre a área, com notícias, opiniões, sugestões de leituras, fontes el links etc.
<%= "checked"%><%end if%>>	Agribusiness & Meio Ambiente - tem como objetivo trazer informações sobre a temática ambiental e do agronegócio, com ênfase na realidade brasileira.
<%= "checked"%><%end if%>>	Ciência & Comunicação - tem como objetivo trazer informações sobre aspectos relevantes do sistema de produção e divulgação da ciência e da tecnologia, com ênfase na realidade brasileira.

<% end if %>