<%
Sub SayiOku(strSayi)
If Len(Trim(strSayi)) = 0 Then Exit Sub
arrBirler = Array(0, "bir" , "iki" , "üç" , "dört" , "bes" , "alti" , "yedi" , "sekiz" , "dokuz" )
arrOnlar = Array(0, "on" , "yirmi" , "otuz" , "kirk" , "elli" , "altmis" , "yetmis" , "seksen" , "doksan" )
arrBuyukler = Array("" , "birler" , "onlar" , "yüz" , "bin" , "bir" , "iki" , "milyon" , "bir" , "iki" , "milyar" , "bir" , "iki" , "trilyon" , "bir" , "iki" )
iBasamak = Len(strSayi)
If CInt(Left(strSayi, 1)) = 0 Then
Call SayiOku(Right(strSayi, iBasamak-1))
ElseIf arrBuyukler(iBasamak) = "birler" Then
If NOT strSayi = 0 Then strYazi = arrBirler(CInt(strSayi))
Response.Write strYazi
ElseIf arrBuyukler(iBasamak) = "onlar" Then
strYazi = arrOnlar(CInt(Left(strSayi, 1))) & arrBirler(CInt(Right(strSayi, 1)))
Response.Write strYazi
ElseIf arrBuyukler(iBasamak) = "bir" Then
strYazi = arrOnlar(CInt(Left(strSayi, 1)))
If CInt(Mid(strSayi, 2, 1)) = 0 Then strYazi = strYazi & arrBuyukler(iBasamak-1)
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
ElseIf arrBuyukler(iBasamak) = "iki" Then
strYazi = arrBirler(Left(strSayi, 1)) & "yüz"
strYazi = Replace(strYazi, "biryüz" , "yüz" )
If CInt(Mid(strSayi, 2, 1)) = 0 Then strYazi = strYazi & arrBuyukler(iBasamak-2)
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
Else
strYazi = arrBirler(Left(strSayi, 1)) & arrBuyukler(iBasamak)
strYazi = Replace(strYazi, "biryüz" , "yüz" )
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
End If
End Sub
Call SayiOku(Request.QueryString("Sayi" ))
%>