|
<%
fileric="d:\inetpub\wwwroot\casavigasio\news.htm"
Const ForReading = 1, ForWriting = 2
Dim fs, ric, tmpric, fstmp
Set fs = CreateObject("Scripting.FileSystemObject")
Set ric = fs.OpenTextFile(fileric, ForReading)
conta=0
Do While ric.AtEndOfStream <> True
conta=conta +1
retstring = ric.ReadLine
response.write(retstring & VbCrlf)
Loop
ric.Close
%>
|
|