<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "mrca" querystring = "SELECT * FROM members WHERE type='normal' ORDER BY pos" set RSnormal = Conn.execute(querystring) querystring = "SELECT * FROM members WHERE type='associate' ORDER BY pos" set RSassociate = Conn.execute(querystring) %> MRCA
Metal Roofing Contractors Association

Members List




<%if not RSnormal.EOF then do while not RSnormal.EOF%>
 
<%=RSnormal("title")%>
     
 
<%if RSnormal("address")<>"" then%> <%=replace(RSnormal("address"),vbcrlf,"
")%> <%end if%>
<% if RSnormal("contact")<>"" then %> Contact:  <% end if %> <%=RSnormal("contact")%>
 
<% if RSnormal("tel")<>"" then %> T:  <% end if %> <%=RSnormal("tel")%>
 
<% if RSnormal("fax")<>"" then %> F:  <% end if %> <%=RSnormal("fax")%>
 
<% if RSnormal("mobile")<>"" then %> M:  <% end if %> <%=RSnormal("mobile")%>
 
<% if RSnormal("email")<>"" then %> E: "> <% end if %> <%=RSnormal("email")%> <% if RSnormal("email")<>"" then %> <% end if %>
 
<% if RSnormal("website")<>"" and RSnormal("website")<>"http://" then %> W: " target="_blank"><%=RSnormal("website")%> <% end if %>
 
<%RSnormal.movenext loop end if%>

ASSOCIATE MEMBERS



<%if not RSassociate.EOF then do while not RSassociate.EOF%>
 
<%=RSassociate("title")%>
     
 
<%if RSassociate("address")<>"" then%> <%=replace(RSassociate("address"),vbcrlf,"
")%> <%end if%>
<% if RSassociate("contact")<>"" then %> Contact:  <% else %>   <% end if %> <%=RSassociate("contact")%>
 
<% if RSassociate("tel")<>"" then %> T:  <% else %>   <% end if %> <%=RSassociate("tel")%>
 
<% if RSassociate("fax")<>"" then %> F:  <% else %>   <% end if %> <%=RSassociate("fax")%>
 
<% if RSassociate("mobile")<>"" then %> M:  <% else %>   <% end if %> <%=RSassociate("mobile")%>
 
 
<% if RSassociate("website")<>"" and RSassociate("website")<>"http://" then %> W: " target="_blank"><%=RSassociate("website")%> <% end if %>
 
<%RSassociate.movenext loop end if%>
<% RSnormal.Close RSassociate.Close Conn.Close Set Conn = nothing %>