<% @Page CodePage="65001" %>
<SCRIPT language="VB" runat="server">

Sub Page_Load(sender As Object, e As EventArgs)

	Response.Charset = "euc-jp"

	Dim utf8Encoding As Encoding = Encoding.UTF8
	Dim ujisEncoding As Encoding = Encoding.GetEncoding( 51932 )

	Dim utf8Bytes As Byte() = utf8Encoding.GetBytes("")
	Dim ujisBytes As Byte() = ujisEncoding.GetBytes("")

	if Request.QueryString("value") = "送信" then
		utf8Bytes = utf8Encoding.GetBytes("送信を受信しました")
		ujisBytes = Encoding.Convert( utf8Encoding, ujisEncoding, utf8Bytes )
	end if 

	Response.BinaryWrite( ujisBytes )

End Sub

</SCRIPT>