xmlhttp.open问题(vb.net)

Question

代码如下 在ASP中我用VB脚本已经可以通过类似代码发送短信，但移植到.NET中就无法发送，程序没报错，感觉是xmlhttp.open没执行成功造成的，具体什么原因请高手指导一下，万分感谢！<%@ Page Language="VB" ContentType="text/html"%>
<script language="VB" runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
On Error Resume Next
Dim XmlHttp As Object
Dim xmlDoc As Object
XmlHttp = CreateObject("Microsoft.XMLHttp")  
xmlDoc = CreateObject("Msxml2.DOMDocument.3.0") dim EndPointURL,namespace1,soaprequest As string
dim spuid,pwd As string
Dim method1,szTime,szMobiles,szMSG As string
   namespace1 = "http://tempuri.org/"
   EndPointURL = "http://www.TEST.com/WebService/ttSMSsoap.php" 
   spuid = "742424068033"
   pwd = "TnpReU5ESTBNRFk0TURNeg=="
   Method1 = "SendMessage"
   szTime = ""
   szMobiles = "13612345678"
   szMSG = "123456"   xmlhttp.open ("POST", EndPointURL, False)
   soaprequest = "<env:Envelope xmlns:env=" & """" & "http://www.w3.org/2003/05/soap-envelope" & """" & " xmlns:ns1=" & """" & namespace1 & """" & ">"
   soaprequest = soaprequest & "<env:Body>"
   soaprequest = soaprequest & "<ns1:" & Trim(Method1) & ">"
   soaprequest = soaprequest & "<ns1:UserName>" & Trim(spuid) & "</ns1:UserName>"
   soaprequest = soaprequest & "<ns1:PassWord>" & Trim(pwd) & "</ns1:PassWord>"
   soaprequest = soaprequest & "<ns1:Time>" & Trim(szTime) & "</ns1:Time>"
   soaprequest = soaprequest & "<ns1:Phones>" & Trim(szMobiles) & "</ns1:Phones>"
   soaprequest = soaprequest & "<ns1:MSG>" &  Trim(szMSG) & "</ns1:MSG>"
   soaprequest = soaprequest & "</ns1:" & Trim(Method1) & ">"
   soaprequest = soaprequest & "</env:Body>"
   soaprequest = soaprequest & "</env:Envelope>"
   xmlhttp.setRequestHeader ("Content-Length", soaprequest.length)
   xmlhttp.setRequestHeader ("SOAPAction", Trim(Method1))
   xmlhttp.send (soaprequest)
   xmldoc.loadXML=xmlhttp.responseText
   'response.write (xmldoc.text) //返回信息End Sub
</script>