<% ' ASP para sacar el contenido de un archivo (pepe.txt) ' en una pagina HTML ' (c) Copyright JosuKa Díaz Labrador 2002 Dim objFSO8, objTextFile8 Set objFSO8 = CreateObject("Scripting.FileSystemObject") ' El argumento 1 significa ForReading Set objTextFile8 = objFSO8.OpenTextFile(Server.MapPath("pepe.txt"), 1) ' Lee todo el archivo Contenido = objTextFile8.ReadAll ' Escribe todo en la salida Response.write(Contenido) ' Cierra archivo objTextFile8.Close Set objTextFile8 = Nothing Set objFSO8 = Nothing Set Contenido = Nothing ' Fin %>