% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim DenpyoNo, Torihikibi, DenpyoTekiyo '“`•[”Ô†AŽæˆø“úA“`•[“E—v Dim KanjyoCD(10) 'Š¨’è‰È–ÚƒR[ƒh Dim Kanjyomei(10) 'Š¨’è‰È–Ú–¼Ì Dim Kingaku(10) '‹àŠz Dim Tekiyo(10) '“E—v Dim TekiyoCD(10) 'ŽæˆøæCD Dim KarikataGokei, KashikataGokei 'ŽØ•û‡ŒvA‘Ý•û‡Œv Dim Query Dim Content Dim Genkin, Toza Dim Amend Dim Shimei Dim GakuseiBango Dim PageType, RouteType, AutoFlg PageType = "Š¨’èŽc‚Ý’è" If PackageMode = 1 Then PageType = "ŠúŽñŽc‚Ý’è" End If '»‘¢•”‘Ήži080411¬–ìj Dim Mode Mode = Request("Mode") Dim ShijoCD ShijoCD = Request("ShijoCD") Dim GyosyuKubun GyosyuKubun = ConvKaisyaGyosyuKubun(KaisyaCD) If Mode = "Seizo" Then '»‘¢•”‘Ήži080411¬–ìj GyosyuKubun = "G" End If Amend = Request("amend") DenpyoNo = Request("DenpyoNo") Genkin = 0 Toza = 0 KashikataGokei = 0 KarikataGokei = 0 Dim TekiyoCDs Query = "exec SPM“E—v•\Ž¦ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TekiyoCDs <> "" Then TekiyoCDs = TekiyoCDs & "," End If TekiyoCDs = TekiyoCDs & Content.Fields("“E—vCD") Content.MoveNext Loop Query = "exec SPKŒ»‹à“üo‹àŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("‹àŠz") End If Dim QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango KingakuNyusyuko = 0 QueryNyusyuko = "exec SPD“üoŒÉˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) If ContentNyusyuko.Fields("ˆ—ŽžŠú‹æ•ª") = 0 Then NyusyukoBango = ContentNyusyuko.Fields("•¶‘“à—eCD") End If ContentNyusyuko.MoveNext Loop QueryNyusyuko = "exec SPD“üoŒÉŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S', '" & NyusyukoBango & "'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) KingakuNyusyuko = KingakuNyusyuko + ContentNyusyuko.Fields("”—Ê") * ContentNyusyuko.Fields("’P‰¿") ContentNyusyuko.MoveNext Loop Dim QueryKoza, ContentKoza Dim TozaKinagku,FutsuKingaku, TeikiKingaku, TsumitateKingaku, BetsudanKingaku TozaKinagku = 0 FutsuKingaku = 0 TeikiKingaku = 0 TsumitateKingaku = 0 BetsudanKingaku = 0 QueryKoza = "exec SPB‹âsŒûÀˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''" Set ContentKoza = OpenQuery(QueryKoza) Do While Not(ContentKoza.BOF Or ContentKoza.EOF) Dim MyGinkoCD, MyKozaKubun MyGinkoCD = "" MyKozaKubun = "" If Not(ContentKoza.BOF Or ContentKoza.EOF) Then MyGinkoCD = ContentKoza.Fields("‹âsCD") MyKozaKubun = ContentKoza.Fields("ŒûÀ‹æ•ª") End If Query = "exec SPB‹âsŒûÀ“üo‹àˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("ˆ—ŽžŠú‹æ•ª") = 0 Then If MyKozaKubun = "B" Then BetsudanKingaku = BetsudanKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "F" Then FutsuKingaku = FutsuKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "L" Then TeikiKingaku = TeikiKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "M" Then TsumitateKingaku = TsumitateKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "T" Then TozaKinagku = TozaKinagku + Content.Fields("‹àŠz") End If End If Content.MoveNext Loop ContentKoza.MoveNext Loop Query = "exec SPM‰ïŽÐŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaMeisyo = Content.Fields("‰ïŽÐ–¼Ì") KaisyaRyakuMeisyo = Content.Fields("‰ïŽÐ—ª–¼Ì") End If If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %>