<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim KeisanHoho, Tani Dim Torihikibi, UkebaraiKubun, TorihikisakiCD Dim UkeireSuryo, UkeireTanka, UkeireKingaku Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku Dim SyohinCD Dim RouteType RouteType = Request("RouteType") SyohinCD = Request("SyohinCD") Dim Mode Mode = Request("Mode") Dim PageType PageType = "¤•i—L‚’ " Dim Label Label = "¤•i" If Mode = "Zairyo" Then PageType = "Þ—¿Œ³’ " Label = "Þ—¿" End If Dim db Set db = InitQuery() Dim ii Dim SendValue, TmpValue1, TmpValue2 KeisanHoho = Request("KeisanHoho") Tani = Request("Tani") SendValue = Request("SendValue") TmpValue1 = split(SendValue, ";") For ii = 0 To UBound(TmpValue1) - 1 TmpValue2 = split(TmpValue1(ii), ",") Torihikibi = TmpValue2(0) UkebaraiKubun = ConvRevKubunMeisyo("Žó•¥‹æ•ª", TmpValue2(1)) TorihikisakiCD = ConvRevKaisyaRyakuName(TmpValue2(2)) UkeireSuryo = TmpValue2(3) UkeireTanka = TmpValue2(4) UkeireKingaku = TmpValue2(5) HaraidasiSuryo = TmpValue2(6) HaraidasiTanka = TmpValue2(7) HaraidasiKingaku = TmpValue2(8) ZandakaSuryo = TmpValue2(9) ZandakaTanka = TmpValue2(10) ZandakaKingaku = TmpValue2(11) If UkebaraiKubun = "" Then UkebaraiKubun = "null" End If If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If TorihikisakiCD = "" Then TorihikisakiCD = "null" Else TorihikisakiCD = "'" & TorihikisakiCD & "'" End If If UkeireSuryo = "" Then UkeireSuryo = "null" End If If UkeireTanka = "" Then UkeireTanka = "null" End If If UkeireKingaku = "" Then UkeireKingaku = "null" End If If HaraidasiSuryo = "" Then HaraidasiSuryo = "null" End If If HaraidasiTanka = "" Then HaraidasiTanka = "null" End If If HaraidasiKingaku = "" Then HaraidasiKingaku = "null" End If If ZandakaSuryo = "" Then ZandakaSuryo = "null" End If If ZandakaTanka = "" Then ZandakaTanka = "null" End If If ZandakaKingaku = "" Then ZandakaKingaku = "null" End If Query = "exec SPK•â••ë_" & PageType & "‘}“ü '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & ",'" & KeisanHoho & "'" Query = Query & ",'" & Tani & "'" Query = Query & "," & Torihikibi Query = Query & "," & TorihikisakiCD Query = Query & ",'" & SyohinCD & "'" Query = Query & "," & UkebaraiKubun Query = Query & "," & UkeireTanka Query = Query & "," & UkeireSuryo Query = Query & "," & UkeireKingaku Query = Query & "," & HaraidasiTanka Query = Query & "," & HaraidasiSuryo Query = Query & "," & HaraidasiKingaku Query = Query & "," & ZandakaTanka Query = Query & "," & ZandakaSuryo Query = Query & "," & ZandakaKingaku Set Content = ExecQuery(db, Query) Next Query = "exec SPK•â••ë_" & PageType & "XV '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",'" & SyohinCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_syohinaridakatyo_view.asp?Mode=" & Mode & "&SyohinCD=" & SyohinCD & "&RouteType=" & RouteType) End Sub %>