<% 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)&"- ", "

  • ") ' Punto y Aparte sFILE = Replace(sFILE,CHR(13)&chr(10)&CHR(13)&chr(10), "

    "&chr(13)&chr(10)) ' Inicio Bullets sFile = Replace(sFILE,"

    "&chr(13)&chr(10)&"
  • ","

    "&chr(13)&chr(10)&"
    ") sFile = replace (sFile, chr(13)&chr(10)&"CONTENIDO","

    CONTENIDO

    ") sFile = replace (sFile, chr(13)&chr(10)&"OBJETIVO","

    OBJETIVO

    ") sFile = replace (sFile, chr(13)&chr(10)&"ANTECEDENTES","

    ANTECEDENTES

    ") sFile = replace (sFile, chr(13)&chr(10)&"METODOLOGIA","

    METODOLOGIA

    ") %> CRAUDES : <%=TITULO%>

    <%=TITULO%>

    <%=MAEST%>


    >
    <% if len(IMAGE) > 1 then %> > <% end if %>
    <%=sFile%>