<% Const ForReading = 1, ForWriting = 2, ForAppending = 8 strLogfilePath = "D:\Web\D\B\36\~db\" strLogfile = "count.txt" strText = "init" Dim objFso, objLogfile set objFso = CreateObject("Scripting.FileSystemObject") set objLogfile = objFso.OpenTextFile(strLogfilePath & strLogfile, ForReading) intCount = Int(objLogfile.ReadLine) objLogfile.Close set objLogfile = Nothing set objFso = Nothing Response.Write("-Besucherzähler: " & intCount & "-") %>

 

 

 

Siegfried Graf

 

 

 

 

 

 

 

 

Referenzen

Daß sich unsere Kunden in guten Händen befinden, zeigt das Lob, das wir für viele unserer Beleuchtungskonzepte einheimsen. Und nicht zuletzt auch die stetige Weiterempfehlung durch unsere zufriedenen Kunden. Mit Sicherheit haben auch Sie bereits einige unserer Arbeiten ge- sehen, denn viele Projekte im Raum Heilbronn tragen unsere beleuchtungstechnische Handschrift: unter anderem das Technische Rathaus, das Theaterschiff, das Museum im Deutschhof und viele Arztpraxen, Lokale, Boutiquen und private Wohnhäuser.

Aber nicht nur in der Heilbronner Region sind wir als kompetente Beleuchter anerkannt, son- dern auch die Geschäftsräume und Messestände großer Konzerne und sogar den Wintergarten des Kreml haben wir mit Licht ausgestattet.

Bei Interesse übersenden wir Ihnen gerne eine detaillierte Referenzliste.