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

PRODIGAL SON "Home Coming" Weekend Retreat
5-7 March 2004
REGISTRATION INFORMATION
[Return to list of registered participants or conference homepage]

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

Lastname

Firstname

Country

Room No

Check-in

Check-out

Adult#

Child#

Edit
"><%=RS("Lastname")%> <%=RS("Firstname")%> <%=RS("Country")%> <%=RS("BaanRoomNo")%> <%=RS("BaanStartDate")%> <%=RS("BaanEndDate")%> <%=RS("AdultNo")%> <%=RS("ChildNo")%> [">Edit]