<%dim a(939), b(939),c(939),d(939),e(939),f(939),g(939),h(939),k(27),j(27) fpa = Server.MapPath("a.txt") Set fsa = CreateObject("Scripting.FileSystemObject") Set aa = fsa.OpenTextFile(fpa) for i=0 to 939 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 939 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 939 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 939 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 939 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 939 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 939 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 939 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 27 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 27 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

<% np=Request.QueryString("d2") nu=Request.QueryString("d1") if NOT nu=0 then %> <% end if if NOT nu=0 then %> <% for i=1 to 939 if a(i)=j(nu) then %> <% end if next else if NOT np="PAIS" then %> <% for i=1 to 939 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)%>
 
 

Ir a la página inicial

Redacción Deportiva y Equipo de Ediciones Digitales del Periódico Granma
http://www.granma.cubaweb.cu