<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "‘¹‰v•ªŠò“_•ª�Í" Dim JissekiSonekiBunkitenUriage, JissekiUriagedakaRiekiRitsu Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiGenkaiRieki, JissekiGenkaiRiekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi JissekiMokuhyoUriageDaka = 0 JissekiUriagedakaHi = 0 JissekiUriageGenka = 0 JissekiUriageGenkaHi = 0 JissekiGenkaiRieki = 0 JissekiGenkaiRiekiHi = 0 JissekiKoteihi = 0 JissekiKoteihiHi = 0 JissekiZeibikimaeRieki = 0 JissekiZeibikimaeRiekiHi = 0 Dim Query, Content Query = "exec SPR•ª�Í_‘¹‰vŽÀ�ю擾" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰�KCD Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim Meisyo Meisyo = Content.Fields("–¼�Ì") If Meisyo = "ŒÅ’è”ï" Then JissekiKoteihi = Content.Fields("‹àŠz") ElseIf Meisyo = "•Ï“®”ï" Then JissekiUriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) + Content.Fields("‹àŠz") ElseIf Meisyo = "”„�ã�‚" Then JissekiMokuhyoUriageDaka = Content.Fields("‹àŠz") ElseIf Meisyo = "•Ï“®”ï" Then End If Content.MoveNext Loop JissekiGenkaiRieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka JissekiZeibikimaeRieki = JissekiGenkaiRieki - JissekiKoteihi JissekiUriagedakaHi = 100 If JissekiMokuhyoUriageDaka <> 0 Then JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 / JissekiMokuhyoUriageDaka) JissekiGenkaiRiekiHi = Int(JissekiGenkaiRieki * 100 / JissekiMokuhyoUriageDaka) JissekiKoteihiHi = Int(JissekiKoteihi * 100 / JissekiMokuhyoUriageDaka) JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 / JissekiMokuhyoUriageDaka) JissekiUriagedakaRiekiRitsu = 1 - (JissekiUriageGenka / JissekiMokuhyoUriageDaka) End If If JissekiUriagedakaRiekiRitsu <> 0 Then JissekiSonekiBunkitenUriage = Int(JissekiKoteihi / JissekiUriagedakaRiekiRitsu) End If %> <% = PrintScriptX %>

<% Response.Write(PrintHeader(0, PageType)) %>

�€–Ú ‹àŠz �\�¬”ä(%) ”„�ã�‚ <% = ConvIntToMoney(JissekiMokuhyoUriageDaka, false, false) %> 100    •Ï“®”ï <% = ConvIntToMoney(JissekiUriageGenka, false, false) %> <% = JissekiUriageGenkaHi %> ŒÀŠE—˜‰v <% = ConvIntToMoney(JissekiGenkaiRieki, false, false) %> <% = JissekiGenkaiRiekiHi %>    ŒÅ’è”ï <% = ConvIntToMoney(JissekiKoteihi, false, false) %> <% = JissekiKoteihiHi %> Œo�í—˜‰v <% = ConvIntToMoney(JissekiZeibikimaeRieki, false, false) %> <% = JissekiZeibikimaeRiekiHi %> <% 'If JissekiSonekiBunkitenUriage <> "" And JissekiKoteihi <> "" And JissekiUriagedakaRiekiRitsu <> "" Then %> <% 'End If %>

<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>