'// DÖVİZ KURLARI TANITIM
dovizusds = 1.35
dovizeuros = 1.85
dovizgbps = 2.1
'// ÇEVİRME İŞLEMİ
Function KurCevir(fun_fiyati,fun_dcinsi)
IF isNumeric(fun_fiyati) = true then
Select Case fun_dcinsi
Case "USD","usd","$"
duzenlenecek = (dovizusds * fun_fiyati)
Case "eur","euro","EURO","EUR","€","Euro"
duzenlenecek = (dovizeuros * fun_fiyati)
Case "str","STR","gbp","GBP"
duzenlenecek = (dovizgbps * fun_fiyati)
Case Else
duzenlenecek = fun_fiyati
End Select
ELSE
duzenlenecek = 0
END IF
KurCevir = duzenlenecek
End Function
'// KULLANIMI
Response.Write KurCevir(2,"USD") + KurCevir(5,"ytl")
Renklitv.ORG - pitbull-oye
