<%Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn SQL = "SELECT * FROM Contacts WHERE hosting = 'Yes' " & SQL_SearchFor & " ORDER BY country,lastname" RS.Open SQL, Conn, 1, 3 colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" If NOT (RS.BOF AND RS.EOF) Then%>

PRODIGAL SON "Home Coming" Weekend Retreat
5-7 March 2004

TRANSPORT REQUIREMENTS

<%Do While NOT RS.EOF%> <% If colorchanger = 1 Then colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" Else colorchanger = 1 color1 = "#DAE3F0" color2 = "#C5D3E7" End If RS.movenext Loop End If%>

Lastname

Firstname

Spouse

No of adults

No of children

Transport

Edit
"><%=RS("Lastname")%> <%=RS("Firstname")%> <%=RS("Spouse")%> <%=RS("AdultNo")%> <%=RS("ChildNo")%> <%=RS("Hosting")%> [">Edit]