%@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 %>