<% = AppTitle %>

<% ' ' %> <% main() Sub main() Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD , SenpoBunsyoSyuruiCD, SenpoSyoribi Dim BunsyoSyuruiCD Dim Kakaku(6) '•W€’P‰¿ Dim SyohinCD(6) '¤•iƒR[ƒh Dim SyohinName(6) '¤•i–¼Ì Dim Suryo(6) '”—Ê Dim Tanka(6) '’P‰¿ Dim UnsoTanka(6) '‰^‘—’P‰¿ Dim Zaiko(6) 'ÝŒÉ”—Ê Dim GakuseiShimei 'Šw¶Ž–¼iŒWˆój Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim PageType Dim ZaikoTemp Dim SakuseiKaisyaCD Dim NyusyukoKubun Dim HenpinMotoCD Dim ShijyoCD(5) PageType = Request("PageType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") NyusyukoKubun = Request("NyusyukoKubun") Dim SyohinNyusyukkoSeikousei Dim Jissenbi Dim Kitakuriyou Dim SenpoKitakuGaisyaCD Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinNyusyukkoSeikousei = Content.Fields("¤•i“üoŒÉ®‡«—˜—p") Jissenbi = Content.Fields("ŽÀ‘H“ú") Kitakuriyou = Content.Fields("Šñ‘õ‘qŒÉ—˜—p") Query = "exec SPM‰ïŽÐŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SenpoKitakuGaisyaCD = Content.Fields("Šñ‘õ‰ïŽÐCD") End If End If '###Debug 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") 'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("SenpoBunsyoSyuruiCD:" & SenpoBunsyoSyuruiCD & "
") 'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "
") Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If Dim SenpoTmpBunsyoSyuruiCD If BunsyoSyuruiCD = "SS" Then SenpoTmpBunsyoSyuruiCD = "SU" End if ' SyoruiMei = ConvKubunMeisyo("“üoŒÉ‹æ•ª", BunsyoSyuruiCD) SyoruiMei = "Žd“ü•Ô•i" If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then Query = "exec SPD“üoŒÉŽæ“¾2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD“üoŒÉŽæ“¾2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write("Query:" & Query & "
") 'Response.Write("SenpoFlg:" & SenpoFlg & "
") Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("ì¬‰ïŽÐCD") SenpoSyoribi = Content.Fields("ˆ—“ú") Syoribi = Content.Fields("ˆ—“ú") Else TorihikisakiCD = Content.Fields("ŽæˆøæCD") SenpoSyoribi = Content.Fields("æ•ûˆ—“ú") Syoribi = Content.Fields("ˆ—“ú") End If ' If 1 = 0 Then UntinSyogakariKubun = Content.Fields("‰^’À”Š|‹æ•ª") Unsohi = Content.Fields("‰^‘—”ï") ' End If ' GakuseiShimei = Content.Fields("Ž–¼") Do While Not(Content.BOF Or Content.EOF) Dim NyusyukoSEQ NyusyukoSEQ = Content.Fields("“üoŒÉSEQ") SyohinCD(NyusyukoSEQ) = Content.Fields("¤•iCD") ShijyoCD(NyusyukoSEQ) = Content.Fields("ŽsêCD") Suryo(NyusyukoSEQ) = Content.Fields("”—Ê") Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("¤•iCD")) Zaiko(NyusyukoSEQ) = ConvSyohinZaiko(Content.Fields("¤•iCD")) 'If SenpoFlg <> 1 Then Tanka(NyusyukoSEQ) = Content.Fields("’P‰¿") 'End If ' If BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "SY" Then ' If Suryo(NyusyukoSEQ) <> "" Then ' Suryo(NyusyukoSEQ) = -1 * Suryo(NyusyukoSEQ) ' End If ' End If If 1 = 0 Then If SenpoFlg = 1 Then UnsoTanka(NyusyukoSEQ) = "" Else UnsoTanka(NyusyukoSEQ) = Content.Fields("‰^‘—’P‰¿") End If End If UnsoTanka(NyusyukoSEQ) = Content.Fields("‰^‘—’P‰¿") If UntinSyogakariKubun = "K" Then Tanka(NyusyukoSEQ) = Tanka(NyusyukoSEQ) + UnsoTanka(NyusyukoSEQ) End If If "" & Tanka(NyusyukoSEQ) = "" Then Tanka(NyusyukoSEQ) = 0 End If Content.MoveNext 'Response.Write("NyusyukoSEQ:" & NyusyukoSEQ & "
") 'Response.Write("Tanka(" & NyusyukoSEQ & "):" & Tanka(NyusyukoSEQ) & "
") Loop End If End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth '«ŽsêE¤•i•\Ž¦•‚ÌŽw’è‹y‚Ñ¤•i–¼ÌE¤•i—ª–¼Ì‚ÌŽw’èiC³061031¬–ìj SyohinMeisyo = "¤•i–¼Ì" SyohinMeisyoListWidth = "width: 200;" ShijyoListWidth = "width:80" If BunsyoSyuruiCD <> "SC" Then SyohinMeisyo = "¤•i–¼Ì" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" ElseIf BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND BunsyoSyuruiCD <> "SC" Then SyohinMeisyo = "¤•i–¼Ì" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" Else SyohinMeisyo = "¤•i–¼Ì" End If 'ªŽsêE¤•i•\Ž¦•‚ÌŽw’è‹y‚Ñ¤•i–¼ÌE¤•i—ª–¼Ì‚ÌŽw’èiC³061031¬–ìj %> <% = AppTitle %> <% 'If Kitakuriyou = "1" And Gyosyu = "S" Then %> <% If 0=1 Then %>

<% Else %> <% End If %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If BunsyoSyuruiCD = "SC" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "¤•iŠé‰æŽº", "tblbtn( '/sj4web/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "Žd“ü•”", "tblbtn( '/sj4web/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "”Ì”„•”", "tblbtn( '/sj4web/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SyohinNyusyukkoSeikousei = "1" And SenpoBunsyoNaiyoCD <> "" Then Response.Write(HttpL3_1("Žó‚¯•t‚¯‚é", "SubmitCheck()", "Žó‚¯•t‚¯‚È‚¢", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("•Û‘¶", "SubmitCheck()", "", "", "", "", "", "", "", "")) End If If BunsyoNaiyoCD <> "" Then 'Response.Write(HttpL3_2("’Ç‰Á", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) Response.Write(HttpL3_2("æ•û‘—Þˆê——", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) Else If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SX" Or SyohinNyusyukkoSeikousei = "0" Then '“üoŒÉ”ñ®‡EŽd“ü•Ô•iEƒIƒŠƒWƒiƒ‹¤•i‚Íæ•û‘—Þ–³‚µ Response.Write(HttpL3_2("ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "SY" And SenpoBunsyoSyuruiCD = "SX" Then '“üoŒÉ®‡{”„ã•Ô•i Response.Write(HttpL3_2("æ•û‘—Þˆê——", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then Response.Write(HttpL3_2("æ•û‘—Þˆê——", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("æ•û‘—Þˆê——", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "ˆê——•\Ž¦", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) End If End If ' If BunsyoNaiyoCD <> "" Then ' Response.Write(HttpL4(SyoruiMei, "C³")) ' Else Response.Write(HttpL4(SyoruiMei, "’Ç‰Á")) ' End If %>

<% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>

@

<% = BunsyoNaiyoCD %> <% If Kitakuriyou = 1 Then %> <% End If %>

“üoŒÉ”Ô†		“üoŒÉ“ú	<% = Syoribi %>
Žæˆøæ	<% Response.Write(ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD)) %>	ˆ—“ú	<% If Jissenbi <> "" And BunsyoNaiyoCD <> "" Then 'ŽÀ‘H“úŒÅ’èƒ‚[ƒhŠŽ‚ÂC³ƒ‚[ƒh %> <% ElseIf Jissenbi <> "" Then 'ŽÀ‘H“úŒÅ’èƒ‚[ƒh %> <% ElseIf (BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX") And BunsyoNaiyoCD <> "" And SyohinNyusyukkoSeikousei = "1" Then 'C³ƒ‚[ƒhi“üoŒÉ®‡‚Ìê‡‚Í”„ãoŒÉEŽd“ü•Ô•i‚ÍœŠOj%> <% Else %> <% End If %>
”[“üêŠ	<% = ConvKaisyaMeisyo(SenpoKitakuGaisyaCD) %>

¤ •i –¼ Ì

Žd“ü’P‰¿

•Ô•i‰Â”\”

•Ô•i”—Ê

•Ô•i’P‰¿

<% dim ii For ii = 1 to 5 Response.Write("") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If SyohinCD(ii) <> "" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Next %>

" & ConvSyohinMeisyo(SyohinCD(ii)) & "

" & SetMoney(Tanka(ii), false, true) & "

" & SetMoney(Suryo(ii), false, true) & "

<% If SenpoBunsyoSyuruiCD <> "" Or BunsyoNaiyoCD <> "" Then %> <% End If %>

<% = HtmlFooter %> <% End Sub %>