<%@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 = 50" 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 %>
medicol
 <% 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 %>
" alt="logo_corretora" 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 %>
MEDICOL PME A PARTIR DE 3 VIDAS - NOVEMBRO 2010 - TAXA DE INSCRIÇÃO : R$ 30,00 por Contrato
PLANO
PLENO 420 E
PLENO 420 A
MASTER 620 E
MASTER 620 A
Enfermaria
Apartamento
Enfermaria
Apartamento
Faixa Etária
03 a 49 vidas
50 a 99 vidas
03 a 49 vidas
50 a 99 vidas
03 a 49 vidas
50 a 99 vidas
03 a 49 vidas
50 a 99 vidas
00 a 18 anos
38,34
36,42
47,92
45,93
42,00
39,90
52,50
49,87
19 a 23 anos
57,20
54,34
71,50
67,92
62,65
59,52
78,31
74,40
24 a 28 anos
59,33
56,36
74,16
70,45
64,98
61,73
81,22
77,16
29 a 33 anos
61,67
58,59
77,09
73,23
67,55
64,17
84,44
80,21
34 a 38 anos
65,44
62,17
81,80
77,71
71,66
68,08
89,57
85,10
39 a 43 anos
65,44
62,17
81,80
77,71
71,66
68,08
89,57
85,10
44 a 48 anos
77,60
73,72
97,00
92,15
85,00
80,75
106,25
100,94
49 a 53 anos
100,43
95,41
125,54
119,26
110,00
104,50
137,50
130,62
54 a 58 anos
224,83
213,59
281,03
266,98
246,25
233,94
307,81
292,42
acima de 59
230,08
218,58
287,60
273,22
252,00
239,40
315,00
299,25

Última Alteração em 02/11/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 %>