<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim Query, Content Dim AiteShukkoHitsuyo Dim Kitakuriyou,KitakuKeiyaku Dim Kouririyou Dim SenpoHitsuyo Dim ShukkoUkeshoHitsuyo Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiA YobiA = Content.Fields("—š—ð•\Ž¦") AiteShukkoHitsuyo = "" & Content.Fields("“üŒÉŽž‘ŠŽèoŒÉ•K—v") Kitakuriyou = "" & Content.Fields("Šñ‘õ‘qŒÉ—˜—p") '060909’Ç‰Á ƒe[ƒuƒ‹‚É‚àƒtƒB[ƒ‹ƒh‚ð’Ç‰Á Kouririyou = "" & Content.Fields("¬”„”Ì”„—L–³") '070214’Ç‰Á SenpoHitsuyo = "" & Content.Fields("Žd“ü”„ã‘—Þæ•û‘—Þ•K—v") ShukkoUkeshoHitsuyo = "" & Content.Fields("oŒÉŽž’•¶¿‘•K—v") AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) End If 'Šñ‘õ—˜—pó‘Ô‚ð®”‰»i070207¬–ìj If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If 'Šñ‘õŒ_–ñó‘Ô”»’èŠÖ”‚ð’Ç‰Ái070207¬–ìj KitakuKeiyaku = KitakuKeiyakuJoutai() 'intŒ^1•¶Žš '¬”„”Ì”„—L–³ó‘Ô‚ð®”‰»i070214¬–ìj If Kouririyou = "1" Then Kouririyou = 1 Else Kouririyou = 0 End If Dim ShoshaChk Dim KanribuChk ShoshaChk = 0 KanribuChk = 0 Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("‰ïŽÐCD") <> KaisyaCD Then '¤ŽÐ‘¶Ýƒ`ƒFƒbƒN If Content.Fields("‹ÆŽíCD") = "S" Then ShoshaChk = 1 '“¯ˆêŽsê‚ÌŠÇ—•”‘¶Ýƒ`ƒFƒbƒN ElseIf Content.Fields("‹ÆŽíCD") = "K" And Content.Fields("ŽsêCD") = GB_ShijyoCD Then KanribuChk = 1 End If End If Content.MoveNext Loop %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "‘qŒÉ•”", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("‘qŒÉ•”", "")) %>

<% = Spacer(1,10) %>

y ‘qŒÉ•” z

<% = Spacer(1,10) %>

<% If AutoSyohinZaiko = "1" Then %> <% End If %>

y “üŒÉ‰Û z

<% If AiteShukkoHitsuyo = "1" Then %> <% Else %>

<% End If %>

Žd“ü“üŒÉ

<% If AiteShukkoHitsuyo = "1" Then %> <% Else %>

<% End If %>

”„ã•Ô•i

y oŒÉ‰Û z

<% If (ShukkoUkeshoHitsuyo <> "1" And ShukkoUkeshoHitsuyo <> "3") Or Gyosyu = "K" Then %> <% Else %>

<% End If %>

”„ãoŒÉ

Žd“ü•Ô•i

y ŠÇ—‰Û z

¤•iÝŒÉ

<% = HtmlFooter %> <% End Sub %>