<% Language=VBScript %>
<%
Set FileObject =Server.CreateObject("Scripting.FileSystemObject")
countsFile = Server.MapPath ("counter") & "\counter.txt"
Set InStream= FileObject.OpenTextFile (countsFile, 1,false )
Oldcounts = Trim(InStream.ReadLine)
Newcounts = Oldcounts + 1
Set OutStream= FileObject.CreateTextFile (countsFile, True)
OutStream.WriteLine(Newcounts)
%>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** WWeb Wiz Guide Hit Counter
'**
'** Copyright 2001 Bruce Corkhill All Rights Reserved.
'**
'** This program is free software; you can redistribute it and/or modify
'** it under the terms of the GNU General Public License as published by
'** the Free Software Foundation; either version 2 of the License, or
'** any later version.
'**
'** All copyright notices must remain intacked in the scripts and the
'** outputted HTML.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to Web Wiz Guide must remain in place and the powered by
'** logo with link back to Web Wiz Guide must remain visiable when the pages
'** are viewed.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'** GNU General Public License for more details.
'**
'** You should have received a copy of the GNU General Public License
'** along with this program; if not, write to the Free Software
'** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'**
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.webwizguide.com/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** asp@webwizguide.com
'**
'****************************************************************************************
%>
Philippine Churches of CHRIST
There
are <% =application("activevisitors") %> active visitors.
