II CLÁSICO MUNDIAL DE BÉISBOL 2009

<% dim v(10),vv(10),vs(10),hc(10),nv(30),nh(30),tv(30),th(30) dim i for i=1 to 30 nv(i)="prin" & cstr(i) & ".txt" nh(i)="fina" & cstr(i) & ".txt" next 'primero indicamos el path virtual donde se localiza el archivo fp = Server.MapPath("datos.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 nombre = Cstr(a.ReadLine) etapa = Cstr(a.ReadLine) evs = Cstr(a.ReadLine) ehc = Cstr(a.ReadLine) c1 = cstr(a.ReadLine) h1 = cstr(a.ReadLine) e1 = cstr(a.ReadLine) c2 = cstr(a.ReadLine) h2 = cstr(a.ReadLine) e2 = cstr(a.ReadLine) v(1) = cstr(a.ReadLine) v(2) = cstr(a.ReadLine) v(3) = cstr(a.ReadLine) v(4) = cstr(a.ReadLine) v(5) = cstr(a.ReadLine) v(6) = cstr(a.ReadLine) v(7) = cstr(a.ReadLine) v(8) = cstr(a.ReadLine) v(9) = cstr(a.ReadLine) v(10) = cstr(a.ReadLine) vv(1) = cstr(a.ReadLine) vv(2) = cstr(a.ReadLine) vv(3) = cstr(a.ReadLine) vv(4) = cstr(a.ReadLine) vv(5) = cstr(a.ReadLine) vv(6) = cstr(a.ReadLine) vv(7) = cstr(a.ReadLine) vv(8) = cstr(a.ReadLine) vv(9) = cstr(a.ReadLine) vv(10) = cstr(a.ReadLine) albate = Clng(a.ReadLine) diama = Cstr(a.ReadLine) stri = cstr(a.ReadLine) bola = cstr(a.ReadLine) outs = cstr(a.ReadLine) entr = trim(cstr(a.ReadLine)) ini = Clng(entr) 'Cerramos el archivo a.close fp2 = Server.MapPath("jugad.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 jugada = Cstr(a2.ReadAll) a2.close for i=1 to ini fp3 = Server.MapPath(nv(i)) 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs3 = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a3 = fs3.OpenTextFile(fp3) 'Leemos el archivo tv(i) = Cstr(a3.ReadAll) a3.close fp3 = Server.MapPath(nh(i)) 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs3 = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a3 = fs3.OpenTextFile(fp3) 'Leemos el archivo th(i) = Cstr(a3.ReadAll) a3.close next fp4 = Server.MapPath("alin.txt") 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs4 = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a4 = fs4.OpenTextFile(fp4) 'Leemos el archivo for i=1 to 10 vs(i)=Cstr(a4.ReadLine) next for i=1 to 10 hc(i)=Cstr(a4.ReadLine) next a4.close %>

ESTADIO <%response.write(nombre)%>

<%response.write(etapa)%>

1

2

3

4

5

6

7

8

9

extra

C

H

E

<%response.write(evs)%>

<%response.write(v(1))%>

<%response.write(v(2))%>

<%response.write(v(3))%>

<%response.write(v(4))%>

<%response.write(v(5))%>

<%response.write(v(6))%>

<%response.write(v(7))%>

<%response.write(v(8))%>

<%response.write(v(9))%>

<%response.write(v(10))%>

<%response.write(c1)%>

<%response.write(h1)%>

<%response.write(e1)%>

<%response.write(ehc)%>

<%response.write(vv(1))%>

<%response.write(vv(2))%>

<%response.write(vv(3))%>

<%response.write(vv(4))%>

<%response.write(vv(5))%>

<%response.write(vv(6))%>

<%response.write(vv(7))%>

<%response.write(vv(8))%>

<%response.write(vv(9))%>

<%response.write(vv(10))%>

<%response.write(c2)%>

<%response.write(h2)%>

<%response.write(e2)%>

AL BATE: <% if albate<11 then response.write(vs(albate)) end if if albate>10 then response.write(hc(albate-10)) end if %>

LANZANDO: <% if albate<11 then response.write(hc(10)) end if if albate>10 then response.write(vs(10)) end if %>

	strikes	bolas	outs
	<%response.write(stri)%>	<%response.write(bola)%>	<%response.write(outs)%>

<%for i=1 to 10 response.write(vs(i))%><% if (i=albate) then response.write(" ·") end if response.write("
") %><% next %>

<%response.write(jugada)%>

<%for j=1 to 10 response.write(hc(j))%><% if (j+10=albate) then response.write(" ·") end if response.write("
") %> <% next %>

Jugada por jugada: <% for i=1 to ini response.write("

" & tv(i)) response.write("
" & th(i)) next %>