<% Codigo = Cint(Request.QueryString("Codigo")) If Codigo>0 then Proceso="Consultar" Else Proceso="Listar" End If %> I FESTIVAL OLIMPICO ECUATORIANO - Lo mejor de Ecuador

<%If Proceso="Consultar" 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_ConsultarNoticia " & Codigo & ";" Rs.Open var_aux,Conn If Rs.eof then%>

No se encontron registro...


<%Else%> <%End If Set Rs = Nothing Set Con = Nothing%>
<%=MonthName(Month(Rs("Fecha")),true) & " - " & Day(Rs("Fecha")) & " de " & Year(Rs("Fecha"))%>


 <% If Proceso="Consultar" then %> Regresar <%End If%>
<%=Rs("Titulo")%>

<%If Len(Rs("Imagen")) > 0 then %> .jpg" align="left" vspace="5" hspace="5" > <%End If %> <%=Rs("Texto1")%>

<%=Rs("Texto2")%>

<%=Rs("Texto3")%>
<%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_ListarNoticias;" Rs.Open var_aux,Conn If Rs.eof then%>

No se encontraron registros...


<%Else Salir = True indice = 1 Do While not Rs.eof and Salir if indice < 6 then%> <%Else If Indice = 6 then%> <% End If%> <% End If Rs.Movenext indice = indice + 1 if indice <= 30 then Salir = True Else Salir = False End if loop End If Set Rs = Nothing Set Con = Nothing%>
<%=MonthName(Month(Rs("Fecha")),true) & "," & Day(Rs("Fecha")) & " de " & Year(Rs("Fecha"))%>
<% If Rs("Texto2") <> "" and Rs("Texto2") <> " " then %> ">mas información   <% End If %> " class="EnlacesNoticias"><%=Rs("Titulo")%>

<%If Len(Rs("Imagen")) > 0 then %> _1.jpg" align="left" vspace="5" hspace="5" > <%End If %> <%=Rs("Texto1")%>

Noticias Anteriores
<%=MonthName(Month(Rs("Fecha")),true) & "," & Day(Rs("Fecha")) & " de " & Year(Rs("Fecha"))%>   " class="EnlacesGris"><%=Rs("Titulo")%>
<%end if%>
Resultados
Medallero x Provincias
Galeria de Fotos


|  Organización |  Calendario |  Noticias | 

Diseño y Programación Javier Yépez Mora