
<!-- #include file="include_dim.txt" -->
<!-- #include file="include_static.txt" -->
<!-- #include file="include_variable.txt" -->

<%
'トップページ表示切替のためデフォルトセッションを切り替えてからトップページへジャンプする
'ここでは変数PackageModeの元の値を取得するためinclude_static.txtのみインクルードする。

main()
Sub main()


	'USER_AGENT判定
	Dim TmpUserAgent
	TmpUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
	TmpUserAgent = Split(TmpUserAgent, "Windows NT")


	If Session(DBName & "Admin") <> "1" Then
		Session(DBName & "Admin") = "0"
	End If
	Session(DBName & "AdminPC") = ""
	If Request("admin") = "1" Then
		Session(DBName & "Admin") = "1"
		Session(DBName & "AdminPC") = "1"
	End If

	'クエリ文字列があればセッションに保持
	'（ログオフで戻った場合はセッションを更新させない）
	If Request("mode") <> "" Then
		Session(DBName & "PackageModeQuery") = Request("mode")
	End If


	'クエリ文字列セッションによるパッケージモード強制切替
	'（エイリアス名が取得出来ないのでデータベース名を接頭辞にする）
	If Session(DBName & "PackageModeQuery") = "CyberAccount21" Then
		PackageMode = 1
		MajorVersion = 4
	ElseIf Session(DBName & "PackageModeQuery") = "SuperJissenKun" Then
		PackageMode = 0
		MajorVersion = 4
	ElseIf Session(DBName & "PackageModeQuery") = "SuperJissenKun5" Then
		PackageMode = 0
		MajorVersion = 5
	ElseIf Session(DBName & "PackageModeQuery") = "SuperJissenKun6" Then
		PackageMode = 0
		MajorVersion = 6
	ElseIf Session(DBName & "PackageModeQuery") = "SuperJissenKun7" Then
		PackageMode = 0
		MajorVersion = 7
	End If
	Session(DBName & "PackageMode") = PackageMode
	Session(DBName & "MajorVersion") = MajorVersion

'Response.Write(Session(DBName & "PackageMode"))
	Response.Redirect("default_main.asp?admin=" & Request("admin") & "&MajorVersion=" & MajorVersion)

End Sub
%>