<%
'inicializa la aplicación
Response.Expires=-1
Response.ExpiresAbsolute = now()-1
Response.Buffer=true
n_poliza=Trim(Request.QueryString("n_poliza"))
bandera=Request.QueryString("bandera")
auto_admin=Trim(Request.QueryString("auto_admin"))
msg=Request.QueryString("msg")
if bandera <> "" then
session("ban") = true
if msg = 1 then response.write "
* No se puden dar de alta los mismos Datos
"
end if
%>
Alta de Vida
<%
call Count_SC(21,8,1,1,0)
dia_alta = day(date)
mes_al = month(date)
ano_alta = Year(date)
Select Case mes_al
Case 1 : mes_alta = "Enero"
Case 2 : mes_alta = "Febrero"
Case 3 : mes_alta = "Marzo"
Case 4 : mes_alta = "Abril"
Case 5 : mes_alta = "Mayo"
Case 6 : mes_alta = "Junio"
Case 7 : mes_alta = "Julio"
Case 8 : mes_alta = "Agosto"
Case 9 : mes_alta = "Septiembre"
Case 10: mes_alta = "Octubre"
Case 11: mes_alta = "Noviembre"
Case 12: mes_alta = "Diciembre"
End Select
f_movimiento=Trim(dia_alta &"/"& mes_al &"/"& ano_alta)
qry="select distinct n_poliza, tpo_personal, cobertura from ctr_consulta where n_ramo = 10 and n_contra = '" & session("n_contra") & "'"
Set rs=conn.execute(qry)
if rs.eof then
response.write "
NO SE ENCONTRO NINGUNA POLIZA RELACIONADA AL USUARIO