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

dim pid,rs
pid=request.QueryString("pid")
response.write("<root>"&chr(10))
set rs=server.CreateObject("adodb.recordset") 
rs.open "select t_city.ZName,t_city.ZID from t_city,t_province where t_city.ZUP=t_province.ZID and t_province.ZName='"&pid&"' order by t_city.ZPostCode asc",conn,3,1
while not rs.eof
	response.write("<city>"&chr(10))
	response.write("	<id>"+rs(1)+"</id>"&chr(10))
	response.write("	<title>"+rs(0)+"</title>"&chr(10))
	response.write("</city>"&chr(10))
	rs.movenext
wend
rs.close
set rs=nothing
response.write("</root>")
call connclose()
%>