<% select case request("action") case "add" struserid=request.form("userid") strpassword=request.form("password") strname=request.form("name") stremail=request.form("email") connect.execute ("insert into login (user, password, name, email) values ('" & struserid & "','" & strpassword & "','" & strname & "','" & stremail & "')") end select %> User Administration
Add User
UserID:
Password:
Name:
E-mail:
 
<%set rsUsers = connect.execute("select * from login order by user desc")%> <% do until rsUsers.eof = true%> <%rsUsers.movenext loop%>
List Users
<%=rsUsers("user") %> <%=rsUsers("name") %> <%=rsUsers("email") %> "> " onclick="return confirm('Are you sure you want to delete this user?')"> Delete
<% rsUsers.close set rsUsers=nothing %> <% If Request.QueryString("action") = "tabort" then strUser=request.QueryString("user") connect.execute("delete from login where user ='" & strUser &"'") response.Redirect("users.asp") end if %>