<% Set RS = Server.CreateObject("ADODB.Recordset") If request("Page") = "2" Then If CInt(request("UserID")) <> Session("o12calgold_UserID") Then SQL = "DELETE FROM o12calgold_CalendarUser WHERE UserID=" & request("UserID") Set RS = Conn.Execute(SQL) SQL = "DELETE FROM o12calgold_Rsvp WHERE UserID=" & request("UserID") Set RS = Conn.Execute(SQL) SQL = "DELETE FROM o12calgold_Users WHERE UserID=" & request("UserID") Set RS = Conn.Execute(SQL) End If Response.redirect "users_remove.asp?Page=3" End If %> onload="window.close();"<%End If%>>

Remove User

"> <%If request("Page") = "3" Then%> The user has been removed. <%Else%> <%If CInt(request("UserID")) = Session("o12calgold_UserID") Then%> <%Else%> <%End If%> You cannot remove yourself. To remove this account you must login under a different user account. Are you sure you want to remove this user? <%End If%> <%If CInt(request("UserID")) <> Session("o12calgold_UserID") Then%>     <%End If%>

©2002-2007 Ocean12 Technologies, all rights reserved.