<%@codepage=65001 %> <%Response.Charset="UTF-8"%> Clínica Santa Isabel <% 'Get data to fill comboboxes cid = 0 cdescripcion = 1 SQLEsp = "select id, descripcion from especialidad order by descripcion" SQLUniv = "select id, universidad from universidad order by universidad" SQLTipo = "select id, descripcion from tipo_med order by descripcion" SQLDist = "select id, zip, distrito from distritos order by distrito" set rs_esp = conn.execute(SQLEsp) set rs_univ = conn.execute(SQLUniv) set rs_tipo = conn.execute(SQLTipo) set rs_dist = conn.execute(SQLDist) d_esp = rs_esp.getrows d_espn = ubound(d_esp,2) d_univ = rs_univ.getrows d_univn = ubound(d_univ,2) d_tipo = rs_tipo.getrows d_tipon = ubound(d_tipo,2) d_dist = rs_dist.getrows d_distn = ubound(d_dist,2) 'GET Data from medico i_medid = request.querystring("id") 'CONST cid = 0 cnombre = 1 cap_paterno = 2 cap_materno = 3 cf_ingreso = 4 cf_nacimiento = 5 cdni = 6 cruc = 7 cdireccion = 8 cdistrito = 9 cciudad = 10 ctelefono1 = 11 ctelefono2 = 12 cfax = 13 ccelular = 14 cemail = 15 ccmp = 16 crne = 17 cespecialidad = 18 cf_vrecertificacion = 19 cuni_pregrado = 20 cgrad_pregrado = 21 cuni_postgrado = 22 cgrad_postgrado = 23 creq_copiadni = 24 creq_cv = 25 creq_titulomed = 26 creq_tituloesp = 27 creq_copiacmp = 28 creq_recertificacion = 29 creq_pagoscmp = 30 creq_contrato = 31 ctipo_med = 32 chabil = 33 cobservaciones = 34 cusername = 35 cpassword = 36 cevaluacion = 37 cconsultorio = 38 SQL = "select medico.id, nombre, ap_paterno, ap_materno, f_ingreso, f_nacimiento, dni, ruc, direccion, distritos.distrito, ciudad, " SQL = SQL & "telefono1, telefono2, fax, celular, email, cmp, rne, especialidad.descripcion, f_vrecertificacion, " SQL = SQL & "uni_pregrado, grad_pregrado, uni_postgrado, grad_postgrado, req_copiadni, req_cv, req_titulomed, req_tituloesp, req_copiacmp, " SQL = SQL & "req_recertificacion, req_pagoscmp, req_contrato, tipo_med.descripcion, habil, observaciones, username, password, evaluacion, consultorio " SQL = SQL & "FROM medico, distritos, especialidad, tipo_med WHERE medico.distrito=distritos.id AND " SQL = SQL & "medico.especialidad=especialidad.id AND medico.tipo_med=tipo_med.id AND " SQL = SQL & "medico.id=" & i_medid set rs=conn.execute(SQL) data=rs.getrows conn.close %>
Equipo Médico y Técnico
DATOS
Apellido Paterno
<%=data(cap_paterno,0)%>
Apellido Materno
<%=data(cap_materno,0)%>
Nombre
<%=data(cnombre,0)%>
Especialidad
<%=data(cespecialidad,0)%>
CMP
<%=data(ccmp,0)%>
RNE
<%=data(crne,0)%>
verificar registro en el Colegio Médico