<!--#include file="conn.asp"-->
<% if Session.Contents("login")="yes" then %>

<%    
set conn=server.createobject("adodb.connection")     
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"")     
set rs=server.createobject("adodb.recordset")   
exec="delete  from gbook where id="&request("id") 
rs.open exec,conn,1,1     
%>

<% response.redirect"index.asp" %>

<% Else %> 

<% response.redirect"adminlogin.asp" %>

<%End If %>