PRODIGAL SON "Home
Coming" Weekend Retreat
5-7 March 2004
ADMINISTRATION
[Return to registration
or conference homepage]
<%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 = "#C5D3E7"
color2 = "#B0C4DE"
If NOT (RS.BOF AND RS.EOF) Then%>
| Record# |
|
Lastname |
Firstname |
Country |
<%recordnum = 1%>
<%Do While NOT RS.EOF%>
| <%=recordnum%> |
[">Delete] [">Edit] |
"><%=RS("Lastname")%> |
<%=RS("Firstname")%> |
<%=RS("Country")%> |
<%
If colorchanger = 1 Then
colorchanger = 0
color1 = "#C5D3E7"
color2 = "#B0C4DE"
Else
colorchanger = 1
color1 = "#DAE3F0"
color2 = "#C5D3E7"
End If
recordnum = recordnum + 1
RS.movenext
Loop
End If%>