<% Option Explicit
Dim strFol, strContents, strAutor, strTitulo, strFName
Dim fso, fc, objFold, objFile, objTS
Dim nnn, nn
Server.Execute("logger.asp")
%>
Literatura de la Libertad
La Literatura de la Libertad
en Español
| Autor | Título |
|---|
<%
Set fso = CreateObject("Scripting.FileSystemObject")
strFol = Server.MapPath("Libib")
Set objFold = fso.GetFolder(strFol)
Set fc = objFold.Files
nn = fc.Count
For Each objFile in fc
Set objTS = objFile.OpenAsTextStream(1)
strContents = objTS.ReadAll
nn = InStr(strContents,"") + 7
nnn = InStr(nn,strContents,"")
strAutor = Mid(strContents,nn,nnn-nn)
nn = InStr(strAutor,"--")
strTitulo = Trim(Left(strAutor,nn-1))
strAutor = Trim(Right(strAutor,Len(strAutor)-nn-1))
strFName = "logger.asp?link=" & "Libib/" & objFile.Name
%>
|
<%= strAutor %>
|
><%= strTitulo %>
|
<%
objTS.Close
Next
Set objTS = Nothing
Set objFile = Nothing
Set fc = Nothing
Set objFold = Nothing
Set fso = Nothing
%>
<% Server.Execute("quote.asp") %>