Gelen form verisindeki karakterleri yoklamak..?

[annudora]

request.form("x") ile gelen verideki tanınmayan karakterleri süzmek için (replace yolu dışında) aşağıdaki yöntemi buldum fakat uyarlayamadım isteğime göre. Yapmak istediğim şu :
.....
if request.form("x") - izin verilen karakterler dışında karakter içeriyorsa
HATA ver
else
...
VERitabanına yaz
end if

Kodu nasıl uygulamam gerekir bu durumda ?

<%
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)%>
illegal character!
You can only use characters below:

<%=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%>

Kaynak:http://www.pcnetforum.com/index.php?...5&st=0&start=0