Böyle dener misin?

Mesaj = "Test Mesaji"
    xml ="<?xml version='1.0' encoding='UTF-8'?>" & _
    "<mainbody>" & _
    "<header>" & _
    "<company>Netgsm</company>" & _
    "<usercode>xxxxxxxx</usercode>" & _
    "<password>yyyyyy</password>" & _
    "<type>1:n</type>" & _
    "<msgheader>ABCDE</msgheader>" & _
    "</header>" & _
    "<body>" & _
    "<msg><![CDATA["& Mesaj &"]]></msg>"
telefonlar=""
set toplusms = bag.execute("select id,ceptel from uyeler Order by id desc")
do until toplusms.eof   
 telefonlar = telefonlar &   "<no>"& toplusms("ceptel") &"</no>"
toplusms.movenext:loop:toplusms.Close:Set toplusms = Nothing   
  xml =  xml & telefonlar & _
    "</body>" & _
    "</mainbody>"
cevap = GETHTTPXML("http://api.netgsm.com.tr/xmlbulkhttppost.asp",xml)