% ' ' %> <% 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 '****************************************** %>