<% CountFile = Request.ServerVariables("PATH_TRANSLATED") ''PATH_TRANSLATED="D:\server\umad.de\doc\index-home.asp" CountFile = Left(CountFile, Len(CountFile)-14) CountFile = CountFile & "_private\main.cnt" 'CountFile = "D:\server\umad.de\doc\_private\main.cnt" 'CountFile = "d:\inetpub\wwwroot\_private\main.cnt" Application.Lock set fs = Server.CreateObject("Scripting.FileSystemObject") if not fs.FileExists(CountFile) then 'CountFile existiert nicht: neu erstellen set CountHandle = fs.CreateTextFile(CountFile) CountHandle.Write 0 CountHandle.close end if 'ForReading:1; ForWriting:2; ForAppending:8 set CountHandle = fs.OpenTextFile(CountFile, 1) count = CountHandle.ReadLine CountHandle.close count = count +1 set CountHandle = fs.OpenTextFile(CountFile, 2) CountHandle.WriteLine count CountHandle.close set fs = Nothing set CountHandle = Nothing Application.UnLock %>
UMAD ImageMap

+++ Wir sind umgezogen. Informieren Sie sich bitte auf der Kontakte-Seite. +++ Mit MEVIS-Zusatzprogrammen Messdaten direkt im Intranet/Internet veroeffentlichen +++ Informieren Sie sich bei unseren Produktneuheiten +++

Diese Seite wurde bisher <%=count%> mal aufgerufen.
Copyright © 1997-2011 UMAD GmbH. Alle Rechte vorbehalten.
webmaster@umad.de