<% dim hc(16),vs(16),vsen(16),hcen(16),vsc(16),hcc(16),vsh(16),hch(16),vse(16),hce(16),res(16) dim fil(16), est(16) dim a,fs,fp,a2,fs2,fp2 dim i, fecha, cantidad 'primero indicamos el path virtual donde se localiza el archivo fp = Server.MapPath("590.txt") 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a = fs.OpenTextFile(fp) 'Leemos el archivo cantidad = cint(a.ReadLine) fecha = Cstr(a.ReadLine) 'Cerramos el archivo a.close for i=1 to cantidad fp2 = Server.MapPath("59"+cstr(i)+".txt") 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs2 = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a2 = fs2.OpenTextFile(fp2) 'Leemos el archivo est(i) = Cstr(a2.ReadLine) vs(i) = Cstr(a2.ReadLine) vsen(i) = Cstr(a2.ReadLine) vsc(i) = Cstr(a2.ReadLine) vsh(i) = Cstr(a2.ReadLine) vse(i) = Cstr(a2.ReadLine) hc(i) = Cstr(a2.ReadLine) hcen(i) = Cstr(a2.ReadLine) hcc(i) = Cstr(a2.ReadLine) hch(i) = Cstr(a2.ReadLine) hce(i) = Cstr(a2.ReadLine) res(i) = Cstr(a2.ReadLine) a2.close next %>

44 Serie Nacional de Béisbol (2004-2005)

<%response.write(fecha)%>

<% for i=1 to cantidad %> <% next %>

<%response.write(est(i))%>

<%response.write(vs(i))%>

<%response.write(vsen(i))%>

<%response.write(vsc(i))%>

<%response.write(vsh(i))%>

<%response.write(vse(i))%>

<%response.write(hc(i))%>

<%response.write(hcen(i))%>

<%response.write(hcc(i))%>

<%response.write(hch(i))%>

<%response.write(hce(i))%>

<%response.write(res(i))%>

Resultados diarios de los juegos
   

SubirSubir