<!--#include file="WebConfig/Conn.asp"-->
<!--#include file="WebConfig/LoginYN.asp"-->
<%
	Id=Request.QueryString("Id")
	Set rsNext=Server.CreateObject("ADODB.RecordSet")
	rsNext.Open "Select Id,NewsClassName from NewsClass where parentClass="&Id,conn,1,1
	Response.Write "["
	Do While Not rsNext.Eof
		Response.Write(rsNext("NewsClassName")&","&rsNext("Id")&",")
	rsNext.MoveNext
	Loop
	Response.Write "0]"
	rsNext.Close
	Set rsNext=Nothing
%>