<%@ LANGUAGE = "VBScript" %> <% If not session("userisadmin") Then response.redirect "error.asp?message=" & "You dont have permission to Delete User.
Only admins can delete Users" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr SQL = "Select * from users where id=" & int(request("id")) rs.Open SQL, dbConn ,1,3 For each field in rs.Fields Response.Write "" & field.name & ": " & Field & "
" Next If not rs.EOF then rs.Delete rs.Update Response.Write "
Record was successfully deleted." Else Response.Write "Error: Unable to find record." End if rs.Close dbconn.Close Set dbConn = Nothing Set rs = Nothing %>

">Go Back