% Dim CURSO CURSO = request.querystring("curso")&".txt" Dim fs, thisfile, sFile, sLinea ' ----------------------------------------------------------------- ' Lectura secuencial del file ' ----------------------------------------------------------------- Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(server.mappath(CURSO), 1, False) 'while NOT thisfile.AtEndOfStream sLinea = thisfile.ReadLine IF (left(sLinea,6) = "CURSO"&CHR(9)) then TITULO = RIGHT(sLinea,LEN(sLinea)-6) sLinea = thisfile.ReadLine IF (left(sLinea,6) = "MAEST"&CHR(9)) then MAEST = RIGHT(sLinea,LEN(sLinea)-6) sLinea = thisfile.ReadLine IF (left(sLinea,6) = "IMAGE"&CHR(9)) then IMAGE = RIGHT(sLinea,LEN(sLinea)-6) sLinea = thisfile.ReadLine IF (left(sLinea,6) = "BORDE"&CHR(9)) then BORDE = RIGHT(sLinea,LEN(sLinea)-6) sFile = thisfile.readall 'wend thisfile.Close set thisfile=nothing set fs=nothing ' Fin de linea chr(13)+chr(10) ' Tab = chr(9) ' Limpia el espacio despues del punto y enter sFILE = Replace(sFILE,". "&chr(13), "."&chr(13)) ' Limpia el espacio antes de un renglon con solo enter sFILE = Replace(sFILE,chr(13)&chr(10)&" "&chr(13), chr(13)&chr(10)&chr(13)) ' Pensamientos justificados a la derecha sFILE = Replace(sFILE,chr(9)&chr(9)&chr(9)&chr(9), "
") ' Bullets sFILE = Replace(sFILE,CHR(9)&"- ", "
>
<% if len(IMAGE) > 1 then %> > <% end if %> | <%=sFile%> |