<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :商品一覧 ' 作成日 :2002/9/6 ' 作成者 :徳田 ' 目的 :商品Mの一覧画面を表示する。 ' 概要 : ' :[080314小野]材料マスタモードを追加 ' :[080318小野]製造部商品開発モードを追加 '################################################ '--> %> <% main() Sub main() Dim KanriKubun Dim EnshuName Dim GenkaKaikeiRiyo Dim Query Dim Content, SyohinCD2 Dim SyohinKubun If Not(SessionCheck()) Then Exit Sub End If Dim ShijoCD ShijoCD = Request("ShijoCD") SyohinCD2 = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim Mode Mode = Request("Mode") Dim Kubun Kubun = Request("Kubun") Dim MasterEnshu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MasterEnshu = Content.Fields("マスター演習") EnshuName = Content.Fields("演習名称") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type="text/javascript" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> <!-- var lsURL="#" function syokaibtn() { if(lsURL == "#") { alert("選択されていません"); } else { tblbtn(lsURL + "&RouteType=<% = RouteType %>&PageType=<% = PageType %>&ShijoCD=<% = ShijoCD %>&Mode=<% = Mode %>&Kubun=<% = Kubun %>"); } } //TRselect & URLset function celsel(rw,selURL) { var trw; trw=rw; lsURL=selURL; for (k=0; k<document.all['SyoukaiList'].rows.length; k++) { document.all['SyoukaiList'].rows[k].style.backgroundColor =""; }//セル色クリア document.all['SyoukaiList'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更 } //--> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" > <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <input type="hidden" name="KanriKubun" value="<% = KanriKubun %>"> <input type="hidden" name="SyohinCD" value="<% = SyohinCD2 %>"> <input type="hidden" name="Mode" value="<% = Mode %>"> <% Dim Title Dim Barcode1 Dim Barcode2 If Mode = "Zairyo" Then Title = "材料" Else Title = "商品" If PackageMode = "1" Then Else Barcode1 = " バーコード印刷 " Barcode2 = "PrintoutReal2()" End If End If Response.Write(HtmlDesign(1)) If PageType = "Original" Or PageType = "SeizoBu" Then Response.Write(HttpL1(3)) Else Response.Write(HttpL1(4)) End If If PageType = "Original" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn('/" & HomeAlias & "/user/bk/menu_s5.asp')", "オリジナル商品管理", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "')", "", "", "", "", "", "", "", "")) ElseIf PageType = "SeizoBu" Then If Mode = "BuhinTenkai" Or Mode = "KeihiRoumuhi" Then If Kubun = "K" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "経費管理", "", "", "", "", "")) ElseIf Kubun = "R" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "労務費管理", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "部品展開", "", "", "", "", "")) End If Response.Write(HttpL3_1("選択", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", Title & "開発", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&PageType=" & PageType & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If ElseIf GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", Title & "マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) 'SYSORIGNには追加出来ないよう修正(061114小野)マスター編集モードでは追加出来るよう修正(090219小野) If (EnshuCD <> "SYSORIGN" And MasterEnshu <> "1") Or DebugFlg > 1 Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shohin.asp?Action=1&ShijoCD=" & ShijoCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", Title & "マスター", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", Barcode1, Barcode2, "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If If PageType = "Original" Then Response.Write(HttpL4("オリジナル商品管理", "")) ElseIf PageType = "SeizoBu" Then If Mode = "BuhinTenkai" Then Response.Write(HttpL4("部品展開", Title & "選択")) ElseIf Mode = "KeihiRoumuhi" Then If Kubun = "K" Then Response.Write(HttpL4("経費管理", Title & "選択")) Else Response.Write(HttpL4("労務費管理", Title & "選択")) End If Else Response.Write(HttpL4("開発" & Title, "一覧表示")) End If Else Response.Write(HttpL4(Title & "マスター", "一覧表示")) End If '↓↓↓SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野) If EnshuCD = "SYSORIGN" And DebugFlg < 1 Then Response.Write(HttpL5("演習コード SYSORIGN の演習は" & Title & "を追加出来ません")) ElseIf MasterEnshu = "1" Then If PageType <> "SeizoBu" Then Response.Write(HttpL5("マスター演習に設定されているため" & Title & "を追加出来ません")) End If End If '↑↑↑SYSORIGNには追加出来ないよう修正(061114小野)デバッグモードでは追加出来るよう修正(070207小野) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td valign="top"> <table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="660" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE WIDTH="700" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <% If GB_Admin = 2 Then %> <TR> <TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="700" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="220" HEIGHT="30">対象演習名</TD> <TD WIDTH="280" HEIGHT="30"><%= EnshuName %></TD> </TR> </TABLE> </TD> </TR> <TR> <TD HEIGHT="20"></TD> </TR> <% End If %> <% 'PackageMode = "1" %> <% 'TaxRateSelection = 1 %> <% If PackageMode = "1" Then %> <TR> <TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="700" HEIGHT="24" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <td align="center" width="60"><% = Title %>CD</td> <td align="center"><% = Title %>名称</td> <td align="center" width="170"><% = Title %>略名称</td> <td align="center" width="110"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %></td> <td align="center" width="70">標準税率</td> </TR> </TABLE> </TD> </TR> <% Else %> <% If PageType <> "Original" And PageType <> "SeizoBu" Then %> <TR> <TD height="1" CLASS="tx1416"> 市場で絞り込む <select size="1" name="ShijoCD" class="tbox4" onChange="tblbtn('fm_shohin_ichiran.asp?PageType=<% = PageType %>&ShijoCD=' + this.value + '&SyohinKubun=<% = SyohinKubun %>&Mode=<% = Mode %>');"> <option value="">全て表示</option> <% Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("市場CD") & """") If "" & Content.Fields("市場CD") = ShijoCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf) Content.MoveNext Loop %> <option value="higenteietnegih"<% If ShijoCD = "higenteietnegih" Then Response.Write(" selected") End If %>>市場非限定</option> </select> </TD> </TR> <% End If %> <% End If %> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:720px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;"> <TABLE ID="SyoukaiList" WIDTH="700" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#0000FF" CLASS="tx1416"> <% Dim ImageFile, Tani Dim Lot Dim SyohinCD, Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称 Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価 Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積 Dim Bikou '備考 Dim ShijyoCD, SyoyuKaisyaRyakuMeisyo, SyoyuKaisyaCD '市場コード、所有会社略名、所有会社コード Dim TaxRate Dim ShijyoA, ShijyoB Dim ii, jj, iiDef ii = 0 iiDef = -1 Dim LoopFlg If Mode = "BuhinTenkai" Or Mode = "KeihiRoumuhi" Then 'LoopFlg = 2 LoopFlg = 1 '多段製造機能は廃止。部品展開・経費労務費の対象は製品のみ。 Else LoopFlg = 1 End If For jj = 1 To LoopFlg If jj = 2 Then Title = "材料" End If Query = "exec SPM" & Title & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) 'Response.Write(Query) 'Exit Sub Do While Not(Content.BOF Or Content.EOF) If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then If (Mode <> "BuhinTenkai" And Mode <> "KeihiRoumuhi") Or (SyohinKubun = "S" And Title = "商品") Or (SyohinKubun = "Z" And Title = "材料") Then If SyohinCD2 = Content.Fields("" & Title & "CD") Then iiDef = ii End If End If SyohinCD = Content.Fields("" & Title & "CD") If GB_GakuseiNo <> "" Then SyohinCD = Replace(SyohinCD, "-" & GB_GakuseiNo, "") End If Shohinmei = Content.Fields("" & Title & "名称") ShohinRyakumei = Content.Fields("" & Title & "略名称") HanbaiTanka = ConvIntToMoney(Content.Fields("標準販売単価"),false,false) ShireTnanka = ConvIntToMoney(Content.Fields("標準仕入単価"),false,false) UnsoTanka = ConvIntToMoney(Content.Fields("運送料単価"),false,false) SokoryoTanka = ConvIntToMoney(Content.Fields("倉庫料単価"),false,false) Jyuryo = ConvIntToMoney(Content.Fields("" & Title & "重量"),false,false) Yoseki = ConvIntToMoney(Content.Fields("" & Title & "容積"),false,false) Bikou = Content.Fields("備考") ImageFile = "" If Content.Fields("画像ファイル") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル") End If Tani = Content.Fields("単位") Lot = Content.Fields("ロット") ShijyoCD = Content.Fields("市場CD") SyoyuKaisyaRyakuMeisyo = Content.Fields("所有会社略名称") SyoyuKaisyaCD = Content.Fields("所有会社CD") TaxRate = Content.Fields("標準消費税率") If ShijyoCD <> "" Then ShijyoA = "市場" ShijyoB = "" & Content.Fields("市場名称") If ShijyoB = "" Then 'ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">設定された<BR>市場が存在<BR>しません</font></span>" ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">市場コード<BR>[ <B>" & ShijyoCD & "</B> ]<BR>の市場が<BR>存在しません</font></span>" End If Else ShijyoA = "製造会社" ShijyoB = SyoyuKaisyaRyakuMeisyo End If '製造部では自社企画及びマスターを表示 '商品企画室では自社商品のみ表示 ' If (PageType <> "Original" And PageType <> "SeizoBu") Or (PageType = "SeizoBu" And (SyoyuKaisyaCD = KaisyaCD Or SyoyuKaisyaCD = "")) Or (PageType = "Original" And SyoyuKaisyaCD = KaisyaCD) Then '製造部・商品企画室では自社商品・材料のみ表示 If (PageType <> "Original" And PageType <> "SeizoBu") Or ((PageType = "SeizoBu" Or PageType = "Original") And SyoyuKaisyaCD = KaisyaCD) Then If Mode = "KeihiRoumuhi" Then Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'/" & HomeAlias & "/user/bk/shiireuriage/fd_keihiroumuhi_view.asp?SyohinCD=" & Content.Fields("" & Title & "CD") & "&SyohinKubun=") If Title = "材料" Then Response.Write("Z") Else Response.Write("S") End If Response.Write("')"" onDblClick=""syokaibtn()"">" & vbCrLf) Else Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_") If Mode = "BuhinTenkai" Then Response.Write("buhintenkai") Else Response.Write("shohin") End If Response.Write("_view.asp?SyohinCD=" & Content.Fields("" & Title & "CD") & "&SyohinKubun=") If Title = "材料" Then Response.Write("Z") Else Response.Write("S") End If Response.Write("')"" onDblClick=""syokaibtn()"">" & vbCrLf) End If If PackageMode = "1" Then %> <td align="center" width="60"><% = SyohinCD %></td> <td align="center" height="23"> <% = Shohinmei %> </td> <td align="center" width="170"> <%= ShohinRyakumei %> </td> <td align="right" width="110"> <% = HanbaiTanka %> </td> <% If TaxRateSelection Then %> <td align="right" width="70"> <% = TaxRate %> % </td> <% End If Else %> <td> <table border="0" width="700" cellspacing="0" cellpadding="0"> <!-- <tr> <td height="10" colspan="2" bgcolor="#CCCCCC"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1214" STYLE="border-collapse: collapse"> <tr> <td align="center" width="110"><% = Title %>コード</td> <td align="center"><% = SyohinCD %></td> </tr> </table> </td> </tr> --> <tr> <td> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr bgcolor="#dddddd"> <td align="center" height="27" CLASS="tx1214"><nobr><% = Title %>CD</nobr></td> <td align="center" width="280"><% = Title %>名称</td> <td align="center" width="140"><% = Title %>略名称</td> <td align="center" width="100"><% = ShijyoA %></td> </tr> <tr> <td align="center" height="31" CLASS="tx1214"><nobr><% = SyohinCD %></nobr></td> <td align="center"><% = HardWrap(Shohinmei) %></nobr></td> <td align="center"><nobr><%= ShohinRyakumei %></nobr></td> <td align="center"><nobr><% = ShijyoB %></nobr></td> </tr> </table> </td> <td width="120" rowspan="2"> <TABLE width="122" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td align="center" height="27" bgcolor="#dddddd"><% = Title %>画像</td> </tr> <tr> <td width="120" height="91"><% If ImageFile <> "" Then %><img src="<% = ImageFile %>" width="120" height="90" border="0"><% Else %> <% End If %></td> </tr> </table> </td> </tr> <tr> <td> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1315" STYLE="border-collapse: collapse"> <tr bgcolor="#dddddd"> <td align="center" height="26" width="16%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %></td> <% If TaxRateSelection = 1 Then %> <td align="center" width="8%">税率</td> <% End If %> <td align="center" width="16%">標準仕入単価</td> <td align="center" width="13%">運送料単価</td> <td align="center" width="13%">倉庫料単価</td> <td align="center" width="11%"><% = Title %>重量</td> <td align="center" width="11%"><% = Title %>容積</td> <td align="center">単位</td> <% If PageType = "SeizoBu" Then %> <td align="center" width="8%">ロット</td> <% End If %> </tr> <tr> <td align="right" height="31" width="16%"><% = HanbaiTanka %></td> <% If TaxRateSelection = 1 Then %> <td align="right"><% = TaxRate %>%</td> <% End If %> <td align="right"><% = ShireTnanka %></td> <td align="right"><% = UnsoTanka %></td> <td align="right"><% = SokoryoTanka %></td> <td align="right"><% = Jyuryo %></td> <td align="right"><% = Yoseki %></td> <td align="center"><% = Tani %></td> <% If PageType = "SeizoBu" Then %> <td align="right" width="8%"><% = Lot %></td> <% End If %> </tr> </table> </td> </tr> <tr> <td colspan="2"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td align="center" width="60" height="27" bgcolor="#dddddd">備考</td> <td align="center"><% = Bikou %></td> </tr> </table> </td> </tr> </table> </td> <% End If Response.Write("</tr>") ii = ii + 1 End If End If Content.MoveNext Loop Next %> </TABLE> </DIV> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </div> <% = iiDef %> </form> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> <% ' 2006.12.19 スクロールポジション対応 %> <% If iiDef <> -1 Then %> celsel(<% = iiDef %>, "fm_shohin_view.asp?SyohinCD=<% = SyohinCD2 %>") Layer1.scrollTop = <% = (iiDef - 1) * 161 %>; // Layer1.scrollTop = <% = (iiDef - 5) * 20 %>; <% End If %> </script> </body> <% = HtmlFooter %> </html> <% End Sub %>