<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content If 1 = 0 Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session("GakuseiNo") = Content.Fields("学生番号") Session("GyosyuMeisyo") = Content.Fields("業種名称") Session("GyosyuKubun") = Content.Fields("業種CD") If Content.Fields("業種CD") = "B" Then Session("Gyosyu") = "B" Else Session("Gyosyu") = "S" End If End If End If Response.Redirect(Request("url")) End Sub %>