学級紹介

<%@language="VBScript" %> <% set db=Server.CreateObject("ADODB.Connection") db.open "ptl_nomosho" Response.AddHeader "Progma","no-cache" Response.AddHeader "Cache-control","no-cache" Response.CacheControl="Private" Response.Expires="0 T_Date" ="" Request.QueryString("date") error ="" Request.QueryString("error") If T_Date="" Then T_Date ="" Year(Now()) & "/" & Month(Now()) & "/" & Day(Now()) End If D_Date ="" CDate(T_Date) firstday=Weekday(DateSerial(Year(D_Date),Month(D_Date),1),1) lastday="Day(DateSerial(Year(D_Date),Month(D_Date)" + 1,0)) B_date ="" DateSerial(Year(D_Date),Month(D_Date)-1,1) A_date ="" DateSerial(Year(D_Date),Month(D_Date)+1,1) %> 学級紹介

平成２１年度

■　１年生	■　４年生
■　２年生	■　５年生
■　３年生	■　６年生