<%
Do Until RSContacts.EOF
%>
  <TR>
  <TD WIDTH=121><P><% Response.Write RSContacts("ContactName") %></TD>
  <TD WIDTH=121><P><A HREF="mailto:<% Response.Write RSContacts("ContactEmailAddress") %>">
    <% Response.Write RSContacts("ContactEmailAddress") %></A></TD>
  <TD WIDTH=121><P><% Response.Write RSContacts("ContactPhone") %></TD>
  <TD WIDTH=122><P><% Response.Write RSContacts("ContactRole") %></TD>
  </TR>
<%
  RSContacts.MoveNext
Loop
%>
