<% DATA=EncodeData() Set TeikeiHTML=GetTeikeiHTML() Panel =TeikeiHTML("Header") Footer=TeikeiHTML("Footer") Set db=JHO_Connect() Set rst=Server.CreateObject("ADODB.Recordset") For i=1 To UBound(KenName) OPT_KEN_CODE=OPT_KEN_CODE & "" & KenName(i) Next Response.Write GetContents("include/" & GetParam("f")) %>