<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
      degisken = Replace(AO.ReadAll,chr(13),"<br>")
      boluver = split(degisken,"<br>")
      
      for i = 0 to UBound(boluver)
             response.write "<a href="&boluver(i)&".html>"&boluver(i)&"</a><br>"
      next

AO.close
%>