Using SOAP With Classic ASP / VBScript

Introduction

This is an example of how to use SOAP in Classic ASP / VBScript to communicate with a web service. This article is intended for those who still have to work with Legacy technology at work (like myself). This script checks the query string for a user ID, updates an existing record if a user id is present, and creates a new record otherwise.

Using the code

This is pretty straight forward stuff.

1. Grab values from text inputs and assign them to variables.
2. Concatenate your SOAP parameters and use type conversions where necessary.
3. put your SOAP parameters in your SOAP envelope.
4. Then send.

<script language="VBScript">
Function Return()
    Window.Navigate "https://www.realequityhomes.com/rehadmin_manageprops.aspx"
End Function

Function AddProperty()
Dim serviceUrl
Dim TableHTML
Dim SOAPRequest
Dim SOAPParameters
Dim SOAPResponse
Dim oXmlHTTP
Dim oXmlDOC
Dim objNodeRecordList
Dim objNodePropertyField
Dim objRoot
Dim bOK
Dim iPointer
Dim iLimit
Dim strPropertyID
Dim strPropertyType
Dim strAgentID
Dim strDescription
Dim strStreet
Dim strCity
Dim strState
Dim strZip
Dim strPrice
Dim strARV                
Dim strMV                
Dim strSQFT            
Dim strBuilt
Dim strBedrooms
Dim strBaths
Dim strRepairs
Dim strThumb
Dim strImage
Dim strEntered
Dim strSold
Dim strFeatured
Dim strUnListed

strThumb = "https://www.realequityhomes.com/_images/thumb_images/t_REHNoImage.jpg"
strImage = "https://www.realequityhomes.com/_images/large_images/REHNoImage.jpg"
strPropertyType = "2"
strAgentID = "4"
strDescription = ""
strStreet = ""
strCity = ""
strState = ""
strZip = ""
strPrice = "0"
strARV = "0"
strMV = "0"
strSQFT = "0"
strBedrooms = ""
strBaths = ""
strBuilt = "0"
strRepairs = ""
strEntered = ""
strSold = ""
strFeatured = "0"
strUnListed = "0"

If document.getElementById("chkCommercial").checked Then strPropertyType = "1"
If document.getElementById("chkFeatured").checked Then strFeatured = "1"
If document.getElementById("chkUnListed").checked Then strUnListed = "1"
strPropertyID = document.getElementById("txtPropertyID").value
strDescription = document.getElementById("txtDescription").value
strStreet = document.getElementById("txtStreet").value
strCity = document.getElementById("txtCity").value
strState = document.getElementById("txtState").value
strZip = document.getElementById("txtZip").value
strBedrooms = document.getElementById("txtBedrooms").value
strBaths = document.getElementById("txtBaths").value
strRepairs = document.getElementById("txtRepairs").value
If document.getElementById("txtPrice").value <> "" Then strPrice = document.getElementById("txtPrice").value
If document.getElementById("txtARV").value <> "" Then strARV = document.getElementById("txtARV").value
If document.getElementById("txtMV").value <> "" Then strMV = document.getElementById("txtMV").value
If document.getElementById("txtSQFT").value <> "" Then strSQFT = document.getElementById("txtSQFT").value
If document.getElementById("txtBuilt").value <> "" Then strBuilt = document.getElementById("txtBuilt").value
If document.getElementById("txtThumb").value <> "" Then strThumb = document.getElementById("txtThumb").value
If document.getElementById("txtImage").value <> "" Then strImage = document.getElementById("txtImage").value
                
iPointer = InStr(1, strRepairs, "&", 0)
Do While iPointer > 0 And iLimit < 100
    strRepairs = Left(strRepairs, iPointer - 1) & "&amp;" & Mid(strRepairs, iPointer + 1)
    iPointer = InStr(iPointer + 5, strRepairs, "&", 0)
    iLimit = iLimit + 1
Loop

strEntered = document.getElementById("txtEntered").value
strSold = document.getElementById("txtSold").value
                
