non incolli la pagina ma la costruisci un esempio così:
fai la tua interrogazione hai il tuo cursore "rs" fai
<ROOT>
do while not rs.eof
XMLCOMPLETO = XMLCOMPLETO & RESPONSE.WRITE "<primotag>" & RS(1) & " </primotag>"
XMLCOMPLETO = XMLCOMPLETO &RESPONSE.WRITE "<SECONDOtag>" & RS(2) &"</SECONDOtag>"
........
loop
</ROOT>