<%@LANGUAGE="VBSCRIPT"%> <% Dim medicos Dim medicos_numRows Set medicos = Server.CreateObject("ADODB.Recordset") medicos.ActiveConnection = MM_CostaCnx_STRING medicos.Source = "SELECT * FROM especialidad ORDER BY especialidad" medicos.CursorType = 0 medicos.CursorLocation = 2 medicos.LockType = 1 medicos.Open() medicos_numRows = 0 %> <% Dim resul__espec resul__espec = "%" If (Request.QueryString("myespecialidad") <> "") Then resul__espec = Request.QueryString("myespecialidad") End If %> <% Dim resul Dim resul_numRows Set resul = Server.CreateObject("ADODB.Recordset") resul.ActiveConnection = MM_CostaCnx_STRING resul.Source = "SELECT DISTINCT medico, recepcion, especialidad FROM medico WHERE especialidad LIKE '" + Replace(resul__espec, "'", "''") + "' ORDER BY medico" resul.CursorType = 0 resul.CursorLocation = 2 resul.LockType = 1 resul.Open() resul_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 resul_numRows = resul_numRows + Repeat1__numRows %> LA COSTA | Centro Médico
Turno
Contactos
Msn
 
 
Búsqueda General:



 

 
Área de Laboratorio
Cuenta con una amplia sala de espera,  cinco salas de tomas de muestras, mayor cantidad de personal para satisfacer las demandas de pacientes en todos los horarios, mañana, tarde y noche. Los resultados se retiran en el lobby Bahía en fecha y horarios acordados.
Laboratorio
Laboratorio




Laboratorio
Laboratorio
 
<% medicos.Close() Set medicos = Nothing %> <% resul.Close() Set resul = Nothing %>