SQL_CEQ = " select QUP.ORDEN, CL1.NOMBRE EQ_CASA, CL2.NOMBRE EQ_VISITA, (CASE WHEN QUP.RESULTADO_CASA > QUP.RESULTADO_VISITA THEN '1' WHEN QUP.RESULTADO_CASA < QUP.RESULTADO_VISITA THEN '2'  WHEN QUP.RESULTADO_CASA = QUP.RESULTADO_VISITA THEN 'X' WHEN ISNULL(RESULTADO_CASA, '') = '' THEN '' WHEN ISNULL(RESULTADO_VISITA, '') = '' THEN '' ELSE 'X' END) RESULTADO "

                                               SQL_CEQ = SQL_CEQ & " from QUINIELAS_PARTIDOS QUP, CLUBES CL1, CLUBES CL2, EQUIPOS EQ1, EQUIPOS EQ2 "

                                               SQL_CEQ = SQL_CEQ & " where (QUP.QUINIELA_CABECERA_ID = " & sQUINIELA_CABECERA_ID & ") "

                                               SQL_CEQ = SQL_CEQ & " and (QUP.ESTADO = 'A') "

                                               SQL_CEQ = SQL_CEQ & " and (QUP.EQUIPO_CASA = EQ1.EQUIPO_ID) "

                                               SQL_CEQ = SQL_CEQ & " and (EQ1.ESTADO = 'A') "

                                               SQL_CEQ = SQL_CEQ & " and (EQ1.CLUB_ID = CL1.CLUB_ID) "

                                               SQL_CEQ = SQL_CEQ & " and (CL1.ESTADO = 'A') "

                                               SQL_CEQ = SQL_CEQ & " and (QUP.EQUIPO_VISITA = EQ2.EQUIPO_ID) "

                                               SQL_CEQ = SQL_CEQ & " and (EQ2.ESTADO = 'A') "

                                               SQL_CEQ = SQL_CEQ & " and (EQ2.CLUB_ID = CL2.CLUB_ID) "

                                               SQL_CEQ = SQL_CEQ & " and (CL2.ESTADO = 'A') "

                                               SQL_CEQ = SQL_CEQ & " order by ORDEN asc "

 

                                               Set RST_CEQ = Server.CreateObject("ADODB.Recordset")

 

                                               RST_CEQ.ActiveConnection = CNX

                                               RST_CEQ.Source = SQL_CEQ

                                               RST_CEQ.CursorType = adOpenForwardOnly

                                               RST_CEQ.CursorLocation = adUseClient

                                               RST_CEQ.LockType = adLockReadOnly

                                               RST_CEQ.cachesize= 10

                                               RST_CEQ.Open