ASP Resources Forum

Modificar / Apagar Mensagens <% 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 Select Case Request.QueryString("mode") case "show" %>

<% strSql ="SELECT Topics.T_Status, Topics.Forum_ID, Topics.Topic_ID, Topics.T_subject,Topics.T_Mail, Topics.T_Originator, Topics.T_Replies, Members.M_Name " strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator " strSql = strSql & "where Topics.Forum_ID = " & Request.Form("forum") & " order by Topics.T_Last_Post DESC" rs.Open strSQL, my_Conn if rs.EOF or rs.BOF then Response.Write "" Else Response.Write "" do until rs.EOF Response.Write "" Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf rs.MoveNext loop End if %>

Apagar	Item	Autor	Mensagens
No Posts Found
	" & left(rs("T_subject"), 50) & "	" & rs("M_Name") & "	" & rs("T_Replies") & "

<% case "delete" delAr = split(Request.Form("forum"), ",") for i = 0 to ubound(delAr) strSQL = "Delete * From topics Where topic_id = " & cint(delAr(i)) ' Delete Topic my_conn.Execute strSQL strSQL = "Delete * From Reply where topic_ID = " & cint(delAr(i)) ' Delete Replys to Topic my_conn.Execute strSQL strSQL = "update forum set F_Count = F_Count - " & Cint(Request.Form(trim(cstr(delAr(i))))) +1 & " where Forum_ID = " & Request.Form("Forumid") my_conn.Execute strSQL ' Update Counts strSQl ="Update totals set totals.P_Count=totals.P_Count -" & Cint(Request.Form(trim(cstr(delAr(i))))) +1 my_conn.Execute strSQL next %>

Itens Apagados!.... Totais Actualizados! <% End Select on error resume next rs.Close set rs= nothing my_conn.Close set my_conn = nothing %>