<% Connstr="dsn=comydb;uid=admin;pwd=comy" 'Create database connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Connstr %> Conference Of Messianic Yisrael
<% SQLQuery = "SELECT * FROM member INNER JOIN country ON member.countryID=country.countryID WHERE membertypeID=2 and active and approved ORDER BY country,region" set rsmember = conn.execute(SQLQuery) do while not rsmember.eof newcountry = rsmember("countryID") if activecountry <> newcountry then %> <% end if activecountry = newcountry %> <% rsmember.MoveNext loop %>

FELLOWSHIPS & MINISTRIES

<%=rsmember("country")%>

<%=rsmember("name")%>

<%=rsmember("address1")%> <%=rsmember("address2")%> <%=rsmember("city")%> <%=rsmember("region")%> <%=rsmember("postcode")%> 

<%=rsmember("phone1")%> <%=rsmember("phone2")%>   "><%=rsmember("website")%>

<%=rsmember("title")%> <%=rsmember("firstname")%> <%=rsmember("surname")%>

<% SQLQuery = "SELECT * FROM subdomain WHERE memberID =" & rsmember("memberID") set rssubdomain = conn.execute(SQLQuery) %>

<%=rssubdomain("directoryinfo")%>

<%Conn.Close Set Conn=Nothing%>