Get Full Address from SOAP Web Service:

'Search for full Postcode or other address fields
Me.ListView1.Items.Clear()
Dim PostcodeSearch As New PostcodeWebService.WebService
Dim SearchPrima As New PL_SearchPrimaRecord
Dim AddressesDataReturned As New PL_AddressesDataReturnedRecord

'Set search criteria, either full Postcode or Two other address fields
With SearchPrima
   .Postcode = Me.InpPostcode.Text
End With

'Do Search, on Postcode or two or more address fields
AddressesDataReturned = PostcodeSearch.SearchForAddress("My DataKey", "UserID",
                     "UK", SearchPrima)

If AddressesDataReturned.SearchPerformedWithoutError Then
   'Display results, no major error
   If AddressesDataReturned.ErrorMessage <> "" Then MsgBox(AddressesDataReturned.ErrorMessage)

   With AddressesDataReturned
      'Show amount of Postocde Lookup credits left
      Me.Text = .CreditsStatusText

      'Remember the URL to buy more Postocde Lookup credits
      LinkToBuyMoreCredits = .BuyMoreCreditsURL
      Me.LinkTOBuyMore.Visible = True

      'Put Address data in listview
      Dim x&
      For x = 0 To .LineCount
         Dim itemToAdd As ListViewItem = ListView1.Items.Add(.Lines(x).ID, 0)
         itemToAdd.SubItems.Add(.Lines(x).Address)
      Next
   End With

   Me.TabControl1.SelectedIndex = 1
Else
   'Display error (Account stuff mostly)
   MsgBox(AddressesDataReturned.ErrorMessage)
End If

string myDataKey = Request.QueryString["datakey"].ToString();
string PostCode = Request.QueryString["postcode"].ToString();
string UserID = "UniqueID";

//Create PostcodeWebService.WebService object
uk.co.simplylookupadmin.www.WebService myWSObj = new uk.co.simplylookupadmin.www.WebService();

uk.co.simplylookupadmin.www.PL_SearchPrimaRecord myWSSearch =
                  new uk.co.simplylookupadmin.www.PL_SearchPrimaRecord();

uk.co.simplylookupadmin.www.PL_AddressesDataReturnedRecord myWSAddrRec =
                  new uk.co.simplylookupadmin.www.PL_AddressesDataReturnedRecord();

myWSSearch.Postcode = PostCode;
myWSAddrRec = myWSObj.SearchForAddress(myDataKey, UserID, "UK", myWSSearch);

//Show amount of Postocde Lookup credits left
this.Label2.Text = myWSAddrRec.CreditsStatusText;

if (myWSAddrRec.SearchPerformedWithoutError == true)
{
   for (int i = 0; i < myWSAddrRec.LineCount; i++)
   {
      ListBox1.Items.Add(new ListItem(myWSAddrRec.Lines[i].Address, myWSAddrRec.Lines[i].ID));
   }
}
else
{
   //Display error (Account stuff mostly)
   this.Label2.Text = myWSAddrRec.ErrorMessage;
}

'Get ID from Listbox in hidden column 0
Dim AddressID As String = ListView1.Items(ListView1.SelectedItems.Item(0).Index).SubItems(0).Text
Dim PostcodeSearch As New PostcodeWebService.WebService
Dim Address As PL_AddressRecord

'Ask for Address by ID
Address = PostcodeSearch.GetAddressRecord("My DataKey", "UserID", "UK", AddressID)

Me.TabControl1.SelectedIndex = 2

If Address.AddressRecordGotWithoutError Then
   'Display results
   If Address.ErrorMessage <> "" Then MsgBox(Address.ErrorMessage)

   'Process the Address to text field
   Dim AddressText As String
   With Address
      AddressText = "Company:" & .CompanyName & vbCrLf
      AddressText += "Line1:" & .Line1 & vbCrLf
      AddressText += "Line2:" & .Line2 & vbCrLf
      AddressText += "Line3:" & .Line3 & vbCrLf
      AddressText += "Town:" & .Town & vbCrLf
      AddressText += "Postcode:" & .PostZipcode & vbCrLf
      AddressText += "Country:" & .Country & vbCrLf
   End With
   Me.TxtAddress.Text = AddressText
Else
   'Display error (Account stuff mostly, i.e. No License)
   MsgBox(Address.ErrorMessage)
End If

//Search for Address by Postcode, but returning Thorughfare data
uk.co.simplylookupadmin.www.WebService PostcodeSearch = new uk.co.simplylookupadmin.www.WebService();
uk.co.simplylookupadmin.www.PL_AddressRecord AddressesDataReturned =
                              new uk.co.simplylookupadmin.www.PL_AddressRecord();

string datakey = Request.QueryString["datakey"].ToString();
string addressid = Request.QueryString["addressid"].ToString();
string userid = Request.QueryString["userid"].ToString();

//Do Search, on Postcode or two or more address fields
AddressesDataReturned = PostcodeSearch.GetAddressRecord(datakey, userid, "UK", addressid);

if (AddressesDataReturned.AddressRecordGotWithoutError == true)
{
   //Display results, no major error
   this.TxtResults.Text = AddressesDataReturned.ErrorMessage;

   string AddressText;
   AddressText = "Status:" + AddressesDataReturned.CreditsStatusText + "\n" + "\n";
   AddressText += "Company:" + AddressesDataReturned.CompanyName + "\n";
   AddressText += "Line1:" + AddressesDataReturned.Line1 + "\n";
   AddressText += "Line2:" + AddressesDataReturned.Line2 + "\n";
   AddressText += "Line3:" + AddressesDataReturned.Line3 + "\n";
   AddressText += "Town:" + AddressesDataReturned.Town + "\n";
   AddressText += "County:" + AddressesDataReturned.CountyState + "\n";
   AddressText += "PostCode:" + AddressesDataReturned.PostZipCode + "\n";
   AddressText += "Country:UK" + "\n";


   AddressText += "DeliveryPointSuffix:" + AddressesDataReturned.DeliveryPointSuffix + "\n";
   AddressText += "NoHouseHolds:" + AddressesDataReturned.NoHouseHolds + "\n";
   AddressText += "SmallOrg:" + AddressesDataReturned.SmallOrg + "\n";

   this.TxtResults.Text = AddressText;

}
else
{
   //Display error (Account stuff mostly)
   this.TxtResults.Text = AddressesDataReturned.ErrorMessage;
}