%@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
|
|
| |
|
| |
| Centro de Rehabilitación y Fisioterapia |
 |
|
El Centro de Rehabilitación y Fisioterapia La Costa, cuenta con 10 boxes equipados y asistidos por capacitados fisioterapeutas.
Contamos también con un Gimnasio de Rehabilitación para los pacientes que se encuentran en la fase final del tratamiento. |
|
|
|
| |
|
|
|
|
|
<%
medicos.Close()
Set medicos = Nothing
%>
<%
resul.Close()
Set resul = Nothing
%>