Programalama > ASP

<%
'date:01.07.2003
'nolovelust
'postmaster@smslust.net
'www.smslust.net

function NoTurkce(input)

dim gecerliKarakterler

gecerliKarakterler = " !,&#%()*+-./0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`'abcdefghijklmnopqrstuvwxyz{|}~£$"""""

if len(input)>0 then
					for i=1 to len(input)
					harf = mid(input,i,1)
					if  not instr(gecerliKarakterler,harf)>0 then
					NoTurkceHata(harf)
					response.end
					Exit function
					end if
					next
else
                    NoTurkceHata("Bos deger")
					response.end
end if
NoTurkce=input
end function
%>

<%sub NoTurkceHata(hata)
<p align="center"><%=Server.HTMLEncode(hata)%><br/>illegal character!<br/> You can only use characters below:<br/>
<%=Server.HTMLEncode("!,#,%,(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,=,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,{,|,},~,£")%>
<%end sub%>