help with php

[Anon]

hello...

I have a code used by asp... I want to know how to edit it so it will work for php

<% Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObj.OpenTextFile("/chatserver/logs/chatusers2002.txt",1,false)
counter=0
do while not MyTextFile.AtEndOfStream
counter=counter+1
text=MyTextFile.readline
loop
MyTextFile.Close
set MyTextFile=nothing
set MyFileOj=nothing
%>
<%= counter %>

[Anon]

since I am not up on asp/vb this is taking a guess at what it does.. looks to take a text file and counts the number of lines?

if that is the case

$lines = file("/2002.txt");
$count = count($lines);
echo $count;

[Anon]

what it does is it counts the number of people that are in a chat room...