<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<%
if Request.QueryString("id")<> "" then

id = Request.QueryString("id")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [ad] where id=" & clng(id)
rs.Open sql,conn,1,3
rs.Delete 
set rs=nothing
conn.Close
set conn=nothing
Response.Redirect ("list.asp")
else
Response.Write "²خت‎´يخَ"
end if
%>