Slet fra Access 2000 DB - Valg muligheder

Øhh hvad er d lige du vil?

/Omgangsdyret

Som du sikkert kan se så sletter jeg en record fra min DB, men jeg vil gerne have den mulighed at kunne fortryde (hvis det nu var en forkert record jeg fik valgt som skulle slettes)

Sådan noget i denne stil:

'hele delete.asp
<%
bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")
mode = Request.Form("mode")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/kalender.mdb")
Conn.Open DSN

if mode = "" then
  strSQL = "SELECT * FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  %><form method="POST" action="delete.asp?id=<%=bruger%>&bookid=<%=booknr%>"><br>
  Slet bog <%=rs("Id")%> + andre felter omkring bogen.<br>
  <input type="hidden" name="mode" value="slet"><br>
  <inpyt type="submit" name="delete" value="delete">
  </form>
  <%
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!!!"
end if
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>

if request.querystring("slet") = "" Then
%>
Er du sikker på du vil slette?<br>
<a href="siden du er på.asp?id=<%=request.querystring("id")%>&bookid=<%=request.querystring("bookid")%>&slet=ja">ja</a><br>
<a href="siden fra før.asp">Nej</a>
<%
elseif request.querystring("slet") = "ja" Then

bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")
%>
<!--#include file="_dbconn.asp" -->
<%
strSQL = "DELETE FROM tbl_kalender WHERE Id =" & Request.Querystring("bookid") & ";"

Set rs = Conn.Execute(strSQL)

response.write "Bruger: " & bruger & "<br>"
response.write "Book Nr.: " & booknr & " er nu slettet!!!"

' Rydder op efter os
Conn.Close
Set Conn = Nothing
end if
%>


Noget i den stil?

hmm nu kan jeg ikke stave der skal så input ikke inpyt i denne line :)
<inpyt type="submit" name="delete" value="delete">

eagleeye :> det er hvad jeg får af output med din kode:
Slet bog 1 + andre felter omkring bogen.

omgangsdyret :>
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/e-test/Booking/delete.asp, line 17
elseif request.querystring("slet") = "ja" Then

arh ok

<html>
<head>
</head>
<body>
<%
bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")
mode = Request.Form("mode")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/kalender.mdb")
Conn.Open DSN

if mode = "" then
  strSQL = "SELECT * FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  %><form method="POST" action="delete.asp?id=<%=bruger%>&bookid=<%=booknr%>"><br>
  Slet bog <%=rs("Id")%> + andre felter omkring bogen.<br>
  <input type="hidden" name="mode" value="slet"><br>
  <inpyt type="submit" name="delete" value="delete">
  </form>
  <%
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!!!"
end if
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

eagleeye :> Det virker!
Der kommer en Delete knap frem, kan der også kommer en Return knap frem?

Jeg vil anbefale at du går ind på fx. netcoders.dk downloader et simpelt script og så ser på det og begynder at ændre værdier og ser hvad der sker..
Det var sådan jeg begyndte i sin tid jeg kan deuden anbefale disse bøger:
-ASP active server pages ISBN 87-7843-361-4
    det er en god "begynder" bog
-Activer Server Pages solutions ISBN 1-57610-608-X
    den er til de lidt mere øvede, men er rigtig god.
Held med det :-)

Glemt det det var kommentar til at andet sgp, jeg skrev i den forkerte rude - beklager.

Hvilken fejl kommer den med?

du kan tilføje en "tilbage" kanp i stil med dette:

<input type="button" value="Tilbage" onclick="history.back()">

:
<inpyt type="submit" name="delete" value="delete">
<input type="button" value="Tilbage" onclick="history.back()">
</form>

Det er ÅK, en gang imellem burde jeg læse nogle flere bøger :>

Sorry det var os d forkerte vindue..:)
D går godt...

eagleeye :< det virkede fint indtil jeg satte det op med css og i en tabel.
Kan du se hvad der går galt? der sker ikke noget når jeg trykker på 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>

Ja Slet knappen skal være af type submit ikke button:
<input class="input" type="button" name="delete" value="Ja, slet">

Til:
<input class="input" type="submit" name="delete" value="Ja, slet">

Hvis du vil havde den skal være af typen button skal du lave en onClick function:
<input class="input" type="button" name="delete" value="Ja, slet" onClick="document.formnavn.submit"> eller sådan så skal du også havde et name ind i FORM tagen <form name="formname" .... action="....."> men benyt føste løsning hvis muligt.