asp加载XML问题

我要用ASP加载一个XML，有两个文件，sxml.asp这个文件用来显示XML，search.asp 这个文件加载XML
代码如下：
sxml.asp
VBScript code:

<%
response.ContentType = "text/xml"
response.Write("<?xml version=""1.0"" encoding=""utf-8""?><Root><Citys RowCounts=""2""><row><SubRowId>1</SubRowId><CityID>489</CityID><CityName>全国</CityName></row><row><SubRowId>2</SubRowId><CityID>530</CityID><CityName>北京</CityName></row></Citys></Root>")
%>


XML图：


search.asp
VBScript code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
response.Charset = "uft-8"
dim xmlcontentCity,xmldocCity
function SearchCity()
set xmlHttp = server.CreateObject("Msxml2.XMLHTTP")
xmlHttp.open "GET","sxml.asp",false
xmlHttp.send
if xmlHttp.readyState = 4 then
xmlcontentCity = xmlHttp.responseText
set xmldocCity = server.CreateObject("Microsoft.XMLDOM")
xmldocCity.async = false
xmldocCity.l