<!--#include file="Connections.asp" -->
<!--#include file="check.asp" -->
<%
Id=Request("id")
If Id<>"" And IsNumeric(Id) Then
	Set Rs=Server.CreateObject("ADODB.Connection")
	Rs.Open datalink
	stRsQL="Delete From Message Where id="&id
	Rs.Execute(stRsQL)
	stRsQL="Delete From Revert Where message_id='"&id&"'"
	Rs.Execute(stRsQL)
	Rs.close
	set Rs=Nothing
End If
Response.Write("action=complete")
%>