<%@ Language=VBScript %> <% public function w2utf( byval n1 ) dim n2 n2="" if isnull(n1) then w2utf="" exit function end if For z = 1 To Len(n1) n2 =n2 & "&#" & AscW(right(left(n1,z),1)) & ";" 'response.write name2 Next w2utf=n2 end function %>