Imports System.Environment
Imports System.IO

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main()

	' PATH 環境変数取得
	Dim strMethod as String = GetEnvironmentVariable( "REQUEST_METHOD" )

	Console.WriteLine("Content-Type: text/html; Charset=shift_jis")
	Console.WriteLine("")

	Console.WriteLine("{0}<br>", strMethod )

	if strMethod = "GET"  then
		Dim strQueryString as String = GetEnvironmentVariable( "QUERY_STRING" )
		Console.WriteLine(strQueryString)
	end if

	if strMethod = "POST"  then
		Dim line As String
		line = Console.ReadLine()
		Do While Not line Is Nothing
			Console.WriteLine(line)
			line = Console.ReadLine()
		Loop
	end if

End Sub

End Module