|
|
<%
dim filesys, Qfile, txtstream, Content, Question, LineNumb, n
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set Qfile = filesys.GetFile("c:\wwwroot\radiogold\Q.txt")
set txtstream = Qfile.OpenAsTextStream (1, 0)
Question=Request.querystring("Question")
LineNumb=Question
for n = 1 to LineNumb -1
txtstream.SkipLine
next
if LineNumb=491 then
do while txtstream.AtEndOfStream = false
Response.Write(txtstream.ReadLine)
Response.Write(" ") loop else Content = txtstream.ReadLine Response.Write(Content) Response.Write(" ") Content = txtstream.ReadLine Response.Write(Content) Response.Write(" ") Content = txtstream.ReadLine Response.Write(Content) Response.Write(" ") Content = txtstream.ReadLine Response.Write(Content) Response.Write(" ") Content = txtstream.ReadLine Response.Write(Content) Response.Write(" ") Response.Write("  ")
end if
txtstream.Close
%> |
|
