<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content, rsts, RouteType Dim DbEnshuCD, EnshuCD Dim TutyoSyusei Dim TegataSyusei RouteType = Request("RouteType") DbEnshuCD = Request("DbEnshuCD") EnshuCD = LCase(Request("EnshuCD")) TutyoSyusei = Request("TutyoSyusei") TegataSyusei = Request("TegataSyusei") Query = "exec SPM‰‰KXV0 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'" Query = Query & ",'" & TutyoSyusei & "'" Query = Query & ",'" & TegataSyusei & "'" Set Content = OpenQuery(Query) If Content.Fields.Count > 0 Then rsts = Content.Fields(0) End If Session(HomeAlias & "EnshuCD") = EnshuCD Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD) Response.Redirect("fm_enshu0_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType) End Sub %>