<% Response.Buffer = true set rs= Server.CreateObject("ADODB.RecordSet") set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString %> ASP Resources Forum vLink="<% =ActiveLinkColor %>">
Modificar / Apagar Mensagens <% Select Case Request.QueryString("mode") case "show" %>
<% strSql = "SELECT Members.M_Name, Topics.T_date, Topics.T_subject, Topics.T_Message, Topics.T_Originator, Topics.Topic_ID " strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator " strSql = strSql & "where topics.topic_id = " & Request.QueryString("topic") rs.open strSql, my_conn ' Get First post Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf rs.close ' Get rest of the posts strSql ="SELECT Members.M_Name, Members.M_ICQ, Reply.Reply_ID, Reply.R_Posted_By, Reply.Topic_ID, Reply.R_Message, Reply.R_Posted " strSql = strSQl & "FROM Members INNER JOIN Reply ON Members.Member_id = Reply.R_Posted_By " strSql = strSQl & "where topic_id = " & Request.QueryString("topic") & " order by reply.R_Posted" rs.Open strSQL, my_Conn if rs.EOF or rs.BOF then Response.Write "" Else do until rs.EOF Response.Write "" Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf rs.MoveNext loop End if %>
Apagar Item Autor
" & rs("T_Subject") & "
 " & left(rs("T_Message"), 70) & "" & rs("M_Name") & "
No Posts Found- Delete the topic to remove posts
" & left(rs("R_Message"), 70) & "" & rs("M_Name") & "

<% case "delete" delAr = split(Request.Form("forum"), ",") for i = 0 to ubound(delAr) strSQL = "Delete * From Reply where Reply_ID = " & cint(delAr(i)) ' Delete Replys to Topic Response.Write strSQL & "
" my_conn.Execute strSQL next strSQL = "update forum set F_Count = F_Count - " & Cint(ubound(delAr)) + 1 & " where Forum_ID = " & Request.Form("Forumid") my_conn.Execute strSQL ' Update Counts strSQL = "update Topics set T_Replies = T_Replies - " & Cint(ubound(delAr))+ 1 & " where Topic_ID = " & Request.Form("topicid") my_conn.Execute strSQL ' Update Counts strSQl ="Update totals set totals.P_Count=totals.P_Count -" & Cint(ubound(delAr))+ 1 my_conn.Execute strSQL %>

Mensagens apagadas!.... Totais Actualizados! <% End Select %>

<% on error resume next rs.Close my_conn.Close set rs = nothing set my_conn = nothing %>