VBScript Demographics Examples

From CDYNE Wiki
Jump to: navigation, search

Contents

GetIncomeHouseValueByAddress

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetIncomeHouseValueByAddress xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<AddressLine1>505 Independence Parkway</AddressLine1>" & _
"<City>Chesapeake</City>" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<ZipCode>23320</ZipCode>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetIncomeHouseValueByAddress>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetLocationInformationByAddress

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetLocationInformationByAddress xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<AddressLine1>505 Independence Parkway</AddressLine1>" & _
"<City>Chesapeake</City>" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<ZipCode>23320</ZipCode>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetLocationInformationByAddress>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetLocationInformationByLatitudeLongitude

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetLocationInformationByLatitudeLongitude xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<Latitude>36.761560</Latitude>" & _
"<Longitude-76.259964</Longitude>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetLocationInformationByLatitudeLongitude>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodAgeGenderFemaleInDataSet

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodAgeGenderFemaleInDataSet xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodAgeGenderFemaleInDataSet>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodAgeGenderMaleInDataSet

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodAgeGenderMaleInDataSet xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodAgeGenderMaleInDataSet>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodAgeInDataSet

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodAgeInDataSet xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodAgeInDataSet>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodLinguisticIsolation

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodLinguisticIsolation xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbr>VA</StateAbbr>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodLinguisticIsolation>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbr>VA</StateAbbr>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodRealtyValueInDataSet

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodRealtyValueInDataSet xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodRealtyValueInDataSet>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodVehiclesPerHouseholdInDataset

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodVehiclesPerHouseholdInDataset xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbr>VA</StateAbbr>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodVehiclesPerHouseholdInDataset>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetNeighborhoodYearStructuresBuilt

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetNeighborhoodYearStructuresBuilt xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<StateAbbr>VA</StateAbbr>" & _
"<PlaceID>0018466</PlaceID>" & _
"</GetNeighborhoodYearStructuresBuilt>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetPlaceIDbyAddress

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetPlaceIDbyAddress xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<AddressLine1>505 Independence Parkway</AddressLine1>" & _
"<City>Chesapeake</City>" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<ZipCode>23320</ZipCode>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetPlaceIDbyAddress>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetPlaceIDbyCensusTractAndBlock

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetPlaceIDbyCensusTractAndBlock xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<CensusTract>0209.01</CensusTract>" & _
"<CensusBlock>2001</CensusBlock>" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetPlaceIDbyCensusTractAndBlock>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetSummaryInformationByPlaceID

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetSummaryInformationByPlaceID xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"<PlaceID>0018466</PlaceID>" & _
"<StateAbbrev>VA</StateAbbrev>" & _
"</GetSummaryInformationByPlaceID>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

GetVersion

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<GetVersion xmlns=""http://ws.cdyne.com/DemographixWS"">" & _
"</GetVersion>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText
Personal tools
Namespaces

Variants
Actions
Navigation
Tools

Trial Key