<%dim a(1014), b(1014),c(1014),d(1014),e(1014),f(1014),g(1014),h(1014),k(28),j(28) fpa = Server.MapPath("a.txt") Set fsa = CreateObject("Scripting.FileSystemObject") Set aa = fsa.OpenTextFile(fpa) for i=0 to 1014 a(i) = Cstr(aa.ReadLine) next aa.close fpb = Server.MapPath("b.txt") Set fsb = CreateObject("Scripting.FileSystemObject") Set ab = fsb.OpenTextFile(fpb) for i=0 to 1014 b(i) = Cstr(ab.ReadLine) next ab.close fpc = Server.MapPath("c.txt") Set fsc = CreateObject("Scripting.FileSystemObject") Set ac = fsc.OpenTextFile(fpc) for i=0 to 1014 c(i) = Cstr(ac.ReadLine) next ac.close fpd = Server.MapPath("d.txt") Set fsd = CreateObject("Scripting.FileSystemObject") Set ad = fsd.OpenTextFile(fpd) for i=0 to 1014 d(i) = Cstr(ad.ReadLine) next ad.close fpe = Server.MapPath("e.txt") Set fse = CreateObject("Scripting.FileSystemObject") Set ae = fse.OpenTextFile(fpe) for i=0 to 1014 e(i) = Cstr(ae.ReadLine) next ae.close fpf = Server.MapPath("f.txt") Set fsf = CreateObject("Scripting.FileSystemObject") Set af = fsf.OpenTextFile(fpf) for i=0 to 1014 f(i) = Cstr(af.ReadLine) next af.close fpg = Server.MapPath("g.txt") Set fsg = CreateObject("Scripting.FileSystemObject") Set ag = fsg.OpenTextFile(fpg) for i=0 to 1014 g(i) = Cstr(ag.ReadLine) next ag.close fph = Server.MapPath("h.txt") Set fsh = CreateObject("Scripting.FileSystemObject") Set ah = fsh.OpenTextFile(fph) for i=0 to 1014 h(i) = Cstr(ah.ReadLine) next ah.close fpj = Server.MapPath("j.txt") Set fsj = CreateObject("Scripting.FileSystemObject") Set aj = fsj.OpenTextFile(fpj) for i=1 to 28 j(i) = Cstr(aj.ReadLine) next aj.close fpk = Server.MapPath("enc.txt") Set fsk = CreateObject("Scripting.FileSystemObject") Set ak = fsk.OpenTextFile(fpk) for i=0 to 28 k(i) = Cstr(ak.ReadLine) next ak.close %>

MEDALLAS POR PAÍSES EN LOS JUEGOS OLÍMPICOS Seleccione la edición de los Juegos Olímpicos o el país JUEGOS I II III IV V VI VII VIII IX X XI XII XIII XIV XV XVI XVII XVIII XIX XX XXI XXII XXIII XXIV XXV XXVI XXVII XXVIII PAIS Alemania Antillas Holandesas Arabia Saudita Argelia Argentina Armenia Armenia Australasia Australia Austria Azerbaijan Bahamas Belarús Bélgica Bermuda Bohemia Brasil British West Indies Bulgaria Burundi Camerún Canadá Checoslovaquia Chile China Colombia Costa de Marfil Costa Rica Croacia Cuba Dinamarca Djibouti Ecuador Egipto Emiratos Árabes Unidos Equipo mixto Eritrea España Estados Unidos Estonia Etiopía EUN Filipinas Finlandia Francia Georgia Ghana Gran Bretaña Grecia Guyana Haití Holanda Hong Kong Hungría India Indonesia IOP Irán Iraq Irlanda Islandia Islas Vírgenes Israel Italia Jamaica Japón Kazajastán Kenya Kirguistán Korea Kuwait Líbano Lituania Luxemburgo Macedonia Malasia Marruecos México Moldova Moldovia Mongolia Mozambique Namibia Níger Nigeria Noruega Nueva Zelanda Pakistán Panamá Perú Polonia Portugal Puerto Rico Qatar RDA Rep. Checa República Dominicana RFA RPDC Rumania Rusia Senegal Serbia y Montenegro Singapur Siria Slovakia Slovenia Sri Lanka Sudáfrica Suecia Suiza Suriname Tailandia Taipei de China Tanzania Tonga Trinidad y Tobago Túnez Turquía Ucrania Uganda Unión Soviética Uruguay Uzbekistán Venezuela Viet Nam Yugoslavia Zambia Zimbabwe TOTALES

<% np=Request.QueryString("d2") nu=Request.QueryString("d1") if NOT nu=0 then %> <% end if if NOT nu=0 then %> <% for i=1 to 1014 if a(i)=j(nu) then %> <% end if next else if NOT np="PAIS" then %> <% for i=1 to 1014 if c(i)=np then %> <%end if next end if end if %> <% if np=Cstr("TOTALES") then %> <% end if %> <% response.write(k(nu)) %> <%response.write(a(0))%>  <%response.write(b(0))%>  <%response.write(c(0))%>  <%response.write(d(0))%>  <%response.write(e(0))%>  <%response.write(f(0))%>  <%response.write(g(0))%>  <%response.write(h(0))%>  <%response.write(a(i))%>  <%response.write(b(i))%>  <%response.write(c(i))%>  <%response.write(d(i))%>  <%response.write(e(i))%>  <%response.write(f(i))%>  <%response.write(g(i))%>  <%response.write(h(i))%>  <%response.write(a(0))%>  <%response.write(b(0))%>  <%response.write(c(0))%>  <%response.write(d(0))%>  <%response.write(e(0))%>  <%response.write(f(0))%>  <%response.write(g(0))%>  <%response.write(h(0))%>  <%response.write(a(i))%>  <%response.write(b(i))%>  <%response.write(c(i))%>  <%response.write(d(i))%>  <%response.write(e(i))%>  <%response.write(f(i))%>  <%response.write(g(i))%>  <%response.write(h(i))%>  <%response.write("-")%>  <%response.write("-")%>  <%response.write("TOTAL GENERAL")%>  <%response.write("-")%>  <%response.write(3905)%>  <%response.write(3867)%>  <%response.write(4095)%>  <%response.write(11867)%>

Cuba en las Olimpiadas de Beijing 2008