<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
dim i
dim m
dim objFileSys
dim theFile
dim lineTxt
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set theFile = objFileSys.OpenTextFile(Server.MapPath("./") & "/filename.txt",1)
i = 0
WHILE NOT theFile.AtEndOfStream
i = i + 1
theFile.SkipLine
WEND
theFile.Close
dim arrLines(1 to i)
set theFile = objFileSys.OpenTextFile(Server.MapPath("./") & "/filename.txt",1)
FOR m = 1 to i
arrLines(m) = theFile.ReadLine
NEXT
%>