<!-- #include file="./include.asp" -->
<%
main()
Sub main()

	If Not(InternetCheck()) Then
		Exit Sub
	End If
'	If Not(VisitorCheck()) Then
'		Exit Sub
'	End If
'Response.Write(GB_VisitorID)
'Exit Sub

	Dim Query
	Dim Content

	Dim PracticeCD
	PracticeCD = Replace(Request("PracticeCD"), "'", "")

	Session("ECMallPracticeCD") = PracticeCD

	If PracticeCD <> "" Then
		Query = ""
		Query = Query & "  "
		Query = Query & " UPDATE TMビジター "
		Query = Query & " SET 最終演習CD = " & PracticeCD & " "
		Query = Query & " WHERE ログインID = '" & GB_UserID & "' "
		Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If GB_ShopAdmin <> "" Then
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TMショップ "
			Query = Query & " SET 演習CD = " & PracticeCD & " "
			Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " "
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		End If
	End If


	Dim Mail
	Mail = Replace(Request("Mail"), "'", "")

	If Mail = "1" Then
		Response.Redirect("" & HomeAliasSL & "mail/mail.asp")
	Else
		Response.Redirect("" & HomeAliasSL & "")
	End If

End Sub
%>