<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action '�ˆ—�‹æ•ª Dim EnshuName '‰‰�KCD�A ‰‰�K–¼�Ì Dim TekiyoCD '“E—vƒR�[ƒh�A“E—v Dim KanrenKaisyaCD '‰ïŽÐƒR�[ƒh�AŠÖ˜A‰ïŽÐƒR�[ƒh Dim MousikomiNum '�\�ž”Ô�† Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim Tanka '’P‰¿ Dim Suryo '�”—Ê Dim Kakaku '•W�€‰¿Ši Dim Kingaku '‹àŠz Dim Ryoritsu '—¿—¦ Dim HSyubetsuCode '•ÛŒ¯Ží•ÊCD Dim Biko '”õ�l Dim Mosikomibi 'Šñ‘õ Dim KitakuNo 'Šñ‘õŽÒŽó•t”Ô�† Dim KitakuCD 'Šñ‘õŽÒCD Dim KitakuName 'Šñ‘õŽÒ–¼�Ì Dim SyohinCD '�¤•iƒR�[ƒh Dim KitakuFrom 'Šñ‘õŠúŠÔŽn Dim KitakuTo 'Šñ‘õŠúŠÔ�I Dim KitakuSuryo 'Šñ‘õ�”—Ê Dim Basyo '‘qŒÉ�ê�Š Dim SokoBetsu '‘qŒÉŽí•Ê Dim TotalSyukosu '‘��oŒÉ�” Dim SyukoZentaka '�oŒÉŽc�‚ Dim NyukoNengappi '“üŒÉ”NŒŽ“ú Dim NyukoSuryo '“üŒÉ�”—Ê Dim Tekiyo '“E—v Dim Jyokaritsu '�]‰¿—¦ Dim Jyoryoritsu '�]—Ê—¦ Dim Niyakuritsu '‰×–ð—¦ Dim HanbaiTanka '’P‰¿ Dim SyohinJyuryo '’P—Ê Dim Nisugata '‰×Žp Dim Saisu '�Ë�” Dim SyokenNum '‘q‰×�ØŒ””Ô�† Dim SyokenTesuryo '�ØŒ”Žè�”—¿ Dim HokenTanka '‰Î�Еی¯’P‰¿ Dim HokenSougaku '‰Î�Еی¯‘�Šz Dim KasaiHokenKin '‰Î�Еی¯—¿‹à Dim KasaiRyoritsu '‰Î�Еی¯—¿—¦ Dim HokenRyokin '•ÛŒ¯—¿‹à Dim NiyakuKin '‰×–ð—¿‹à Dim HokanSougaku '•ÛŠÇ—¿ Dim Query Dim Content Dim Ng , ErrMSG , rsts Action = Request("Action") KitakuNo = Request("KitakuNo") KitakuCD = Request("KitakuCD") KitakuName=ConvKaisyaMeisyoDx(EnshuCD, KitakuCD) KitakuName = Request("KitakuName") SyohinCD = Request("SyohinCD") KitakuFrom = Request("KitakuFrom") KitakuTo = Request("KitakuTo") KitakuSuryo = Request("KitakuSuryo") Basyo = Request("Basyo") TotalSyukosu = Request("TotalSyukosu") SyukoZentaka = Request("SyukoZentaka") NyukoNengappi = Request("NyukoNengappi") SokoBetsu = Request("SokoBetsu") Tekiyo = Request("Tekiyo") Jyokaritsu = Request("Jyokaritsu") Jyoryoritsu = Request("Jyoryoritsu") Niyakuritsu = Request("Niyakuritsu") SyokenNum = Request("SyokenNum") SyokenTesuryo = Request("SyokenTesuryo") HokenTanka = Request("HokenTanka") HokenSougaku = Request("HokenSougaku") KasaiHokenKin = Request("KasaiHokenKin") KasaiRyoritsu = Request("KasaiRyoritsu") HokenRyokin = Request("HokenRyokin") HokanSougaku = Request("HokanSougaku") NiyakuKin = Request("NiyakuKin") NyukoSuryo = Request("NyukoSuryo") HanbaiTanka = Request("HanbaiTanka") SyohinJyuryo = Request("SyohinJyuryo") Nisugata = Request("Nisugata") Saisu = Request("Saisu") If IsNull(KitakuCD) then KitakuCD="" Else KitakuName=ConvKaisyaMeisyoDx(EnshuCD, KitakuCD) End If If KitakuNo = "" Then KitakuNo = "null" End If ErrMsg = Request("ErrMsg") rsts = True If rsts = False Then Ng = "fu_hoken.asp?action=" & Action & "&nr=r" Ng = Ng & "&KitakuNo=" & KitakuNo & "&KitakuCD=" & KitakuCD Ng = Ng & "&KitakuFrom=" & KitakuFrom & "&KitakuTo=" & KitakuTo Ng = Ng & "&KitakuSuryo=" & KitakuSuryo & "&Basyo=" & Basyo Ng = Ng & "&NyukoSuryo=" & NyukoSuryo & "&Tekiyo=" & Tekiyo Ng = Ng & "&TotalSyukosu=" & TotalSyukosu & "&SyukoZentaka=" & SyukoZentaka Ng = Ng & "&KasaiHokenKin=" & KasaiHokenKin & "&KasaiRyoritsu=" & KasaiRyoritsu Ng = Ng & "&HokenRyokin=" & HokenRyokin Ng = Ng & "&HokanSougaku=" & HokanSougaku Ng = Ng & "&NiyakuKin=" & NiyakuKin Ng = Ng & "&Jyoryoritsu=" & Jyoryoritsu Ng = Ng & "&Jyokaritsu=" & Jyokaritsu Ng = Ng & "&Niyakuritsu=" & Niyakuritsu Ng = Ng & "&SyokenNum=" & SyokenNum Ng = Ng & "&SyokenTesuryo=" & SyokenTesuryo Ng = Ng & "&HanbaiTanka=" & HanbaiTanka Ng = Ng & "&SyohinJyuryo=" & SyohinJyuryo Ng = Ng & "&Nisugata=" & Nisugata Ng = Ng & "&Saisu=" & Saisu Ng = Ng & "&ErrMSG=" & ErrMSG ' Response.Redirect(Ng) Response.Write(SubmitHystoryBack(Ng)) Exit Sub End If If Action = 4 Then Query = "exec SPCŠñ‘õ�í�œ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& KitakuNo &"" Set Content = OpenQuery(Query) Response.Redirect("fu_kitaku_ichiran.asp" ) Else Query = "exec SPCŠñ‘õ�X�V '" & GB_SystemCD & "'," & Action Query = Query & ",'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & "," & KitakuNo If KitakuCD="" then Query = Query & ",null" Else Query = Query & ",'" & KitakuCD & "'" End If If KitakuName="" then Query = Query & ",null" Else Query = Query & ",'" & KitakuName & "'" End If Query = Query & ",'" & SyohinCD & "'" If KitakuFrom="" then Query = Query & ",null" Else Query = Query & ",'" & KitakuFrom & "'" End If If KitakuTo="" then Query = Query & ",null" Else Query = Query & ",'" & KitakuTo & "'" End If If not isnumeric(KitakuSuryo) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(KitakuSuryo) End If If Basyo="" then Query = Query & ",null" Else Query = Query & ",'" & Basyo & "'" End If If SokoBetsu="" then Query = Query & ",null" Else Query = Query & ",'" & SokoBetsu & "'" End If If NyukoNengappi="" then Query = Query & ",null" Else Query = Query & ",'" & NyukoNengappi & "'" End If If not isnumeric(NyukoSuryo) or NyukoSuryo="" then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(NyukoSuryo) End If If not isnumeric(HanbaiTanka) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(HanbaiTanka) End If If not isnumeric(SyohinJyuryo) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(SyohinJyuryo) End If Query = Query & ",'" & NiSugata & "'" If not isnumeric(Saisu) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(Saisu) End If If Tekiyo="" then Query = Query & ",null" Else Query = Query & ",'" & Tekiyo & "'" End If If not isnumeric(TotalSyukosu) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(TotalSyukosu) End If If not isnumeric(SyukoZentaka) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(SyukoZentaka) End If If not isnumeric(KasaiHokenKin) or KasaiHokenKin="" then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(KasaiHokenKin) End If If not isnumeric(KasaiRyoritsu) or KasaiRyoritsu="" then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(KasaiRyoritsu) End If ' Query = Query & ",null" If not isnumeric(HokanSougaku) or HokanSougaku="" then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(HokanSougaku) End If If not isnumeric(NiyakuKin) or NiyakuKin="" then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(NiyakuKin) End If If not isnumeric(Jyoryoritsu) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(Jyoryoritsu) End If If not isnumeric(Jyokaritsu) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(Jyokaritsu) End If If not isnumeric(Niyakuritsu) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(Niyakuritsu) End If ' If not isnumeric(SyokenNum) then ' Query = Query & ",null" ' Else ' Query = Query & "," & ConvMoneyToInt(SyokenNum) ' End If Query = Query & ", '" & SyokenNum & "'" If not isnumeric(SyokenTesuryo) then Query = Query & ",null" Else Query = Query & "," & ConvMoneyToInt(SyokenTesuryo) End If End If 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) If Content.Fields.Count > 0 Then rsts = Content.Fields(0) End If Response.Redirect("fu_kitaku_view.asp?KitakuNo=" & rsts ) End Sub %>