<% Function DenpyoFurikae(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg) If DenpyoNo = "9999999" Or DenpyoNo = "AAAAAAA" Then Exit Function End If Dim LabelSoumu Dim LabelTanto Dim LabelKakari LabelSoumu = "" LabelTanto = "" LabelKakari = "ŒW@ˆσ" If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If Dim Torihikibi, DenpyoTekiyo Dim KanjyoCD(10) Dim Kanjyomei(10) Dim Kingaku(10) Dim TekiyoCD(10) Dim Tekiyo(10) Dim KarikataGokei, KashikataGokei Dim Title Dim TmpGyosyu If DenpyoKubun = "D8" Then Title = "»‘’•”" TmpGyosyu = "G" Else Title = "" TmpGyosyu = ConvKaisyaGyosyuKubun(KaisyaCD) End If Dim Query Dim Content Dim Shimei Dim SakujyoFlg Dim GakuseiBango Dim RouteType RouteType = Request("RouteType") KashikataGokei = 0 KarikataGokei = 0 SakujyoFlg = 0 Dim SenColor If PrintFlg > 0 Then SenColor = "#000000" Else SenColor = "#5522FF" End If SenColor = "#5522FF" Dim NextDenpyoNo, PrevDenpyoNo NextDenpyoNo = "" PrevDenpyoNo = "" If DenpyoNo <> "" Then Query = "exec SPK“`•[_U‘Φ“`•[Žζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', '" & TmpGyosyu & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žζˆψ“ϊ")) DenpyoTekiyo = Content.Fields("“`•[“E—v") SakujyoFlg = Content.Fields("νœƒtƒ‰ƒO") Shimei = Content.Fields("Ž–Ό") GakuseiBango = Content.Fields("ŠwΆ”ԍ†") Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("“`•[SEQ") KanjyoCD(DenpyoSEQ) = Content.Fields("Š¨’θCD") Kanjyomei(DenpyoSEQ) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("Š¨’θCD")) If DenpyoSEQ mod 2 = 0 Then Kingaku(DenpyoSEQ) = Content.Fields("‘έ•ϋ‹ΰŠz") KashikataGokei = KashikataGokei + Content.Fields("‘έ•ϋ‹ΰŠz") Else Kingaku(DenpyoSEQ) = Content.Fields("ŽΨ•ϋ‹ΰŠz") KarikataGokei = KarikataGokei + Content.Fields("ŽΨ•ϋ‹ΰŠz") End If TekiyoCD(DenpyoSEQ) = Content.Fields("“E—v‰οŽΠ–ΌΜ") Tekiyo(DenpyoSEQ) = Content.Fields("“E—v") '¬”„”Μ”„ If Content.Fields("“E—vCD") = "SJ4KOURIHANBAI" Then TekiyoCD(DenpyoSEQ) = ConvKaisyaMeisyo(Content.Fields("“E—vCD")) End If Content.MoveNext Loop Query = "exec SPK“`•[ŽŸ”ԍ† '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextDenpyoNo = Content.Fields("“`•[”ԍ†") End If Query = "exec SPK“`•[‘O”ԍ† '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then PrevDenpyoNo = Content.Fields("“`•[”ԍ†") End If End If End If Dim Gyousu Query = "exec SPM‰‰KŽζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Gyousu = Content.Fields("U‘Φ“`•[•\Ž¦s”") End If If Gyousu = 0 Or "" & Gyousu = "" Then Gyousu = 5 End If 'Gyousu = 2 Dim GyouHeight Dim GyouHeight2 Dim GyouHeight3 Dim GyouHaichi If Gyousu = 1 Then GyouHeight = 250 GyouHeight2 = 20 GyouHeight3 = 230 GyouHaichi = "middle" GyouHeight = 125 GyouHeight2 = 20 GyouHeight3 = 105 GyouHaichi = "middle" ElseIf Gyousu = 2 Then GyouHeight = 125 GyouHeight2 = 20 GyouHeight3 = 105 GyouHaichi = "middle" ElseIf Gyousu = 3 Then GyouHeight = 83 GyouHeight2 = 20 GyouHeight3 = 63 GyouHaichi = "middle" ElseIf Gyousu = 4 Then GyouHeight = 62 GyouHeight2 = 20 GyouHeight3 = 42 GyouHaichi = "bottom" Else GyouHeight = 50 GyouHeight2 = 20 GyouHeight3 = 30 GyouHaichi = "bottom" End If %> <% If PrintFlg > 0 Then '˜A‘±ˆσό—p’Η‰Αi070606¬–μjPrintFlg = 2‚̏ꍇ‚Ν‰όƒy[ƒW If PrintFlg = 2 Then Response.Write(PageBreakBefore) End if End if %>
<% If PrintFlg > 0 Then Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% 'DenpyoKubun = "D8" %> <% If DenpyoKubun = "D8" Then %>»‘’•”U‘Φ“`•[<% Else %>U ‘Φ “` •[<% End If %><% If "" & SakujyoFlg = "1" Then Response.Write("
¦νœΟ‚έ
") End If %>
Žζˆψ“ϊF <% = Torihikibi %>
“`•[”ԍ†F <% = DenpyoNo %>
“`•[“E—vF <% = DenpyoTekiyo %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
@ @ <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If Gyousu > 1 Then %> <% End If %> <% If Gyousu > 2 Then %> <% End If %> <% If Gyousu > 3 Then %> <% End If %> <% If Gyousu > 4 Then %> <% End If %>
ŽΨ@@•ϋ
1113<% Else %>1214<% End If %>">Š¨’θƒR[ƒh Š¨’θ–ΌΜ ‹ΰ@Šz
Žζˆψζ –ΎΧ“E—v
<% = KanjyoCD(1) %> <% = Kanjyomei(1) %> <% = SetMoney(Kingaku(1), false, true) %>
<% = HardWrap(TekiyoCD(1)) %>
<% = HardWrap(Tekiyo(1)) %>
<% = KanjyoCD(3) %> <% = Kanjyomei(3) %> <% = SetMoney(Kingaku(3), false, true) %>
<% = HardWrap(TekiyoCD(3)) %>
<% = HardWrap(Tekiyo(3)) %>
<% = KanjyoCD(5) %> <% = Kanjyomei(5) %> <% = SetMoney(Kingaku(5), false, true) %>
<% = HardWrap(TekiyoCD(5)) %>
<% = HardWrap(Tekiyo(5)) %>
<% = KanjyoCD(7) %> <% = Kanjyomei(7) %> <% = SetMoney(Kingaku(7), false, true) %>
<% = HardWrap(TekiyoCD(7)) %>
<% = HardWrap(Tekiyo(7)) %>
<% = KanjyoCD(9) %> <% = Kanjyomei(9) %> <% = SetMoney(Kingaku(9), false, true) %>
<% = HardWrap(TekiyoCD(9)) %>
<% = HardWrap(Tekiyo(9)) %>
ŽΨ•ϋ‡Œv <% = SetMoney(KarikataGokei, false, true) %>
<% If Gyousu > 1 Then %> <% End If %> <% If Gyousu > 2 Then %> <% End If %> <% If Gyousu > 3 Then %> <% End If %> <% If Gyousu > 4 Then %> <% End If %>
‘݁@@•ϋ
1113<% Else %>1214<% End If %>">Š¨’θƒR[ƒh Š¨’θ–ΌΜ ‹ΰ@Šz
Žζˆψζ –ΎΧ“E—v
<% = KanjyoCD(2) %> <% = Kanjyomei(2) %> <% = SetMoney(Kingaku(2), false, true) %>
<% = HardWrap(TekiyoCD(2)) %>
<% = HardWrap(Tekiyo(2)) %>
<% = KanjyoCD(4) %> <% = Kanjyomei(4) %> <% = SetMoney(Kingaku(4), false, true) %>
<% = HardWrap(TekiyoCD(4)) %>
<% = HardWrap(Tekiyo(4)) %>
<% = KanjyoCD(6) %> <% = Kanjyomei(6) %> <% = SetMoney(Kingaku(6), false, true) %>
<% = HardWrap(TekiyoCD(6)) %>
<% = HardWrap(Tekiyo(6)) %>
<% = KanjyoCD(8) %> <% = Kanjyomei(8) %> <% = SetMoney(Kingaku(8), false, true) %>
<% = HardWrap(TekiyoCD(8)) %>
<% = HardWrap(Tekiyo(8)) %>
<% = KanjyoCD(10) %> <% = Kanjyomei(10) %> <% = SetMoney(Kingaku(10), false, true) %>
<% = HardWrap(TekiyoCD(10)) %>
<% = HardWrap(Tekiyo(10)) %>
‘έ•ϋ‡Œv <% = SetMoney(KashikataGokei, false, true) %>
<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '˜A‘±ˆσό—p’Η‰Αi070606¬–μj Response.Write("
" & vbCrLf) End if %>
<% End Function %>