<%
' *******************************************************************
'
' *******************************************************************
Public Sub OutCr( strValue )
	Response.write strValue & vbCrLf
End Sub
' *******************************************************************
'
' *******************************************************************
Public Function LoadDebug()

	Dim sColumn

	OutCr "<TABLE border=0><TR><TD valign=top>"
	OutCr "<TABLE border=1>"

' フォーム変数
		OutCr "<TR><TD colspan=2 bgcolor=silver>フォーム変数</TD></TR>"

		if Request.Form.Count <> 0 then
			For Each SC_ITEM In Request.Form
				sColumn = Request.Form( SC_ITEM )
				if sColumn = "" then
					sColumn = "&nbsp;"
				end if
				OutCr "<TR><TD>" & SC_ITEM & "</TD><TD>" & sColumn & "</TD></TR>"
			Next
		else
			OutCr "<TR><TD>フォーム変数は存在しません</TD></TR>"
		end if

	OutCr "</TABLE></TD><TD valign=top>"
	OutCr "<TABLE border=1>"

' セッション変数
		OutCr "<TR><TD colspan=2 bgcolor=silver>セッション変数</TD></TR>"

		if Session.Contents.Count <> 0 then
			For Each SC_ITEM In Session.Contents
				sColumn = Session.Contents( SC_ITEM )
				if sColumn = "" then
					sColumn = "&nbsp;"
				end if
				OutCr "<TR><TD>" & SC_ITEM & "</TD><TD>" & sColumn & "</TD></TR>"
			Next
		else
			OutCr "<TR><TD>セッション変数は存在しません</TD></TR>"
		end if

	OutCr "</TABLE></TD><TD valign=top>"
	OutCr "<TABLE border=1>"

' クッキー変数
		OutCr "<TR><TD colspan=2 bgcolor=silver>クッキー変数</TD></TR>"

		if Request.Cookies.Count <> 0 then
			For Each SC_ITEM In Request.Cookies
				sColumn = Request.Cookies( SC_ITEM )
				if sColumn = "" then
					sColumn = "&nbsp;"
				end if
				OutCr "<TR><TD>" & SC_ITEM & "</TD><TD>" & sColumn & "</TD></TR>"
			Next
		else
			OutCr "<TR><TD>クッキー変数</TD></TR>"
		end if

	OutCr "</TABLE></TD></TR>"
	OutCr "</TABLE>"

End Function
%>