<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
Response.ContentType="application/xml"
Response.Charset="gb2312" 
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")

dim pid,rs
pid=Cint(request.QueryString("pid"))
response.write("<root>"&chr(10))
set rs=server.CreateObject("adodb.recordset") 
rs.open "select id,title from t_lp_edu_area where AreaId="&pid,conn,3,1
while not rs.eof
	response.write("<area>"&chr(10))
	response.write("	<id>"&rs(0)&"</id>"&chr(10))
	response.write("	<title>"&rs(1)&"</title>"&chr(10))
	response.write("</area>"&chr(10))
	rs.movenext
wend
rs.close
set rs=nothing
response.write("</root>")
call connclose()
%>