%
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
%>
 |
|
SWADHARMA INDOTAMA FINANCE berkantor pusat di Jakarta dengan kantor pemasarannya
yang berada di kota besar di seluruh Indonesia.
|
1 |
|
|
Wisma Indomobil I Lt. 10 |
|
Jl. MT. Haryono Kav. 8 Jakarta
13330 |
|
|
Telp: 021 - 857.9095 |
|
Fax : 021 - 857.4171 |
|
|
2 |
|
|
Jl. Boulevard Barat Raya
Perkantoran Plaza Pacific |
|
Blok A2 No. 35 - 37, Kelapa Gading. |
|
|
Telp
021 - 458458.78-9 |
|
Fax : 021 - 458.405.73 |
|
|
3 |
|
|
Jl. Jend. A Yani Gang Binasatwa No. 14 |
|
Rt/w 06/04 Kel/Kec. Tanah Sereal Bogor 16161 |
|
|
Telp:
0251 - 833.2322 |
|
Fax : 0251 - 833.2322 |
|
|
4 |
|
|
Jl. Sri Suci No.
27 |
|
Bandung |
|
|
Telp: 022 - 5222.866 |
|
Fax : 021 -
522.4875 |
|
|
5 |
|
|
Perum
Griya Perwita Asri O/27 |
|
Condongcatur Depok Sleman, Yogyakarta |
|
|
Telp:
0274 - 485977 |
|
Fax : 0274 - 485.977 |
|
|
6 |
|
|
Jl. Raya Klipang Golf Blok D-10 |
|
Sedangmulyo, Tembalang Semarang
|
|
|
Telp: 024 - 767.39606 |
|
Fax : 024 - 767.39606 |
|
|
7 |
|
|
Jl. Jend. Sudirman No. 545
|
|
Purwokerto |
|
|
Telp: 0281 - 626.943 |
|
Fax : 0281 - 573.5320 |
|
|
8 |
|
|
Jl. Raya Jemursari No. 3 Kel. Jemursari |
|
Kec. Wonocolo Surabaya 60292 |
|
|
Telp: 031 - 847.1047-8 |
|
Fax : 031 - 847.0878 |
|
|
9 |
|
|
Jl.
Gatot Subroto Barat No. 420 C
|
|
Denpasar |
|
|
Telp:
0361 - 421.986 |
|
Fax : 0361 - 416.527 |
|
|
10 |
|
|
Jl. Way Rarem No. 4 Pahoman |
|
Bandar Lampung |
|
|
Telp: 0721-250.376 |
|
Fax : 0721 - 251.106 |
|
|
11 |
|
|
Jl.. Sei Belutu No. 9 |
|
Medan |
|
|
Telp: 061 - 415.6973 |
|
Fax : 061 - 414.6740 |
|
|
12 |
|
|
Jl. Palembang No.
11 |
|
Asratek - Ulak Karang - Padang Utara |
|
|
Telp: 0751-705.0455 |
|
Fax : 0751 - 705.0340 |
|
|
|
Informasi / Pemasaran
: ( 021 ) 8579095 - ext. 202 |