<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If EnshuMeisyo = "" Session(HomeAlias & "GyosyuKubun") = "S" Session(HomeAlias & "GyosyuColor") = "#33CC99" Session(HomeAlias & "GyosyuColorObj") = "g" Session(HomeAlias & "GyosyuKubun") = "B" Session(HomeAlias & "GyosyuColor") = "#7499E5" Session(HomeAlias & "GyosyuColorObj") = "w" %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(8)) Response.Write(HttpL1(0)) Response.Write(HttpL2("" ,"", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "","" ,"", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("", "")) %>

演習を選択して下さい

<% = Spacer(1,15) %>

<% = Spacer(8,1) %>演習開始

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