<body>
<form id="form1" name="form1" method="post" action=""><div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" bgcolor="#FFFF99"><div align="center"><strong>Логи сервера</strong></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC">
<%
dim fs,f,t,x,i,j
dim str(0 To 9)
fs=Server.CreateObject("Scripting.FileSystemObject")
t=fs.OpenTextFile("c:\test.txt",1,false)
do while t.AtEndOfLine<>true
x=t.Readline
for j=0 to 8
str(9-j)=str(8-j)
next
str(0)=x
loop
t.close
for i=0 To 9
Response.Write(str(i) & "<br>")
Next
%>
</td>
</tr>
</table>
</form>