TXT dosyasından satır okuma...

<% 
Function satirokutma(dosya,satirno)
set fsoyol = fso.GetFile(dosya)
set fsoislem = fsoyol.OpenAsTextStream (1,-2)
For sayac=1 to satirno
if sayac <> satirno then
Response.Write fsoislem.SkipLine &""
else
Response.Write "Satır Verisi:["& fsoislem.ReadLine &"]<br>"
end if
Next
set fsoyol = nothing
fsoislem.close
set fsoislem = nothing
End Function
%>
<%
Response.Write satirokutma("kanallar.txt",1)
Response.Write satirokutma("kanallar.txt",2)
Response.Write satirokutma("kanallar.txt",3)
Response.Write satirokutma("kanallar.txt",4)
%>

Elimde böyle bir kod var kanallar.txt dosyasından sırasıyla 1 2 3 4 satırlarını okutmak istiyorum. Ama kodu bir türlü çalıştıramadım birisi yardımcı olabilirmi ?

cok tesekkurler

Ne için teşekkür ettin ki?