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