<%@ Language=VBScript%> <% Dim fso, txtArchivo, txtLinea, ts set fso = CreateObject("Scripting.FileSystemObject") set ts = fso.OpenTextFile ("d:\MariaReina\TxtNoticias\Pastoral.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 - PSICOLOGÍA
Pagina Principal



PRINCIPAL     INICIAL     PRIMARIA     SECUNDARIA     CONTÁCTENOS   


   Coordinación


 




Equipo

DEPARTAMENTO DE PSICOLOGÍA

Noticias