<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
Response.ContentType="application/xml"
Response.Charset="utf-8" 
Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>"&chr(10))

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