I FESTIVAL OLIMPICO ECUATORIANO - Lo mejor de Ecuador

<% Dim Conn, Rs, Cm, strConn Dim sRresultado, Dia, Fecha sResultado="" Dia = 0 checked1="" checked2="" Diahoy = day(now()) if len(Diahoy) = 1 then Diahoy = "0" & Diahoy End If Fechahoy = Diahoy & "/" & "12/2002" Dia = Diahoy If Request.form <> "" then Seleccion = Request.form("rdobutton") Deporte = Request.form("DdmDeporte") Nombre = Request.form("TxtNombre") Seleccion = Request.form("RdoConsulta") Dia = Request.form("txtDia") If not Isnumeric(Dia) then Dia = 0 End If if len(Dia) = 1 then Dia = "0" & Dia End If Fecha = Dia & "/" & "12/2002" Select Case Seleccion Case 1 checked1 = "checked" Case 2 checked2 = "checked" End Select If Seleccion = 1 then If Deporte = 0 then If Dia = 0 then Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ConsultaResultados " & "'" & Fechahoy & "';" Rs.Open var_aux,Conn Else Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ConsultaResultados " & "'" & Fecha & "';" Rs.Open var_aux,Conn End If Else If Dia = 0 then Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ResultadosDeporte " & Deporte & ";" Rs.Open var_aux,Conn Else Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ResultadosDeporteFecha " & Deporte & ",'" & Fecha & "';" Rs.Open var_aux,Conn End If End If Else Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ResultadosDeportistas " & "'" & Nombre & "';" Rs.Open var_aux,Conn End If Else checked1 = "checked" Set Conn = Server.CreateObject("Adodb.Connection") Set Rs = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec FOE_ConsultaResultados " & "'" & Fechahoy & "';" Rs.Open var_aux,Conn End If %> I FESTIVAL OLIMPICO ECUATORIANO - Lo mejor de Ecuador

<% Set Conn = Server.CreateObject("Adodb.Connection") Set Rs2 = Server.CreateObject("Adodb.Recordset") strConn = "dsn=coe; UID=coe; PWD=coe" Conn.Open strConn var_aux = "exec sprocConsultarDeportes; " Rs2.Open var_aux,Conn %>

onclick="HabilitaCampoDeporte();"> Por Deporte	Deporte:		Fecha:	DIC 2002
onClick="HabilitaCampoDeportista();"> Por Deportista	Deportista:

<% If not Rs.eof then ind = 1 do while not (rs.eof) if ind= 1 then Color = "bgcolor='#E8E8E8'" ind = 0 else Color = "" ind = 1 End If %> <%If Rs("RES_MEDALLA")= 0 then %> <%End If%> <%If Rs("RES_MEDALLA")= 1 then %> <%End If%> <%If Rs("RES_MEDALLA")= 2 then %> <%End If%> <%If Rs("RES_MEDALLA")= 3 then %> <%End If%> <% rs.movenext loop End If rs.close Set Rs = nothing conn.close Set conn = nothing%>

Fecha	Deporte	Deportista	Evento	Marca	Posición	Med.	mas...
class="Texto" valign="top" align="left"><%=Ucase(MonthName(Month(Rs("RES_FECHA")),true)) & "-" & Day(Rs("RES_FECHA"))%>	class="Texto" valign="top" ><%=Ucase(Rs("DPT_DESCRIPCION"))%>	class="Texto" valign="top" ><%=Rs("RES_APELLIDO") & " " & Rs("RES_NOMBRE")%>	class="Texto" valign="top" ><%=Rs("RES_EVENTO")%>	class="Texto" valign="top" ><%=Rs("RES_MARCA")%>	class="Texto" valign="top" ><%=Rs("RES_POSICION")%>	class="Texto" valign="center" >	class="Texto" align="center" valign="center" >	class="Texto" align="center" valign="center" >	class="Texto" align="center" valign="center" >	class="Texto" align="center" valign="center" > <%if Rs("RES_OBSERVACION")<> "" then%> ','winFESTIVAL','scrollbars=no,top=30,Left=100,width=500,height=400,directories=no');"><%End If%>

| Organización | Calendario | Noticias |