<% ' ' ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName , SaimokuKubun ,GyoshuKubun Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If KanriKubun = Request("KanriKubun") GyoshuKubun = Request("GyoshuKubun") SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If Dim RouteType RouteType = Request("RouteType") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If Dim Title Title = "Š¨’è‰È–Úƒ}ƒXƒ^�[" If GyoshuKubun = "B" Then Title = "‹â�s" & Title ElseIf GyoshuKubun = "G" Then Title = "�»‘¢Œ´‰¿" & Title End If 'ƒTƒCƒo�[‰ïŒv‚̃†�[ƒU�[‰È–Ú•\Ž¦Žž‚Ì�i�ž‚݃tƒ‰ƒO Dim HyojiFlg2 HyojiFlg2 = Request("HyojiFlg2") If HyojiFlg2 = "" Then If GB_Admin < 1 Then HyojiFlg2 = "2" Else HyojiFlg2 = "0" End If End If Dim EnshuKubun Query = "exec SPM‰‰�KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("‰‰�K‹æ•ª") EnshuName = Content.Fields("‰‰�K–¼�Ì") End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 40 RowCount = 0 Dim KaishaGakuseiCD KaishaGakuseiCD = GB_GakuseiNo If EnshuKubun = "G" And GB_Admin < 1 Then KaishaGakuseiCD = GB_KaisyaCD End If Query = "exec SPMŠ¨’è‰È–Ú�Ú�׈ꗗ‘S•” '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & SaimokuKubun & "', " & HyojiFlg2 & ", '" & KaishaGakuseiCD & "'" ' Query = "exec SPMŠ¨’è‰È–Ú�Ú�׈ꗗ '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

<% Response.Write(PrintHeader(Page,Title)) %> <% If GyoshuKubun = "G" Then %> <% End If %> Š¨’è CD Š¨’è–¼�Ì Š¨’è ‹æ•ª Š¨’è�×–Ú ‘ÝŽØ •ª�͋敪 ”ï—p‹æ•ª ƒ`ƒFƒbƒN ‹æ•ª “Á•ÊŠ¨’è‹æ•ª �WŒv CD ƒLƒt CD Œ´‰¿ CD Š”Ž‘ CD <% Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) If HyojiFlg2 = "0" Or (HyojiFlg2 = "1" And Trim("" & Content.Fields("�Š—L‰ïŽÐCD")) = "") Or (HyojiFlg2 = "2" And Content.Fields("�Š—L‰ïŽÐCD") = KaishaGakuseiCD) Then RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GyoshuKubun = "G" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If End If Content.MoveNext Loop For jj = ii To 39 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GyoshuKubun = "G" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %> " & Content.Fields("Š¨’èCD") & " " & Content.Fields("Š¨’è–¼�Ì") & " " & Content.Fields("Š¨’è‹æ•ª–¼�Ì") & " " & Content.Fields("Š¨’è�×–Ú–¼�Ì") & " " & Content.Fields("‘ݎ؋敪–¼�Ì") & " " & Content.Fields("•ª�͋敪–¼�Ì") & " " & Content.Fields("”ï—p‹æ•ª–¼�Ì") & " " & Content.Fields("ƒ`ƒFƒbƒN‹æ•ª–¼�Ì") & " " & Content.Fields("“Á•ÊŠ¨’è‹æ•ª–¼�Ì") & " " & Content.Fields("�”•\�WŒvCD") & " " & Content.Fields("ƒLƒƒƒbƒVƒ…ƒtƒ��[ŒvŽZ�‘�WŒvCD") & " " & Content.Fields("�»‘¢Œ´‰¿•ñ���‘�WŒvCD") & " " & Content.Fields("Š”ŽåŽ‘–{“™•Ï“®ŒvŽZ�‘�WŒvCD") & " <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>