%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
If Not(VisitorCheck()) Then
Exit Sub
End If
If Not(SchoolAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim ActSchoolCD
ActSchoolCD = Request("ActSchoolCD")
If LCase(ActSchoolCD) <> LCase(GB_SchoolAdmin) Then
Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf)
Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("戻る" & vbCrLf)
Exit Sub
End If
%>
<%
Dim Query
Dim Content
Dim Content2
%>