Classic ASP Discussion - New Page Counter

Print Page | Close Window

New Page Counter

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=2703
Printed Date: 29 March 2026 at 12:03pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: New Page Counter

Posted By: Misty
Subject: New Page Counter
Date Posted: 14 May 2003 at 11:48am

I decided to use one of Web Wiz Guide's page counters. I tried running it. I'm still having problems. Please look at the red line of code. I got an error message that says, "Type mismatch".

<html>
<head>
<title>Hit Counter</title>
</head>
<body bgcolor="white" text="black">

<%
'Dimension variables
Dim fsoObject                   'File System Object
Dim tsObject                    'Text Stream Object
Dim filObject                     'File Object
Dim lngVisitorNumber          'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Dim strPath

'Set connection details
strPath = Server.MapPath(".")
strPath = Replace(strPath,"html","database")

'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(StrPath("hit_count.txt"))

'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream

'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)

'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))

'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)

'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

'Display the hit count as text
'Response.Write(lngVisitorNumber)

'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)

    'Display the graphical hit count
    Response.Write("<img src=""counter_images/")
    Response.Write(Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & ".gif""")
    Response.Write("alt=""" & Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & """>")

Next
%>

</body>
</html>

Replies:

Posted By: MorningZ
Date Posted: 14 May 2003 at 1:03pm

Set filObject = fsoObject.GetFile(StrPath("hit_count.txt"))

is looking for a function called "StrPath", which is not what it is.... hence the "type mismatch"

Error messages dont lie

-------------
Contribute to the working anarchy we fondly call the Internet

Posted By: Misty
Date Posted: 14 May 2003 at 6:35pm

How do I change that line of code?

Posted By: Misty
Date Posted: 15 May 2003 at 5:20pm

Can someone please help me with this line of code?

Posted By: MorningZ
Date Posted: 16 May 2003 at 4:24am

yeah, learn the difference between string concatination and calling a function

-------------
Contribute to the working anarchy we fondly call the Internet

Posted By: b_bonnett
Date Posted: 16 May 2003 at 4:33am

Replace 'strPath' with 'Server.MapPath'

Regards,
Blair

-------------
Webmaster, http://www.planegallery.net/ - The Plane Gallery
Greetings From Christchurch