
<%
id=Request.QueryString("id") 
'id=Request.form("event") 
'Response.Write id

dim strCon
	set Connect=Server.CreateObject("ADODB.connection")
	strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
	& Server.MapPath("database/db.mdb") _
	& ";User ID=;"
	Connect.ConnectionString = strCon
	if Connect.State=1 then Connect.Close 
	Connect.open
	
	set rs = Server.CreateObject("ADODB.Recordset")
	
	SQL="DELETE FROM emp WHERE id=" & id & ""
	
	'Response.Write(SQL)
	on error resume next
	rs.Open SQL,Connect,3,1,1
	
	'connect.Execute SQL
	if error<>0 then
		Response.Write "adminview.asp?err1="&err.Description 
	else
		Response.Redirect "adminview.asp" 
	end if
	set rs=nothing
%>