|
|
|
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Path = Server.Mappath("mdb-database/testo_byron.txt")
If fso.FileExists(Path) Then
Set testo = fso.OpenTextFile(Path, 1)
While Not testo.AtEndOfStream
Response.Write(testo.ReadLine & " ") Wend testo.Close Else Response.Write("Non Disponibili.") End If %> |