<%Option Explicit%>

<% dim RS, SQL Set rs = Server.CreateObject("ADODB.RecordSet") if request("delete") <> "" then SQL = "DELETE FROM Guestbook WHERE (ID= " & request("delete") & ")" rs.Open SQL, Conn, 1, 3 end if SQL = "SELECT * FROM Guestbook ORDER BY ID DESC" rs.Open SQL, Conn, 1, 3 Response.Write "" If Not (rs.BOF Or rs.EOF) Then do while not RS.eof Response.Write "" rs.MoveNext loop end if rs.close Response.Write " Ryd op i Forum slet "&writeDate(RS("dato"))&" "&RS("navn")&" "&left(RS("kommentar"),40)&"... " Set rs = Nothing %>