HTML-Kodu:
<%
Function cevir(metin)
if metin = "" then exit function
metin = Replace(metin ,Chr(208),"G",1,-1,0)
metin = Replace(metin ,Chr(240),"g",1,-1,0)
metin = Replace(metin ,Chr(222),"S",1,-1,0)
metin = Replace(metin ,Chr(254),"s",1,-1,0)
metin = Replace(metin ,Chr(199),"C",1,-1,0)
metin = Replace(metin ,Chr(231),"c",1,-1,0)
metin = Replace(metin ,Chr(221),"I",1,-1,0)
metin = Replace(metin ,Chr(236),"i",1,-1,0)
metin = Replace(metin ,Chr(237),"i",1,-1,0)
metin = Replace(metin ,Chr(253),"i",1,-1,0)
metin = Replace(metin ,Chr(214),"O",1,-1,0)
metin = Replace(metin ,Chr(246),"o",1,-1,0)
metin = Replace(metin ,Chr(220),"U",1,-1,0)
metin = Replace(metin ,Chr(252),"u",1,-1,0)
metin = Replace(metin,",","")
metin = Replace(metin," ","-")
metin = Replace(metin,"!","")
metin = Replace(metin,"(","")
metin = Replace(metin,")","")
metin = Replace(metin,"'","")
metin = Replace (metin ,"`","")
metin = Replace (metin ,"=","")
metin = Replace (metin ,"&","")
metin = Replace (metin ,"%","")
metin = Replace (metin ,"!","")
metin = Replace (metin ,"#","")
metin = Replace (metin ,"<","")
metin = Replace (metin ,">","")
metin = Replace (metin ,"*","")
metin = Replace (metin ,"And","")
metin = Replace (metin ,"'","")
metin = Replace (metin ,"Chr(34)","")
metin = Replace (metin ,"Chr(39)","")
cevir = metin
End Function
%>