<!--#include file="conn.asp"-->
<% 
  ID=Request("ID")
  rs.open "Select * From CuteBook Where ID=" & ID,Conn,2,3
  If rs("re")="1" then
    Set rs2=Server.CreateObject("ADODB.RecordSet")
    rs2.open "Select * From ReCuteBook Where ID=" & ID,Conn,2,3
    Do While Not rs2.Eof
      rs2.Delete
      If rs2.Eof then Exit do
      rs2.MoveNext
    Loop
    rs2.Close
    Set rs2=Nothing  
    End if

  If rs.Eof then
  else
  rs.Delete
  End if
  rs.Close
  Set rs=Nothing
  Response.Redirect "GuestBook.asp"
%>