<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set conexao=server.createobject ("ADODB.Connection") conexao.Open MM_simuladoronline9_STRING %> <% Dim autenticar_logo__MMColParam autenticar_logo__MMColParam = "1" If (Request.QueryString("ID_Usuario") <> "") Then autenticar_logo__MMColParam = Request.QueryString("ID_Usuario") End If %> <% Dim autenticar_logo__corretora autenticar_logo__corretora = "1" If (Request.QueryString("ID_Cliente") <> "") Then autenticar_logo__corretora = Request.QueryString("ID_Cliente") End If %> <% set autenticar_logo = Server.CreateObject("ADODB.Recordset") autenticar_logo.ActiveConnection = conexao autenticar_logo.Source = "SELECT * FROM usuarios_adicionais, administrador WHERE ID_Usuario = " + Replace(autenticar_logo__MMColParam, "'", "''") + " AND ID_Cliente = " + Replace(autenticar_logo__corretora, "'", "''") + " AND ativo = 'S'" autenticar_logo.CursorType = 0 autenticar_logo.CursorLocation = 2 autenticar_logo.LockType = 3 autenticar_logo.Open() autenticar_logo_numRows = 0 %> <% Dim notas_pessoais__MMColParam notas_pessoais__MMColParam = "1" If (Request.QueryString("ID_Usuario") <> "") Then notas_pessoais__MMColParam = Request.QueryString("ID_Usuario") End If %> <% Dim notas_pessoais Dim notas_pessoais_numRows Set notas_pessoais = Server.CreateObject("ADODB.Recordset") notas_pessoais.ActiveConnection = conexao notas_pessoais.Source = "SELECT * FROM informacoes_pme WHERE ID_Cliente = " + Replace(notas_pessoais__MMColParam, "'", "''") + " AND ID_Operadora = 46" notas_pessoais.CursorType = 0 notas_pessoais.CursorLocation = 2 notas_pessoais.LockType = 1 notas_pessoais.Open() notas_pessoais_numRows = 0 %> <% Dim tabelas_promocoes__MMColParam tabelas_promocoes__MMColParam = "1" If (Request.QueryString("ID_Cliente") <> "") Then tabelas_promocoes__MMColParam = Request.QueryString("ID_Cliente") End If %> <% Dim tabelas_promocoes Dim tabelas_promocoes_cmd Dim tabelas_promocoes_numRows Set tabelas_promocoes_cmd = Server.CreateObject ("ADODB.Command") tabelas_promocoes_cmd.ActiveConnection = conexao tabelas_promocoes_cmd.CommandText = "SELECT * FROM tabelas_promocoes WHERE ID_Cliente = ?" tabelas_promocoes_cmd.Prepared = true tabelas_promocoes_cmd.Parameters.Append tabelas_promocoes_cmd.CreateParameter("param1", 5, 1, -1, tabelas_promocoes__MMColParam) ' adDouble Set tabelas_promocoes = tabelas_promocoes_cmd.Execute tabelas_promocoes_numRows = 0 %> <%=(autenticar_logo.Fields.Item("nome_corretora").Value)%> <% If Not topo_tabelas.EOF Or Not topo_tabelas.BOF Then %>
<% If Not tabelas_promocoes.EOF Or Not tabelas_promocoes.BOF Then %>
<%=(tabelas_promocoes.Fields.Item("descricao_juridica").Value)%>
<% End If ' end Not tabelas_promocoes.EOF Or NOT tabelas_promocoes.BOF %>
" border="0">
<%=(autenticar_logo.Fields.Item("site_corretora").Value)%>
(<%=(autenticar_logo.Fields.Item("ddd").Value)%>) <%=(autenticar_logo.Fields.Item("fone").Value)%> -<%=(autenticar_logo.Fields.Item("fone_2").Value)%>

<% End If ' end Not topo_tabelas.EOF Or NOT topo_tabelas.BOF %>
OMEGA SAÚDE PME - MAIO 2010 - Taxa de Inscrição R$ 15,00 por titular
FAIXA ETÁRIA
VALOR POR PESSOA
PLANO PESSOA JURÍDICA DE 3 A 49 USUÁRIOS (Preço mensal por usuário)
TABELA PROMOCIONAL  PME( Descontos de 15% nos primeiros 6 meses de vigencia)
PREENCHER PROPOSTA COM O VALOR SEM DESCONTO
BÁSICO - ENFERMARIA
ESPECIAL  - APARTAMENTO
Sem Desc.
C/ Desc. 10%
Sem Desc.
C/ Desc. 10%
Até 18 anos
98,82
84,00
143,28
121,79
19 até 23 anos
115,41
98,10
154,01
130,91
24 até 28 anos
128,23
109,00
178,66
151,87
29 até 33 anos
142,33
120,98
209,04
177,69
34 até 38 anos
157,98
134,29
244,59
207,91
39 até 43 anos
175,20
148,92
288,86
245,54
44 até 48 anos
241,94
205,65
350,98
298,34
49 até 53 anos
325,41
276,60
473,48
402,46
54 até 58 anos
439,32
373,43
639,21
543,33
59 anos ou mais
592,45
503,59
859,45
730,54

Última Alteração em 12/05/2010 <% notas_pessoais.Close() Set notas_pessoais = Nothing %> <% tabelas_promocoes.Close() Set tabelas_promocoes = Nothing %> <% autenticar_logo.Close() Set autenticar_logo = Nothing %> <% conexao.close set conexao=nothing %>