<%
url=http://www.hope365.com/sitmap.xml
'response.write url
'response.end
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.open "GET",url,False
http.send
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=false
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
Set node = xml.SelectSingleNode("//sessionid")
If node Is Nothing Then
response.write "a"
Else
response.write "b"
End If
%>