Angka Terbilang dalam script ASP, bisa menggunakan kode script yang ada dibawah ini. Copy-Paste kode dibawah ini kedalam file text, kemudian simpan kedalam file dengan nama terbilang.asp, simpanlah kedalam folder c:\Inetpub\www dimana IIS Anda install.

<Title>Konversi Angka Ke Teks</title>
<%
'---------------------------------------------------------------
'
' (c) Copyright January 2003, Immawan Buchori, S.Pd
'     WahanaPress.net
'
'---------------------------------------------------------------
'
' Jika ada kekeliruan atau ketidaktepatan hasil konversi
'   kami berharap anda sudi memberitahukan kami.
'
' Andapun bisa melakukan modifikasi sesuai selera anda,
'   tetapi jika mempublikasikannya jangan hapus Copyright-nya.
'
' Semoga anda menjadi Programmer Profesional. Amien.
'
'---------------------------------------------------------------
Dim lsTeks1, lsTeks2

Function AngkaToTeks()
Dim llKoma
Dim lsAngka, lsKomaAngka, lsTmpAngkaToTeks, txtAngka
Dim i, lnToLoop

txtAngka = request("Angka")

If txtAngka = "" Or Not IsNumeric(txtAngka) then
  txtAngka = 0
Else
  txtAngka = CDbl(txtAngka)
End if

 Continue reading »

Dibawah ini script ASP yang bisa digunakan untuk menampilkan tanggal dalam format Indonesia, juga bisa dimodifikasi sesuai selera Anda:

<%

function NamaHari(Tanggal)
':::::::::::::::::::::::::::::::::::::::::::::::::::::
' Mengambil nama hari
':::::::::::::::::::::::::::::::::::::::::::::::::::::
  select case weekday(Tanggal)
    case 1
      NamaHari = "Minggu"
    case 2
      NamaHari = "Senin"
    case 3
      NamaHari = "Selasa"
    case 4
      NamaHari = "Rabu"
    case 5
      NamaHari = "Kamis"
    case 6
      NamaHari = "Jum'at"
    case 7
      NamaHari = "Sabtu"
  end select
end function

 Continue reading »