<!-- Collection of code snippets by Arne VajhГёj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Dim fso
Dim tf
Dim line
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:\z.z")
line = "ЖШЕжше"
line = Replace(line,"Ж",Chr(146))
line = Replace(line,"Ш",Chr(157))
line = Replace(line,"Е",Chr(143))
line = Replace(line,"ж",Chr(145))
line = Replace(line,"ш",Chr(155))
line = Replace(line,"е",Chr(134))
tf.WriteLine line
tf.Close
%>
OK