<%@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_fisica WHERE ID_Cliente = " + Replace(notas_pessoais__MMColParam, "'", "''") + " AND ID_Operadora = 14" 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 %> <% Dim amil_3_25 Dim amil_3_25_cmd Dim amil_3_25_numRows Set amil_3_25_cmd = Server.CreateObject ("ADODB.Command") amil_3_25_cmd.ActiveConnection = conexao amil_3_25_cmd.CommandText = "SELECT * FROM amil_3_29" amil_3_25_cmd.Prepared = true Set amil_3_25 = amil_3_25_cmd.Execute amil_3_25_numRows = 0 %> <% Dim amil_26_49 Dim amil_26_49_numRows Set amil_26_49 = Server.CreateObject("ADODB.Recordset") amil_26_49.ActiveConnection = conexao amil_26_49.Source = "SELECT * FROM amil_30_99" amil_26_49.CursorType = 0 amil_26_49.CursorLocation = 2 amil_26_49.LockType = 1 amil_26_49.Open() amil_26_49_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 %>
">
<%=(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 %>
AMIL PME - NOVEMBRO de 2010 - Taxa de Inscrição R$ 50,00 por contrato
TABELA DE 03 A 29 Vidas/Beneficiários
Planos
AMIL Blue I
AMIL Blue II
AMIL Blue III
AMIL Blue IV
AMIL 140
AMIL 150
Acomodação
Enfer.
Apto.
Apto.
Apto.
Apto.
Apto.
00 a 18
95,89
109,23
120,52
137,14
160,29
201,85
19 a 23
130,41
148,55
163,91
186,51
217,99
274,52
24 a 28
143,45
163,41
180,30
205,16
239,79
301,97
29 a 33
157,80
179,75
198,33
225,68
263,77
332,16
34 a 38
157,80
179,75
198,33
225,68
263,77
332,16
39 a 43
165,69
188,74
208,24
236,96
276,96
348,77
44 a 48
235,27
268,01
295,71
336,49
393,29
495,26
49 a 53
305,86
348,41
384,42
437,43
511,27
643,83
54 a 58
305,86
348,41
384,42
437,43
511,27
643,83
59 ou mais
Idades superior a 58 anos, esta tabela não pode ser utilizada, solicitar cotação

TABELA DE 30 a 99 Vidas/Beneficiários
Planos
AMIL Blue I
AMIL Blue II
AMIL Blue III
AMIL Blue IV
AMIL 140
AMIL 150
Acomodação
Enfer.
Apto.
Apto.
Apto.
Apto.
Apto.
00 a 18
88,22
100,49
110,88
126,17
147,47
185,70
19 a 23
119,98
136,67
150,80
171,59
200,56
252,55
24 a 28
131,98
150,33
165,88
188,75
220,62
277,81
29 a 33
145,17
165,37
182,46
207,63
242,68
305,59
34 a 38
145,17
165,37
182,46
207,63
242,68
305,59
39 a 43
152,43
173,63
191,59
218,01
254,81
320,87
44 a 48
216,46
246,56
272,05
309,57
361,83
455,63
49 a 53
281,39
320,53
353,67
402,44
470,38
592,32
54 a 58
281,39
320,53
353,67
402,44
470,38
592,32
59 ou mais
529,32
602,94
665,28
757,02
884,82
1114,20

 


Última Alteração em 08/10/2010 <% amil_3_25.Close() Set amil_3_25 = Nothing %> <% amil_26_49.Close() Set amil_26_49 = Nothing %> <% 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 %>