<!-- #include file="db.inc" -->
<%Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
	response.redirect("login.asp?login=no")
end if

Dim idk
	idk=Request("idk")

Dim sql
sql = "DELETE FROM user WHERE id=" & Cstr(idk)
set rs=dbc.Execute(sql)

Dim admin
	admin = Session("admin")
if admin=1 then
	response.redirect("user_lista.asp")
else
	response.redirect("lista.asp")	
end if
%>