Willkommen bei AURECO

Die AURECO GmbH
Die Firma wurde am 01.Juli 2000 gegründet, um für Kunden der Industrie und anderer Branchen einige Lücken zu schließen.

In den Bereichen Automatisierung und Regelung sowie Consulting ist unser junges und dynamisches Team stehts voller Ideen und Tatendrang, Ihnen ein optimales Produkt mit leistungsorientierten Endergebnissen zu liefern.

 

<% Dim fs, getCounterFile, makeCountTmpFile, CounterHits Set fs = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set getCounterFile= fs.OpenTextFile (CounterFile, 1, True) CounterHits = Trim(getCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 getCounterFile.Close Set getCounterFile = Nothing CounterHits = CounterHits + 1 Set makeCountTmpFile= fs.CreateTextFile (CounterFile, True) makeCountTmpFile.WriteLine(CounterHits) makeCountTmpFile.Close Set makeCountTmpFile = Nothing Set fs = Nothing response.write (CounterHits) %>