<%
Function CheckStrcn2(byVal Str)
if IsNull(Str)=true then Exit Function
Dim i,StrAsc,tempStr,perStr
tempStr=""
for i =1 to len(Str)
perStr=Mid(Str,i,1)
StrAsc=Asc(perStr)
if StrAsc < 65 or StrAsc> 122 or (StrAsc > 90 and StrAsc< 97) then
tempStr=tempStr&perStr
end if
next
CheckStrcn2=tempStr
End Function
%>
