Form virker ikke

Kan du se hvad der går galt? der sker ikke noget når jeg trykker på 'Ja, slet' knappen, men jeg ryger fint tilbage når jeg trykker på 'Tilbage' knappen.

<!--#include file="_incloginok.asp" -->
<html>
<head>
<title>delete: booking-Online</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/style_kal.css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")
mode = Request.Form("mode")
%>
<!--#include file="_kalender.asp"-->
<!--#include file="_dbconn.asp" -->
<%

if mode = "" then
  strSQL = "SELECT * FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  %>
      <table width="40%" border="0" cellspacing="2" cellpadding="2" align="center" >
      <form method="POST" action="delete.asp?id=<%=bruger%>&bookid=<%=booknr%>">
      <tr >
        <td class="tbl_head" align="center">Bekræft sletning</td>
      </tr>
      <tr >
        <td class="tbl_head_kal" align="center">Vil du slette din reservation <%=rs("strDato")%> ?</td>
      </tr>
      <tr align="center" valign="middle" class="tbl_log">
        <td>
          <input type="hidden" name="mode" value="slet">
          <input class="input" type="button" name="delete" value="Ja, slet">
          <input class="input" type="button" name="button" value="Tilbage" onClick="history.back()">
        </td>
      </tr>
      </form>
    </table>
  <%
else
  strSQL = "DELETE FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  response.write "Bruger: " & bruger & "<br>"
  response.write "Book Nr.: " & booknr & " er nu slettet!!!"
  response.redirect("booking.asp")
end if
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>
</body>
</html>