<% 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 Query Dim Content Dim Content2 Dim Cnt 'ƒVƒ‡ƒbƒv�î•ñŽæ“¾ Dim HaisouFlg(3) Dim HaisouMei(3) Dim HaisouSoryo(3) Dim Haisou(3) Dim KessaiFlg(3) Dim KessaiMei(3) Dim Kessai(3) Set Content = QueryGetShop(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then For Cnt = 1 To 3 HaisouFlg(Cnt) = "" & Content.Fields("”z‘—•û–@ŒöŠJ" & Cnt) HaisouMei(Cnt) = "" & Content.Fields("”z‘—•û–@–¼�Ì" & Cnt) HaisouSoryo(Cnt) = "" & Content.Fields("”z‘—•û–@‘——¿" & Cnt) Haisou(Cnt) = Replace("" & Content.Fields("”z‘—•û–@" & Cnt), "
", vbCrLf) KessaiFlg(Cnt) = "" & Content.Fields("Œˆ�Ï•û–@ŒöŠJ" & Cnt) KessaiMei(Cnt) = "" & Content.Fields("Œˆ�Ï•û–@–¼�Ì" & Cnt) Kessai(Cnt) = Replace("" & Content.Fields("Œˆ�Ï•û–@" & Cnt), "
", vbCrLf) Next End If %>

Œˆ�Ï•û–@�E”z‘—•û–@‚ÌŠÇ—� <% = Spacer(7, 1) %> <% = ActionButton3Image("MenuBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 112, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ŠÇ—�ƒ�ƒjƒ…�[‚É–ß‚é", "tx1214w", "center", "location.href='" & HomeAliasSL & "shopadminmenu.asp';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("LogoutBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 64, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ƒ�ƒOƒAƒEƒg", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Logout=1';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("ReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 76, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ƒ‚�[ƒ‹‚É–ß‚é", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %>

<% For Cnt = 1 To 3 %> <% Next %> <% For Cnt = 1 To 3 %> <% Next %> <% = Spacer(1, 7) %> Œˆ�Ï•û–@<% = Cnt %> �@ –¼�Ì �@ checked<% End If %>> ‚±‚ÌŒˆ�Ï•û–@‚ðŒöŠJ‚·‚é <% = Spacer(1, 3) %> <% = Kessai(Cnt) %> <% = Spacer(1, 7) %> <% = Spacer(1, 9) %> ”z‘—•û–@<% = Cnt %> �@ –¼�Ì �@ checked<% End If %>> ‚±‚Ì”z‘—•û–@‚ðŒöŠJ‚·‚é <% = Spacer(1, 3) %> <% = Haisou(Cnt) %> <% = Spacer(1, 3) %> ”z‘—•û–@<% = Cnt %>‚Ì‘——¿ �@ "1" Then %> checked<% End If %>>’nˆæ•Ê �@ checked<% End If %>>‘S�‘ˆê—¥ <% Dim ZenkokuSoryo Query = "" Query = Query & " SELECT TM“s“¹•{Œ§.*, TFƒVƒ‡ƒbƒv‘——¿.‘——¿ " Query = Query & " FROM TM“s“¹•{Œ§ " Query = Query & " LEFT OUTER JOIN TFƒVƒ‡ƒbƒv‘——¿ " Query = Query & " ON TFƒVƒ‡ƒbƒv‘——¿.“s“¹•{Œ§CD = TM“s“¹•{Œ§.“s“¹•{Œ§CD " Query = Query & " AND TFƒVƒ‡ƒbƒv‘——¿.‹æ•ª = " & Cnt & " " Query = Query & " WHERE (TFƒVƒ‡ƒbƒv‘——¿.ƒVƒ‡ƒbƒvID IS NULL OR TFƒVƒ‡ƒbƒv‘——¿.ƒVƒ‡ƒbƒvID = " & GB_ShopAdmin & ") " Query = Query & " AND (TFƒVƒ‡ƒbƒv‘——¿.‹æ•ª IS NULL OR TFƒVƒ‡ƒbƒv‘——¿.‹æ•ª = " & Cnt & ") " ' Query = Query & " AND TM“s“¹•{Œ§.“s“¹•{Œ§CD > 0 AND TM“s“¹•{Œ§.“s“¹•{Œ§CD < 48 " Query = Query & " ORDER BY TM“s“¹•{Œ§.“s“¹•{Œ§CD " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then If Content.Fields("“s“¹•{Œ§CD") = 0 Then ZenkokuSoryo = Content.Fields("‘——¿") Content.MoveNext End If End If %> �@‘S�‘ˆê—¥‚Ì‘——¿ <% = Spacer(1, 3) %> <% Dim CellCnt CellCnt = 0 Do While Not(Content.BOF Or Content.EOF) If (CellCnt + 6) Mod 6 = 0 And CellCnt > 0 Then %> <% End If %> <% CellCnt = CellCnt + 1 Content.MoveNext Loop %> <% = Spacer(1, 3) %> <% = Right("�@" & Content.Fields("•\Ž¦–¼�Ì"), 3) %> " value="<% = Content.Fields("‘——¿") %>" style="width:36px;" class="tb1416r" maxlength="5"> <% = Spacer(6, 1) %> <% = Spacer(1, 7) %> <% = ActionButton3Image("SubmitBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 72, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "�X�@�V", "tx1416w", "center", "form1.submit();") %>

<% End Sub %>