<% Response.Buffer = true %> Fórum vLink="<% =ActiveLinkColor %>"> <% Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function set rs= Server.CreateObject("ADODB.RecordSet") set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString ' ###################################################### ' # ' # First We Display What Needs To Be Modified ' # ' ###################################################### Select Case Request.QueryString("mode") case "users" ' Modify Users, So Display Users ' ############################################################# if Request.QueryString("id") = "" then Response.Redirect "view.asp" strSql = "Select * from members where member_id = " & Request.QueryString("id") rs.Open StrSql, my_conn, 2, 3 if rs.EOF or rs.BOF then Response.Write "ERROR - User Not Found" ' Shouldn't happen but catch anyway Else %>
" name="id">

Modify Member Details

Seleccionar para apagar Utilizador
" size=35> Nome
" size=35> Password
" size=35> Email
" size=30> País
" size=30> HomePage
" size=30> HomePage
Assinatura
" size=5> Default View
To be Implimented in later version
" size=5> Niveis de utilizadores
1 - Normal
2 - Moderador
3 - Administrador
<% End if ' ########################################################### case "category" ' Modify Catagory - Lets Show 'um %>

Modificar Categoria

" End If %> Seleccione a categoria a modificar
Altere aqui
<% ' ########################################################### case "forum" ' Modify Forum - Let's Show um %>
" name="id">

Modificar Fórum

" End If %> Seleccione o fórum a modificar
<% ' ########################################################### case "posting" ' Modify Posting - Lets Sow 'um %>
" name="id">

Modificar / Apagar Resposta

" End If %> Escolha o fórum para modificar a mensagem
<% ' #################################################################### ' # ' # We've Displayed It, So now lets change it! ' # ' #################################################################### case "doit" Select Case Request.QueryString("table") case "users" ' Updates Users if Request.Form("DelM") = "on" then ' Delete User StrSql = "DELETE * FROM members where member_id = " & Request.Form("id") my_conn.Execute StrSql strSQl ="Update totals set totals.U_Count=totals.U_Count - 1" my_conn.Execute StrSql Response.Write "

" & Request.Form("name") & " foi apagado" Else ' Update Details StrSql = "UPDATE members SET m_name = '" & ChkString(Request.Form("name")) & "', " StrSql = StrSql & "m_password = '" & ChkString(Request.Form("password")) & "', " StrSql = StrSql & "m_email = '" & ChkString(Request.Form("email")) & "', " StrSql = StrSql & "m_country = '" & ChkString(Request.Form("country")) & "', " StrSql = StrSql & "m_homepage = '" & ChkString(Request.Form("homepage")) & "', " StrSql = StrSql & "m_ICQ = '" & ChkString(Request.Form("ICQ")) & "', " StrSql = StrSql & "m_sig = '" & ChkString(Request.Form("sig")) & "', " StrSql = StrSql & "m_default_view = " & ChkString(Request.Form("view")) & ", " StrSql = StrSql & "m_level = " & ChkString(Request.Form("level")) StrSql = StrSql & " Where member_id = " & Request.Form("ID") 'Response.Write StrSql & "
" my_conn.Execute StrSql Response.Write "

" & Request.Form("name") & " - Actualizacão feita" End If case "category" strSql = "UPDATE category SET cat_name = '" & Request.Form("modcat") & "' where cat_id = " & Request.Form("cat") Response.Write StrSQl my_conn.Execute StrSql End Select End Select on error resume next rs.Close my_conn.Close set rs = nothing set my_conn = nothing %>