<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write"" Response.End Elseif Request.Cookies("login") = "3" Then Response.Write"" End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Write"" End If Dim rs Dim sql If Request("action") = "edit" Then sql = "Update " & tbl_prefix & "users Set " &_ "name = '" & Request("fldusersfullname") & "'," &_ "username = '" & Request("fldusername") & "'," &_ "pass_word = '" & Request("fldpassword") & "'," &_ "securitylevel = " & Request("fldsecuritylevel") &_ " Where ID = " & Request("ID") conn.execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If End If %>

Edit User <% If Request("action") = "edit" Then %>Saved<% End If %> <% Set rs = conn.execute("SELECT * FROM " & tbl_prefix & "users WHERE ID = " & Request("ID")) If err <> 0 Then Response.Write"" err.clear Response.End End If %> "> Users Full Name " size="20" style="width: 200"> User Name " size="20" style="width: 200"> Password " size="20" style="width: 200"> Security Level - - - - - >Administrator [1] >Manager [2] >User [3] <% rs.close Set rs = nothing %> Close Window

<% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.Close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>