<%
function getpychar(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) or left(char,1)="a" or left(char,1)="a" then getpychar= "a"
if(tmp>=45253 and tmp<=45760) or left(char,1)="b" or left(char,1)="b" then getpychar= "b"
if(tmp>=45761 and tmp<=46317) or left(char,1)="c" or left(char,1)="c" then getpychar= "c"
if(tmp>=46318 and tmp<=46825) or left(char,1)="d" or left(char,1)="d" then getpychar= "d"
if(tmp>=46826 and tmp<=47009) or left(char,1)="e" or left(char,1)="e" then getpychar= "e"
if(tmp>=47010 and tmp<=47296) or left(char,1)="f" or left(char,1)="f" then getpychar= "f"
if(tmp>=47297 and tmp<=47613) or left(char,1)="g" or left(char,1)="g" then getpychar= "g"
if(tmp>=47614 and tmp<=48118) or left(char,1)="h" or left(char,1)="h" then getpychar= "h"
if left(char,1)="i" or left(char,1)="i" then getpychar= "i"
if(tmp>=48119 and tmp<=49061) or left(char,1)="j" or left(char,1)="j" then getpychar= "j"
if(tmp>=49062 and tmp<=49323) or left(char,1)="k" or left(char,1)="k" then getpychar= "k"
if(tmp>=49324 and tmp<=49895) or left(char,1)="l" or left(char,1)="l" then getpychar= "l"
if(tmp>=49896 and tmp<=50370) or left(char,1)="m" or left(char,1)="m" then getpychar= "m"
if(tmp>=50371 and tmp<=50613) or left(char,1)="n" or left(char,1)="n" then getpychar= "n"
if(tmp>=50614 and tmp<=50621) or left(char,1)="o" or left(char,1)="o" then getpychar= "o"
if(tmp>=50622 and tmp<=50905) or left(char,1)="p" or left(char,1)="p" then getpychar= "p"
if(tmp>=50906 and tmp<=51386) or left(char,1)="q" or left(char,1)="q" then getpychar= "q"
if(tmp>=51387 and tmp<=51445) or left(char,1)="r" or left(char,1)="r" then getpychar= "r"
if(tmp>=51446 and tmp<=52217) or left(char,1)="s" or left(char,1)="s" then getpychar= "s"
if(tmp>=52218 and tmp<=52697) or left(char,1)="t" or left(char,1)="t" then getpychar= "t"
if left(char,1)="u" or left(char,1)="u" then getpychar= "u"
if left(char,1)="v" or left(char,1)="v" then getpychar= "v"
if(tmp>=52698 and tmp<=52979) or left(char,1)="w" or left(char,1)="w" then getpychar= "w"
if(tmp>=52980 and tmp<=53640) or left(char,1)="x" or left(char,1)="x" then getpychar= "x"
if(tmp>=53689 and tmp<=54480) or left(char,1)="y" or left(char,1)="y" then getpychar= "y"
if(tmp>=54481 and tmp<=55289) or left(char,1)="z" or left(char,1)="z" then getpychar= "z"
end function
function getpy(str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function
%>
