asked on

cgi counter on an NT system

I have a page on an NT system and can not get the counter script to run at all. Does anyone know of a page with a counter on an NT system that I can look at the code where it is added into the html page and the actual script? I would like to see the counter in action so not just a location to get some freebies off the net. That is what I did and I have been fighting with the script for a day now.

MasseyM

Here is the source from Microsoft Interavtice Developer Magazine... I know of no sites that use this, but many probably do...

<%
Application.Lock
sFileName = Request.ServerVariables("SCRIPT_NAME")
Application(sFileName) = Application(sFileName) + 1
Application.Unlock
%>

HTML page -----
Visits to this page equal <% =Application(sFileName) %>

csindorf

ASKER

I am looking for one that is in action so I can see that it works on an NT system. Everything that I have tried with my code failed so I would like to compair mine with another to see the difference.

TIA

MasseyM

This is direct from Microsoft... I will guarantee it works for NT.. But, go to www.ldsmissions.net/crm/Count/ and take a look there... I will put up a VERY simple page with this counter...

It will be text based, but I can post some code to make it able to display graphics...

csindorf

ASKER

The graphics version would be greatly appreciated. I went to the page you mentioned and yes it works but what does the code look like, both the running script and the page that calls it??

TIA

MasseyM

The code on that page is the code that is above....

Here is the "graphics" version..

You need to have the graphics in a subdirectory called /graphics and each "number" in the directory.. For instance, 1.gif is a picture of the number 1, 2 = 2.gif... etc....

I will also post a zip file or some simple graphics...

Here is the code... It is all contained within one file....
<HTML>
<%
Application.Lock
sFileName = Request.ServerVariables("SCRIPT_NAME")
Application(sFileName) = Application(sFileName) + 1
Application.Unlock
%>

<% Accesses = Application(sFileName) %>
Page accessed
<%
For intLoop = 1 to Len(Accesses)
CurNum = Mid(Accesses,intLoop,1)
Response.Write("<IMG SRC=Graphics/"&CurNum & ".gif>")
Next
%>
Times.
</HTML>

I will post thhis there too... Please be patient on the zip file... I will make a link on the same page...

csindorf

ASKER

What is that done in it looks like VBScript a bit? This system at the present time is done on an NT box but but might be going to a SUN station later on. The server is NetScape not Microsoft
as well.

TIA

MasseyM

OK, this is done using Active Server Pages on an NT Server... it is written in VBScript... I assumed that since you said NT, that was what you were running...

Microsoft does make server extensions for most servers to include the ASP functionality... I know they do for Netscape, but unsure for Sun...

This is the simplest way to accomplish what you want...

csindorf

ASKER

That is the problem I am faced with. the server at the present time is NT but will be going to SUN. So I need to keep the script platform independant as much as I can.

TIA

MasseyM

Well, this is all that I have... I would recommend that you move to an NT server rather than Sun... I don't know Javascript so I cannot be of any more help... Thanks anyway.

I hope the code above was worth your time.

csindorf

ASKER

I am still looking for a working counter that is not done on a platform that could not be changed and put on another. It needs to be either HTML,Perl, javascript etc......

ASKER CERTIFIED SOLUTION

Michel Plungjan

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

csindorf

ASKER

thanks all