[Old Pedant]

You know, I'm going to guess that there is one more thing you should do.

Replace this code:

        <tr>
          <td><%=RSLandContacts("ContactType")%></td>
          <td><%=RSLandContacts("ConName")%></td>
          <td><%=RSLandContacts("Phone")%></td>
        </tr>

With this:

<% 
Do Until RSLandContacts.EOF 
%>
        <tr>
          <td><%=RSLandContacts("ContactType")%></td>
          <td><%=RSLandContacts("ConName")%></td>
          <td><%=RSLandContacts("Phone")%></td>
        </tr>
<% 
    RSLandContacts.MoveNext
Loop
%>

I suspect that each landmark *could* have multiple contacts, and this code will then show all contacts.