<%@ Language=VBScript%> <% Dim fso, txtArchivo, txtLinea, ts set fso = CreateObject("Scripting.FileSystemObject") set ts = fso.OpenTextFile ("d:\MariaReina\TxtNoticias\Primaria.txt") txtArchivo = "" Do While Not ts.AtEndOfStream = True txtLinea = ts.ReadLine & "
" txtArchivo = txtArchivo & txtLinea Loop ts.Close set ts = nothing 'response.write txtArchivo' %> MARIA REINA - NIVEL PRIMARIA - DIRECCIÓN
Página Principal
Página Principal
Página Principal

Matemática 

Comunicación Integral     Motricidad     Cómputo
Página Principal    Ciencia y Ambiente
Personal Social
 Religión

.PRINCIPAL       INICIAL       SECUNDARIA       CONTÁCTENOS
  Inglés 
Arte    
Dirección Primaria
Consejo Formativo
Primero Primaria
Segundo Primaria
Tercero Primaria
Cuarto Primaria
Quinto Primaria
Sexto Primaria

 

Regresar 

         Psicología          Normas Educativas