MARIA REINA - ALUMNOS

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