<% Dim ce As System.Text.Encoding ce = Request.ContentEncoding Response.Write("Current encoding is: " & ce.EncodingName & ".") %>