<?xml version="1.0" encoding="UTF-8"?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/" >
 <soap-env:Header/>
 <soap-env:Body>
  <ns1:ZwsLoyFormReturn xmlns:ns1="urn:sap-com:document:sap:soap:functions:mc-style" >
   <ItFormReturn>
    <item>
     <ExternalCardNu>K000000000871</ExternalCardNu>
     <FormNumber>A2222222</FormNumber>
    </item>
   </ItFormReturn>
  </ns1:ZwsLoyFormReturn>
 </soap-env:Body>
</soap-env:Envelope>

        Dim mXmlHTTP As HttpWebRequest, wr As System.Net.WebResponse
        mXmlHTTP = HttpWebRequest.Create(sServiceUrl)
        mXmlHTTP.ContentType = "application/soap+xml" 
        mXmlHTTP.KeepAlive = False
        mXmlHTTP.Method = "post"
        With New StreamWriter(mXmlHTTP.GetRequestStream)
            .Write(sXML)
            .Flush()
        End With
        wr = mXmlHTTP.GetResponse()
        mXmlHTTP.GetRequestStream.Dispose()
        sXML = (New StreamReader(wr.GetResponseStream)).ReadToEnd

 
            ZWS_LOY_MA_SAVE wMa_Save = new ZWS_LOY_MA_SAVE(); // веб сервис
               
            DataSet CashSet = new DataSet();
            MySqlCommand cmd = new MySqlCommand();
            cmd.Connection = con;
            queryStr = "SELECT request FROM table";
            DataTable TRequest = new DataTable("TRequest");
            CashSet.Tables.Add(TRequest);

            dataAdapt.SelectCommand.CommandText = queryStr;
            dataAdapt.Fill(CashSet, "TRequest");

            HttpWebRequest request = (HttpWebRequest)WebRequest.Create(new Uri(wMa_Save.Url));
            request.Method = "POST";
            request.Proxy = null;
            request.KeepAlive = false;
            request.ContentType = "application/soap+xml";

            foreach (DataRow hRow in TRequest.Rows)
            {
                StreamWriter streamWr = new StreamWriter(request.GetRequestStream());
                streamWr.Write(hRow["request"].ToString());
                WebResponse wr = request.GetResponse();
                StreamReader sr = new StreamReader(wr.GetResponseStream());
                text = sr.ReadToEnd();
            }

         foreach (DataRow hRow in TRequest.Rows)
            {
                using (Stream streamWr = request.GetRequestStream()) 
                {
                    byte[] bytes = Encoding.UTF8.GetBytes(hRow["request"].ToString());
                    streamWr.Write(bytes, 0, bytes.Length);
                    bytes = null;
                }
                using (WebResponse wr = request.GetResponse())
                {
                    using (StreamReader sr = new StreamReader(wr.GetResponseStream()))
                    {
                        text = sr.ReadToEnd().Trim();
                    }
                }

            }

streamWr.Flush()