<%
sno=request("id_2")
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")
     Rs.Open "select * From re_guest where id_2="&sno&"" , conn,1,3
     rs.delete
     rs.update
end if
response.redirect "guest.asp"
%>