Tæl linierne i en dat-fil

antal.asp:
---------------------------
<html>
<head>
<title>Antal linier</title>
</head>
<body>
<%
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
Set txtfile = filesys.OpenTextFile(\"c:tempfil.txt\",1,0)

ialt = 0
do

line = txtfile.ReadLine
ialt = ialt + 1
Loop Until txtfile.AtEndOfStream
txtfile.Close

Response.write ialt
%>
</body>
</html>
----------------------------
//Claus

UPS, her kommer en revideret udgave til filer som ligger på en server:

antal.asp:
---------------------------
<html>
<head>
<title>Antal linier</title>
</head>
<body>
<%
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/dinfolder/dinfil.dat\")
Set txtfile = filesys.OpenTextFile(filespec,1,0)

ialt = 0

do
  line = txtfile.ReadLine
  ialt = ialt + 1
Loop Until txtfile.AtEndOfStream

txtfile.Close

Response.write ialt
%>
</body>
</html>
----------------------------
//Claus

Hej Claus!

Det virkede bare perfekt! - Tak for hjælpen!

VH Popstar

Det var godt, og tak for pointne.

//Claus