<% function aplhaNumericOnly(p_string) '********************************* Dim result, xx, cc For xx = 1 To Len(p_string) cc = Mid(p_string,xx,1) If (Asc(cc) >= Asc("a") And Asc(cc) <= Asc("z")) Or _ (Asc(cc) >= Asc("A") And Asc(cc) <= Asc("Z")) Or _ (Asc(cc) >= Asc("0") And Asc(cc) <= Asc("9")) Or _ (cc = ".") Or (cc=",") Then result = result & cc Else result = result & " " End if Next aplhaNumericOnly = result end function %>