\"counter\" på 2. side

her er 1.asp --->

<%
Sub ShowCounter(bType)
Set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
strDir = Request.ServerVariables(\"SCRIPT_NAME\")
strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,\"/\"))) & \"\\dbase\\counter.txt\"
\' On Error Resume Next
Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
tmpHits = Trim(objFile.ReadLine)
tmpHits = tmpHits + 1
objFile.Close
Set objFile = objFS.CreateTextFile(strCountFile, True)
objFile.WriteLine(tmpHits)
Set objFS = Nothing

\' Her vises counteren 1 = Grafisk counter, 2 = Tekst counter
Select Case bType

Case 2
Response.Write tmpHits
End Select
End Sub
%>
<html>

<head>
<small>Antal besøgende:&nbsp;</small><% ShowCounter(2) %>
                  </body>
</html>

har fundet ud af problemet..mtm