<%
mno=request("id")

if session("name")="版主" then
mydatabase="Gbook.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")               
param = "driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MSAccess;"               
Conn.Open param & ";dbq=" & Server.MapPath(MyDatabase)
     SET rs = Server.CreateObject("ADODB.Recordset")
     SET rs1 = Server.CreateObject("ADODB.Recordset")
     rs.Open "select * From guest where id="&mno&"" , conn,2,3
     rs.delete
     rs.update
	 rs1.Open "select * From re_guest where id="&mno&"" , conn,2,3
	 if  not rs1.EOF then
		 rs1.delete
		 rs1.update
     end if

end if
response.redirect "guest.asp"
%>