<%
' Isimleri Kisaltmanizi Saglar...
Function IsimKisaltici(Str)
Uzunluk = Len(Str)
Bosluk_Ara = InStr(1, Str , " " )
If Bosluk_Ara = vbIsNull Then
IsimKisaltici = Str
Else
Adi = Left(Str , 1)
Soyad = Mid(Str , Bosluk_Ara , Uzunluk)
IsimKisaltici = Adi & ". " & Soyad
End If
End Function
' Örnek Uygulamasi
Isim = "Adiniz Soyadınız"
Isim2 = "Adiniz Soyadınız Deneme"
Response.Write IsimKisaltici(Isim) & "<br>"
Response.Write IsimKisaltici(Isim2)
' Ekran Çiktisi Isim Degiskenin
' A. Soyadiniz
' Isim 2 Degiskenin Ekran Çiktisi Ise
' A. Soyadiniz Deneme
%>