<% Opt1 = "" Opt2 = "" Opt3 = "" Opt4 = "" 'Variable que contiene los mensajes de errores del proceso sResultado="" if Request.QueryString("Pagina") <> "" then Pagina = Cint(Request.QueryString("Pagina")) else Pagina = 1 End if Sede = "1" If Request.form <> "" then Sede = Request.form("ddmSede") End if 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_ConsultarCalendario " & Sede & ";" Rs.Open var_aux,Conn Select Case Sede Case 1 Opt1 = "selected" Case 2 Opt2 = "selected" Case 3 Opt3 = "selected" Case 4 Opt4 = "selected" End Select %> I FESTIVAL OLIMPICO ECUATORIANO - Lo mejor de Ecuador

 
Sede: Consultar
<% If Rs.eof then%>

No hay Actividades ...


<%Else%> <% indice = 1 clase="class=Fondofila" Do While not Rs.eof %> <%If Rs("OtroDia") <> " " then%> <%Else%> <%End If%> <% Rs.Movenext if indice = 1 then indice = 0 clase = "" else indice = 1 clase="class=Fondofila" End If loop%>
Deporte Modal. Lugar Vi Sa Do Lu Ma Mi. Ju Vi Sa
13 14 15 16 17 18 19 20 21
>"><%=Rs("Deporte")%> ><%=Rs("Modalidad")%> ><%=Rs("Lugar")%> <%=Rs("OtroDia")%> class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >   class="Sombra"<%End If%> >  
<%End If Set Rs = Nothing Set Con = Nothing%>

|  Organización |  Calendario |  Noticias | 

© 2001 - Derechos Reservados Comité Olímpico Ecuatoriano
Diseño y Programación Javier Yépez Mora