SOAPParameters = " <lPropertyType>" & CLng(strPropertyType) & "</lPropertyType>"
SOAPParameters = SOAPParameters & " <lAgentID>" & CLng(strAgentID) & "</lAgentID>"
SOAPParameters = SOAPParameters & " <sPropertyDateEntered>" & strEntered & "</sPropertyDateEntered>"
SOAPParameters = SOAPParameters & " <sPropertyDateSold>" & strSold & "</sPropertyDateSold>"
SOAPParameters = SOAPParameters & " <sPropertyDescription>" & strDescription & "</sPropertyDescription>"
SOAPParameters = SOAPParameters & " <sPropertyRepairs>" & strRepairs & "</sPropertyRepairs>"
SOAPParameters = SOAPParameters & " <sPropertyBedrooms>" & strBedrooms & "</sPropertyBedrooms>"
SOAPParameters = SOAPParameters & " <sPropertyBaths>" & strBaths & "</sPropertyBaths>"
SOAPParameters = SOAPParameters & " <lPropertySQFT>" & CLng(strSQFT) & "</lPropertySQFT>"
SOAPParameters = SOAPParameters & " <iPropertyBuilt>" & CInt(strBuilt) & "</iPropertyBuilt>"
SOAPParameters = SOAPParameters & " <lPropertyPrice>" & CLng(strPrice) & "</lPropertyPrice>"
SOAPParameters = SOAPParameters & " <lPropertyARV>" & CLng(strARV) & "</lPropertyARV>"
SOAPParameters = SOAPParameters & " <lPropertyMV>" & CLng(strMV) & "</lPropertyMV>"
SOAPParameters = SOAPParameters & " <sPropertyAddressStreet>" & strStreet & "</sPropertyAddressStreet>"
SOAPParameters = SOAPParameters & " <sPropertyAddressCity>" & strCity & "</sPropertyAddressCity>"
SOAPParameters = SOAPParameters & " <sPropertyAddressState>" & strState & "</sPropertyAddressState>"
SOAPParameters = SOAPParameters & " <sPropertyAddressZip>" & strZip & "</sPropertyAddressZip>"
SOAPParameters = SOAPParameters & " <sPropertyThumbURL>" & strThumb & "</sPropertyThumbURL>"
SOAPParameters = SOAPParameters & " <sPropertyImageURL>" & strImage & "</sPropertyImageURL>"
SOAPParameters = SOAPParameters & " <iPropertyFeatured>" & CInt(strFeatured) & "</iPropertyFeatured>"
SOAPParameters = SOAPParameters & " <iPropertyUnListed>" & CInt(strUnListed) & "</iPropertyUnListed>"

                
serviceUrl = "https://www.realequityhomes.com/ECTWebServices/REHPropertyServices.asmx"
Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")
oXmlHTTP.Open "POST", serviceUrl, False 

If strPropertyID = "" Then
    oXmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 
    oXmlHTTP.setRequestHeader "SOAPAction", "http://tempuri.org/ECTWebServices/REHPropertyServices/AddProperty" 
    SOAPRequest = "<?xml version='1.0' encoding='utf-8'?> <soap:Envelope"
    SOAPRequest = SOAPRequest & " xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"""
    SOAPRequest = SOAPRequest & " xmlns:xsd=""http://www.w3.org/2001/XMLSchema"""
    SOAPRequest = SOAPRequest & " xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
    SOAPRequest = SOAPRequest & " <soap:Body>"
    SOAPRequest = SOAPRequest & " <AddProperty xmlns=""http://tempuri.org/ECTWebServices/REHPropertyServices"">"
    SOAPRequest = SOAPRequest & SOAPParameters
    SOAPRequest = SOAPRequest & " </AddProperty>"
    SOAPRequest = SOAPRequest & " </soap:Body>"
    SOAPRequest = SOAPRequest & " </soap:Envelope>"
    'MsgBox("new")
    'MsgBox(SOAPParameters)
Else
    oXmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 
    oXmlHTTP.setRequestHeader "SOAPAction", "http://tempuri.org/ECTWebServices/REHPropertyServices/UpdateProperty" 
    SOAPRequest = "<?xml version='1.0' encoding='utf-8'?> <soap:Envelope"
    SOAPRequest = SOAPRequest & " xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"""
    SOAPRequest = SOAPRequest & " xmlns:xsd=""http://www.w3.org/2001/XMLSchema"""
    SOAPRequest = SOAPRequest & " xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
    SOAPRequest = SOAPRequest & " <soap:Body>"
    SOAPRequest = SOAPRequest & " <UpdateProperty xmlns=""http://tempuri.org/ECTWebServices/REHPropertyServices"">"
    SOAPRequest = SOAPRequest & " <lPropertyID>" & CLng(strPropertyID) & "</lPropertyID>"
    SOAPRequest = SOAPRequest & SOAPParameters
    SOAPRequest = SOAPRequest & " </UpdateProperty>"
    SOAPRequest = SOAPRequest & " </soap:Body>"
    SOAPRequest = SOAPRequest & " </soap:Envelope>"
    'MsgBox("upload")
    'MsgBox(SOAPParameters)
End If

oXmlHTTP.send SOAPRequest 
SOAPResponse = oXmlHTTP.responseXML.xml
'MsgBox(SOAPResponse)
                
Document.URL = "https://www.realequityhomes.com/rehadmin_manageprops.aspx"
                
End Function    
</script>