Tilbage

Slet nyhed: <% dim RS, SQL set RS = server.createobject("ADODB.recordset") if request("action")<>"delete" then SQL = "SELECT * FROM nyheder WHERE nyhedsid = "&request("nyhedsid") RS.Open SQL,conn if not RS.eof then %>

Vil du slette <%=RS("titel")%>? &action=delete">Ja / Nej

<% else response.write "

Nyheden kunne ikke findes i databasen.

" end if RS.close else SQL = "DELETE FROM nyheder WHERE nyhedsid = "&request("nyhedsid") RS.Open SQL,conn response.write "

Nyheden er nu slettet!

" end if set RS=nothing %>