<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<!--#include file="inc/conn.asp"-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"

provinceId = CInt(left(request("provinceId"),2))

set con=getConn()
set rs=getRs()

sql="select CityID, CityPostCode, CityName from ChinaCity where Right(CityPostCode, 2) = '00'"
sql=sql&" and Left(CityPostCode,2)='"&provinceId&"' and Right(CityPostCode, 4) <> '0000' order by [CityID]"
rs.open sql,con,1,1
			
while not rs.bof and not rs.eof
	outStr=outstr & rs("CityPostCode") & "-" & rs("CityName") & ","
	rs.movenext
wend
			
rs.close
con.close

outStr=left(outStr, len(outStr)-1)	'remove the last ','
response.Write(outStr)
%>