<%
sqltext = "Select * From pword Order By Username"
rs.Open sqltext, Conn
%>
Morris Pickering & Sanner - Admin: User List
Morris Pickering & Sanner - User List
Select a user on the list to modify it's information.
<%
thecolor = 0
if NOT rs.BOF then
while NOT rs.EOF
ID = rs("PID")
Username = rs("Username")
Password = rs("Password")
thecolor = thecolor + 1
if thecolor = 2 then
bgcolor="White"
thecolor=0
else
bgcolor="CCCCCC"
end if
response.write "| " & Username & _
" | Update User | Delete User |
"
rs.movenext
wend
end if
%>