Использовал для вап сайта, заодно и транслит
Function encode(str_in)
If session("lng") = "trs" then
sym = Array("A","B","V","G","D","E","JO","Z", _
"I","J","K","L","M","N","O","P","R", _
"S","T","U","F","H","C","CH","SH","SHH", _
"#","Y","'","JE","JU","JA","a","b","v", _
"g","d","e","jo","z","i","j","k","l","m","n","o","p","r", _
"s","t","u","f","h","c","ch","sh","shh", _
"#","y","'","je","ju","ja")
else
sym = Array("А","Б","В","Г","Д","Е","Ж","З", _
"И","Й","К","Л","М","Н","О","П","Р", _
"С","Т","У","Ф","Х","Ц","Ч","Ш","Щ", _
"Ъ","Ы","Ь","Э","Ю","Я","а","б","в", _
"г","д","е","ж","з","и","й","к","л", _
"м","н","о","п","р","с","т","у","ф", _
"х","ц","ч","ш","щ","ъ","ы","ь","э", _
"ю","я")
End If
For i = 1 to Len(str_in)
ch = mid(str_in,i,1)
if asc(ch) >= 1040 and asc(ch) <= 1103 then ch = sym(asc(ch) - 1040)
if asc(ch) >= 192 and asc(ch) <= 255 then ch = sym(asc(ch) - 192)
str_out = str_out & ch
Next
encode = str_out
End Function