<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "‘¹‰vŒv‰æ" 'Dim ZeibikimaeRieki 'ZeibikimaeRieki= Request("ZeibikimaeRieki") Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, UriagedakaRiekiRitsu Shihonkin = 0 ShihonkinRiekiRitsu = 0 KazeiRitsu = 0 Koteihi = 0 UriagedakaRiekiRitsu = 0 Dim Query, Content Query = "exec SPR•ª�Í_‘¹‰vŒv‰æŽæ“¾" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰�KCD Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shihonkin = Content.Fields("Ž‘–{‹à") ShihonkinRiekiRitsu = Content.Fields("Ž‘–{‹à�ƒ—˜‰v—¦") KazeiRitsu = Content.Fields("‰Û�Å—¦") Koteihi = Content.Fields("ŒÅ’è”ï") UriagedakaRiekiRitsu = Content.Fields("”„�ã�‚‘�—˜‰v—¦") End If '****************************************** Dim Shihonkin1, Jyunriekigaku,Jyunriekigaku1, ZeibikimaeRieki, ZeibikimaeRieki1 Dim MokuhyoUriageDaka, UriagedakaRiekiRitsu1, Koteihi1, SonekiBunkitenUriage,SonekiBunkitenUriage1 Dim MokuhyoUriageDaka1, SoriekiHi,Sorieki, UriageGenka,Koteihi2,ZeibikimaeRieki2,UriageGenkaHi Dim UriagedakaHi,KoteihiHi,ZeibikimaeRiekiHi UriagedakaHi=100 'KoteihiHi=0 Shihonkin1= ConvIntToMoney(ConvMoneyToInt(Shihonkin), false, false) Jyunriekigaku = ConvIntToMoney(ConvMoneyToInt(Shihonkin1) * ShihonkinRiekiRitsu, false, false) Jyunriekigaku1 = Jyunriekigaku if(KazeiRitsu <> "1") Then 'ZeibikimaeRieki = ConvIntToMoney(Math.floor(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki = ConvIntToMoney(Int(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki1 = ZeibikimaeRieki if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then MokuhyoUriageDaka = ConvIntToMoney(Int((ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki1 )) / UriagedakaRiekiRitsu ), false, false) else MokuhyoUriageDaka = "0" End If UriagedakaRiekiRitsu1 = UriagedakaRiekiRitsu Koteihi1 = Koteihi if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then 'SonekiBunkitenUriage = ConvIntToMoney(Math.floor(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) SonekiBunkitenUriage = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) else SonekiBunkitenUriage = "0" End If MokuhyoUriageDaka1 = MokuhyoUriageDaka SoriekiHi = UriagedakaRiekiRitsu * 100 UriageGenkaHi = 100 - SoriekiHi if(ConvMoneyToInt( MokuhyoUriageDaka ) <> 0) Then KoteihiHi = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi ) * 100 / ConvMoneyToInt( MokuhyoUriageDaka )), false, false) ZeibikimaeRiekiHi = SoriekiHi - KoteihiHi Sorieki = ConvIntToMoney(ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki ), false, false) UriageGenka = ConvIntToMoney(ConvMoneyToInt( MokuhyoUriageDaka ) - ConvMoneyToInt( Sorieki ), false, false) Koteihi2 = ConvIntToMoney(Koteihi, false, false) ZeibikimaeRieki2 = ZeibikimaeRieki End If End If '****************************************** %>

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

Ž‘–{‹à = <% = ConvIntToMoney(Shihonkin, false, false) %> –Ú•W�ƒ—˜‰vŠz = <% =Shihonkin1%> x <% = ShihonkinRiekiRitsu %> = <% =Jyunriekigaku%> Ž‘–{‹à Ž‘–{‹à�ƒ—˜‰v—¦ �@   –Ú•W�ňø‘O—˜‰vŠz = <% = Jyunriekigaku1%> / ( 1 - <% = KazeiRitsu %> ) = <% = ZeibikimaeRieki%> –Ú•W�ƒ—˜‰vŠz ‰Û�Å—¦ �@   –Ú•W”„�ã�‚ = ( <% = ConvIntToMoney(Koteihi, false, false) %> + <% = ZeibikimaeRieki1 %> ) /  <% = UriagedakaRiekiRitsu %> = <% = MokuhyoUriageDaka %> ŒÅ’è”ï –Ú•W�ňø‘O—˜‰vŠz ŒÀŠE—˜‰v—¦ �@   ‘¹‰v•ªŠò“_”„�ã = <% = Koteihi1 %>  / <% = UriagedakaRiekiRitsu1 %> = <% = SonekiBunkitenUriage %> ŒÅ’è”ï ŒÀŠE—˜‰v—¦   �€–Ú ‹àŠz �\�¬”ä(%) –Ú•W”„�ã�‚ <% = MokuhyoUriageDaka1 %> <% = UriagedakaHi %>   •Ï“®”ï <% = UriageGenka %> <% = UriageGenkaHi %> ŒÀŠE—˜‰v <% = Sorieki %> <% = SoriekiHi %>   ŒÅ’è”ï <% = Koteihi2 %> <% = KoteihiHi %> Œo�í—˜‰v <% = ZeibikimaeRieki2 %> <% = ZeibikimaeRiekiHi %>

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