<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
dim sql,rs,Id,gid
Id=request.querystring("id")
gid=request.querystring("gid")
if request.querystring("id") then
set rs=server.createobject("adodb.recordset")
sql="delete from guestbook where id="&Id
rs.open sql,conn,1,1
response.Redirect"khbook.asp"
else
set rs=server.createobject("adodb.recordset")
sql="delete from hfbook where id="&gid
rs.open sql,conn,1,1
response.Redirect"khbook.asp"
end if 
%>