揭示无法显示 XML 页 下列标记没有被关闭

提示无法显示 XML 页 下列标记没有被关闭
我从数据库读出数据，然后以XML的格式显示数据，但是提示我 hd ，category ，subsort等没有关闭，可是我明明已经关闭了呀。

<%

response.ContentType= "text/xml"

Response.CharSet = "GB2312"

Response.Expires = 0

Response.write "<?xml version=""1.0"" encoding=""UTF-8"" ?>"

Response.write vbcrlf&"<hd>"

Response.write vbcrlf&vbTab&"<category>"

Response.write vbcrlf&vbTab&vbTab&"<subsort>"



‘连接数据库的语句省略



do while not rs.eof

  response.write vbcrlf&vbTab&vbTab&vbTab&"<item>"

  response.write vbcrlf&vbTab&vbTab&vbTab&vbTab&"<id>"&rs("id")&"</id>"

response.write vbcrlf&vbTab&vbTab&vbTab&"</item>"

loop



rs.close()

set rs=nothing



response.write vbcrlf&vbTab&vbTab&"</subsort>"

response.write vbcrlf&vbTab&"</category>"

response.write vbcrlf&"</hd>"

Response.End() 

%>

do while 中少了rs.movenext"<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"

Function XMLEncode(var)

	On Error Resume Next



	Dim strTmp



	If (IsNull(var)) Then

		var = ""

	End If



	If (VarType(var) = 11) Then

		If (var) Then

			strTmp = "1"

		Else

			strTmp = "0"

		End If

	Else

		strTmp = CStr(var)

		strTmp = Replace(strTmp, "&", "&")

		strTmp = Replace(strTmp, "<", "&lt;")

		strTmp = Replace(strTmp, ">", "&gt;")

		strTmp = Replace(strTmp, """", "&quot;")

		strTmp = Replace(strTmp, "'", "&apos;")

	End If



	XMLEncode = strTmp



End Function





Function XMLDecode(str)



	Dim temp

	temp=replace(str,"&amp;","&")

	temp=replace(temp,"&lt;","<")

	temp=replace(temp,"&gt;",">")

	temp=replace(temp,"&quot;","""")

	temp=replace(temp,"&apos;","'")



	XMLDecode = temp



End Function



Response.Write XmlEndode(rs("字段名字"))