<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% 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 / Eliminar Envíos <% 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 %>
Del Tema Author
" & 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 %>

Envíos Eliminados!.... Totales Actualizados! <% End Select %> <% on error resume next rs.Close my_conn.Close set rs = nothing set my_conn = nothing %>