<% Dim ObjCounterFile, ReadCounterFile, WriteCounterFile, CounterFile Dim CounterHits, FixedDigitCount, DigitCount, DigitCountLength Dim DigitZerosToAdd, DigitZeroCount, ShowDigits, DigitPath FixedDigitCount=5 DigitPath ="../pic_root" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath("/database/Counter.txt") Set ReadCounterFile = ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile= Nothing CounterHits = CounterHits + 1 Set WriteCounterFile = ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd = FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %>
  

   Komisaris dan Direksi

 

   Pemegang Saham

 

Komisaris
Komisaris Utama   :   Hasan Soeftendy
Komisaris  :   Jusak Kertowidjojo
   :   Soebronto Laras

 

  :   Dedi Wirahadikusumah
 
Direksi
Presiden Direktur :    Jacobus Irawan
Direktur :    Usmansjah Sulaiman
Direktur :    Liem Agustinus
             

Copyright © 2010