If ptrThis.Port = strIP Then

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" indent="yes" encoding="UTF-8" />
<xsl:template match="/">
<ToEmail>
<xsl:for-each select="//XMLTemp1[not(Who=preceding-sibling::XMLTemp1/Who)]/Who">

Function Product(strField As String, strTable As String, _
Optional strCriteria As String) As Double
Dim rs As DAO.Recordset
Dim strSql As String
Dim dblResult As Double

<xsl:for-each select="//XMLtemp[Suppliers='Advent']">

JoeSmith
Person 1
Person 2
KateGeorge
Person 3

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

<XMLTemp>
<Who>JoeSmith</Who>
<Contact>Billy Joe</Contact>
<telephone>123457980</telephone>

SELECT CustomerID 
FROM tblSales 
WHERE Postcode=[forms]![frmNewSales]![PostCode] And CustomerID=[Forms]![frmNewSales]![CustomerID] And DateOfVisit >Date()-30 AND Paid=0;

    Set myHTTP = CreateObject("msxml2.xmlhttp")
    Set myDom = CreateObject("MSXML2.DOMDocument")
    myDom.async = False
    myDom.Load (myxml)
    myHTTP.Open "POST", "https://link-removed.aspx", False
    myHTTP.Send (myDom.xml)