<% if Session("admin")<>"Yes" Then Response.redirect("index.asp") End If %> Delete Message
Message Deletion

Topic List

  <% messageNo=Request.QueryString("MessageNo") threadID=Request.QueryString("threadID") If MessageNo=1 Then MySql = "DELETE DistinctRow threads.threadID From threads Where threads.threadID =" & threadID & ";" deltyp="thread" Else MySql = "DELETE DistinctRow messages.messageNo From messages Where (messages.threadID =" & threadID & ") And messages.MessageNo=" & messageNo & ";" deltyp="message" End If my_Conn.Execute MySql my_Conn.close Set my_Conn = Nothing %>

The requested <%=deltyp%> has been deleted.

 

 
 

  Copyright 2000. Ourline Forums