<%@ Language=VBScript%> <% Dim fso, txtArchivo, txtLinea, ts set fso = CreateObject("Scripting.FileSystemObject") set ts = fso.OpenTextFile ("d:\MariaReina\TxtNoticias\SCiencias.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 SECUNDARIA - CIENCIA, TECNOLOGIA Y AMBIENTE
Página Principal
Página Principal
Página Principal      Matemática       Ed.Religiosa       Ed.Física        Cómputo
Página Principal      Comunic. Integral
Ciencias Sociales
 Artes Integradas

.PRINCIPAL       INICIAL       PRIMARIA       CONTÁCTENOS
Ciencias  
Inglés    
Coordinación 
Profesores del Área 
Info. Pedagógica 
Mi Profesor Virtual 
Destacados
Proyectos
...
...

CIENCIAS EN SECUNDARIA - C.T.A.

Regresar 

Psicología       Consejo Estudiantil       Innovación