Tilbage

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

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

<% else response.write "

Siden kunne ikke findes i databasen.

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

Siden er nu slettet!

" end if set RS=nothing %>