here is the solution by antivitamin
if (Instr(Request.Form("Name"), ">") > 0 )_
or (Instr(Request.Form("Name"), "<") > 0)_
or (Instr(Request.Form("Name"), " ") > 0)_
or (Instr(Request.Form("Name"), " ") > 0)_
or (Instr(Request.Form("Name"), "_") > 0)_
or (Instr(Request.Form("Name"), ".") > 0)_
or (Instr(Request.Form("Name"), ",") > 0) then
Err_Msg = Err_Msg & "<li>Lütfen başka bir kullanıcı adı seçin.</li>"
end if
str = Request.Form("Name")
For a = 1 To Len(str)
If Mid(str, a, 1) = Chr(160) Then
Err_Msg = Err_Msg & "<li>Lütfen başka bir kullanıcı adı seçin.</li>"
End If
Next
__________________
"I am a legal alien"
Edited by - blackinwhite on 19 June 2001 13:38:40