请问如何用vbscript拼写出这样的xml文件 ，谢谢 非常着急 请尽快答复

[yushuzhang7942]

<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="house2.xsl"?>
<houses>
<house id="1">
<houseid>1</houseid>
<housesize>1liangshiyiting</housesize>
<source>1fdsdfs</source>
<configure>1qiquan</configure>
<status>1haidian</status>
<notes>1fdsfdsfsafdsafdsafds</notes>
<city>1beijing</city>
<state>1chaoyang</state>
<street>1zysyfydsy</street>
<host>1zys</host>
<telephone>113999</telephone>
<mobile>113910206123</mobile>
<coperation>1fdsadfsdfs</coperation>
</house>
<house id="2">
<houseid>2</houseid>
<housesize>2liangshiyiting</housesize>
<source>2fdsdfs</source>
<configure>2qiquan</configure>
<status>2haidian</status>
<notes>2fdsfdsfsafdsafdsafds</notes>
<city>2beijing</city>
<state>2chaoyang</state>
<street>2zysyfydsy</street>
<host>2zys</host>
<telephone>213999</telephone>
<mobile>213910206123</mobile>
<coperation>2f2dsadfsdfs</coperation>
</house>
<house id="3">
<houseid>3</houseid>
<housesize>3liangshiyiting</housesize>
<source>3fdsdfs</source>
<configure>3qiquan</configure>
<status>3haidian</status>
<notes>3fdsfdsfsafdsafdsafds</notes>
<city>3beijing</city>
<state>3chaoyang</state>
<street>3zysyfydsy</street>
<host>3zys</host>
<telephone>313999</telephone>
<mobile>313910206123</mobile>
<coperation>3fdsadfsdfs</coperation>
</house>
<house id="4">
<houseid>4</houseid>
<housesize>4liangshiyiting</housesize>
<source>4fdsdfs</source>
<configure>4qiquan</configure>
<status>4haidian</status>
<notes>4fdsfdsfsafdsafdsafds</notes>
<city>4beijing</city>
<state>4chaoyang</state>
<street>4zysyfydsy</street>
<host>4zys</host>
<telephone>413999</telephone>
<mobile>413910206123</mobile>
<coperation>4f4dsadfsdfs</coperation>
</house>
</houses>

[月光易水]

用vbscript拼出?

<script language="VBScript">
dim sXML
sXML = "<?xml version='1.0'?>" &_
"<?xml-stylesheet type='text/xsl' href='house2.xsl'?>" &_
"<houses>"&_
"省略....."&_
"<houses>"

alert(sXML)
</script>


:_)