<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim GenkinSuitotyoCD, Torihikibi, Tekiyo, Syunyu, Shisyutsu, Zandaka Dim RouteType RouteType = Request("RouteType") Dim db Set db = InitQuery() Dim ii Dim SendValue, TmpValue1, TmpValue2 SendValue = Request("SendValue") TmpValue1 = split(SendValue, ";") For ii = 0 To UBound(TmpValue1) - 1 TmpValue2 = split(TmpValue1(ii), ",") '”¼ŠpƒJƒ“ƒ}EƒZƒ~ƒRƒƒ“‚ð‘ã‘Ö•¶Žš‚©‚猳‚É–ß‚·ˆ—i070201¬–ìj Dim iii For iii = 0 To UBound(TmpValue2) - 1 TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",") TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";") Next '”¼ŠpƒJƒ“ƒ}EƒZƒ~ƒRƒƒ“‚ð‘ã‘Ö•¶Žš‚©‚猳‚É–ß‚·ˆ—i070201¬–ìj Torihikibi = TmpValue2(0) Tekiyo = TmpValue2(1) Syunyu = TmpValue2(2) Shisyutsu = TmpValue2(3) Zandaka = TmpValue2(4) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If Syunyu = "" Then Syunyu = "null" End If If Shisyutsu = "" Then Shisyutsu = "null" End If If Zandaka = "" Then Zandaka = "null" End If Query = "exec SPK•â••ë_Œ»‹ào”[’ ‘}“ü '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & ",'" & Tekiyo & "'" Query = Query & "," & Syunyu Query = Query & "," & Shisyutsu Query = Query & "," & Zandaka Set Content = ExecQuery(db, Query) Next Query = "exec SPK•â••ë_Œ»‹ào”[’ XV '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_genkinsuitotyo_view.asp?RouteType=" & RouteType) End Sub %>