%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
' If Not(VisitorCheck()) Then
' Exit Sub
' End If
If Not(ShopAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim ActShopID
ActShopID = Request("ActShopID")
If LCase(ActShopID) <> LCase(GB_ShopAdmin) 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
Dim Cnt
'ショップ情報取得
Dim ItemShopNameSize
Dim ActName
Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
ItemShopNameSize = "" & Content.Fields("商品ショップ名サイズ")
ActName = "" & Content.Fields("名称")
If ActName = "" Then
ActName = "" & Content.Fields("学校名")
End If
End If
%>