%
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
Dim Cnt
'モール情報取得
Dim Publish
Dim Password
Dim Pref
Dim Host
Dim Title
Dim LinkURL
Dim ActName
Dim Banner
Dim NewTopic
Dim Osusume
Dim NewItem
Dim ItemList
Dim ItemSort
Dim ShopList
Query = ""
Query = Query & " SELECT * FROM TM学校 WHERE 学校CD = '" & GB_SchoolAdmin & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Password = "" & Content.Fields("パスワード")
Pref = "" & Content.Fields("都道府県CD")
Host = "" & Content.Fields("ホスト名")
Title = "" & Content.Fields("タイトル")
LinkURL = "" & Content.Fields("学校リンク")
ActName = "" & Content.Fields("名称")
Banner = "" & Content.Fields("バナー広告表示")
NewTopic = "" & Content.Fields("最新トピック表示")
Osusume = "" & Content.Fields("おすすめ商品表示")
NewItem = "" & Content.Fields("新着商品表示")
ItemList = "" & Content.Fields("商品表示")
ItemSort = "" & Content.Fields("商品初期ソート")
ShopList = "" & Content.Fields("ショップ一覧表示")
Publish = "" & Content.Fields("公開")
End If
If Banner = "" Then
Banner = "2"
End If
If NewTopic = "" Then
NewTopic = "1"
End If
If Osusume = "" Then
Osusume = "2"
End If
If NewItem = "" Then
NewItem = "2"
End If
If ItemList = "" Then
ItemList = "2"
End If
If ItemSort = "" Then
ItemSort = "0"
End If
If ShopList = "" Then
ShopList = "2"
End If
%>