Manage Users

Un-Approved Users

<% rsUsers.filter = "Approved = 0" while not rsUsers.eof if x mod 2 = 0 then bgcolor = "#DFDFDF" else bgcolor = "#FFFFFF" end if %> <% rsUsers.movenext x = x + 1 wend %>

Name	Email
<%= rsUsers("LastName") %>, <%= rsUsers("FirstName") %>	<%= rsUsers("Email") %>	">approve	">edit	" onclick="return confirm('Are you sure you want to delete this user?')">delete

Approved Users

<% rsUsers.filter = "Approved = 1" while not rsUsers.eof if x mod 2 = 0 then bgcolor = "#DFDFDF" else bgcolor = "#FFFFFF" end if %> <% usersfile.writeline("""" & rsUsers("UserType") & """,""" & rsUsers("FirstName") & """,""" & rsUsers("LastName") & """,""" & rsUsers("DistributorName") & """,""" & rsUsers("Company") & """,""" & rsUsers("Address") & """,""" & rsUsers("City") & """,""" & rsUsers("State") & """,""" & rsUsers("Zip") & """,""" & rsUsers("Email") & """,""" & rsUsers("Phone") & """,""" & rsUSers("Password") & """," & rsUsers("PrimaryContact") & ",""" & rsUsers("LastLogin") & """") rsUsers.movenext x = x + 1 wend %>

Name	Email
<%= rsUsers("LastName") %>, <%= rsUsers("FirstName") %>	<%= rsUsers("Email") %>	">edit	" onclick="return confirm('Are you sure you want to delete this user?')">delete

Download approved users