<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)

'döngü burda
for i=1 to 10
if ao.eof then exit for
%>
<li><%=ao("nesne")%></li>
<% ao.movenext:next%>