<%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%>

ASIAN CONFERENCE ON HEALING
PRODIGAL SON: WEEKEND RETREAT

LIST OF REGISTERED PARTICIPANTS

[Return to registration  or  conference homepage]

For correction and queries, please send email to etdante@yahoo.com

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

Record#

Lastname

Firstname

Spouse

Country

Edit

<%=recordnum%> "><%=RS("Lastname")%> <%=RS("Firstname")%> <%=RS("Spouse")%> <%=RS("Country")%> [">Edit]