|
|
|
|
<%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
%>
<%
np=Request.QueryString("d2")
nu=Request.QueryString("d1")
if NOT nu=0 then
%>
|
<%
response.write(k(nu))
%>
|
<%
end if
if NOT nu=0 then
%>
| <%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))%> |
<%
for i=1 to 939
if a(i)=j(nu) then
%>
| <%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))%> |
<%
end if
next
else
if NOT np="PAIS" then
%>
| <%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))%> |
<%
for i=1 to 939
if c(i)=np then
%>
| <%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))%> |
<%end if
next
end if
end if
%>
<%
if np=Cstr("TOTALES") then
%>
| <%response.write("-")%> |
<%response.write("-")%> |
<%response.write("TOTAL GENERAL")%> |
<%response.write("-")%> |
<%response.write(3905)%> |
<%response.write(3867)%> |
<%response.write(4095)%> |
<%response.write(11867)%> |
<%
end if
%>
|
|
|
|
|