<% 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 %>
  

KOMPOSISI PEMEGANG SAHAM

35.07   PT. Indomobil Sukses Internasional, Tbk
0.71   PT. Wahana Inti Sela
7.14   PT. Asuransi Jiwa Central Asia Raya
10.71   PT. Indolife Pensiontama
13.57   PT. Asuransi Central Asia
1.07   PT. Tri Handayani Utama
3.15   Dana Pensiun BNI
28.57   PT. Tritunggal Intipermata

Informasi / Pemasaran  :  ( 021 )  8579095  -  ext. 202