<%
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
%>
Dokumen-dokumen yang
diperlukan untuk mempercepat proses
Persyaratan
Perusahaan
Wiraswasta
Profesional
Karyawan
Foto Copy KTP
****
**
*
*
*
Foto Copy Kartu Keluarga
Slip Gaji
Foto Copy Surat
Ijin Praktek
Foto Copy Rekening Bank 3 bulan Terakhir
Foto Copy NPWP
Foto Copy SIUP & TDP
Foto Copy Akte Pendirian & Perubahan
* KTP Suami & Istri, Foto Copy PBB / Rekening Telepon / Rekening
Listrik
** KTP Direksi & Komisaris,
Surat Keterangan Domisili
**