asked on
Dim _wXML As String
'_wXML = "<?xml version=\""1.0\"" encoding=\""UTF-8\"" ?>"
_wXML = "<requestEnvelope>"
_wXML &= "<requestHeader>"
_wXML &= "<controlData>"
_wXML &= "<clientName>XMLBusinessPartnerChannel</clientName>"
_wXML &= "<userID>xmlweeksonly</userID>"
_wXML &= "<password>xmlweeksonly</password>"
_wXML &= "</controlData>"
_wXML &= "<processData>"
_wXML &= "<operationName>quickSearch</operationName>"
_wXML &= "</processData>"
_wXML &= "</requestHeader>"
_wXML &= "<SearchRequest>"
_wXML &= "<startDate>" & Format(startDate.SelectedDate, "MM/dd/yyyy").ToString & "</startDate>"
_wXML &= "<endDate>" & Format(endDate.SelectedDate, "MM/dd/yyyy").ToString & "</endDate>"
_wXML &= "<lengthOfStay>" & Trim(lengthOfStay.Text).ToString & "</lengthOfStay>"
_wXML &= "<minUnitSize>" & Trim(minUnitSize.SelectedValue).ToString & "</minUnitSize>"
_wXML &= "<regionCode>" & Trim(regionCode.Text).ToString & "</regionCode>"
_wXML &= "</SearchRequest>"
_wXML &= "</requestEnvelope>"