Slette beskeder fra GB altså fra DB

Hey eksperter! ;)

Jeg er ikke helt klar over hvordan man sletter et indlæg fra en gæstebog.. Min kode ser såda ner ud, har fået af hvide man skal give en query.. Men ved ikke hvor jeg skal ligge den og hvad man præcis skal skrive.. Nogen der kan hjælpe?


<script>


function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}
}
}
</script>
<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' order by id desc"
rs.Open Addera, Connect, 3, 3

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&request.querystring("id")&"'"
rs1.Open Addera, Connect, 3, 3

if request.querystring("id") = session("id") then
Set rs5 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' and last=0"
rs5.Open Addera, Connect, 3, 3
if not rs5.eof then
do until rs5.eof
rs5("last")=1
rs5.update
rs5.movenext
loop
response.redirect "gastbok.asp?id="&session("id")
end if
end if


if request.querystring("action")="spara" then
if session("id") <> request.querystring("id") then
rs.addnew
rs("namn")=session("user")
rs("inlagg")=request.form("requiredinlagg")
rs("gbid")= request.querystring("id")
rs("namnid")=session("id")
rs("datum") = now
rs.update

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
if rs("gast")&"" = "" then
gast = 0
else
gast = rs("gast")
end if
rs("gast") = gast + 1
rs("status") = rs("status") + poanggastbok
rs.update

response.redirect "gastbok.asp?id="&request.querystring("id")
end if
end if
rs.PageSize = 10
if not rs.EOF then
rs.AbsolutePage = nextPage
%>
<font size="1">
<br>
<% END IF %>
</font>
<table width="680" border="1" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
  <tr>
   
    <center></center><td height="20" background="bilder/ruta_bak.gif"><div align="center"><a href="minsida.asp?id=<%=request.querystring("id")%>"><strong>
        <font size="1"><%=rs1("anv")%></font></strong></a><strong><font size="1">´s
        gæstebog</font></strong></div></td>
  </tr>
  <tr>
    <td bgcolor="#f0f0f0">
<table width="608" border="0" cellspacing="0" cellpadding="0">
        <tr valign="top">
          <td width="607">
            <font size="1">
            <%
     
Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
Set rs3= Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&rs("namnid")&"'order by id "
rs3.Open Addera, Connect, 3, 3
%>
            </font>
            <table width="103%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
              <tr valign="top">
                <td width="50">
                  <font size="1">
                  <% if rs("namnid")&""<> "" then%>
                  <% if rs3("bild")&""<>"" then%>
                  <img src="<%=rs3("bild")%>" width="33" height="50" border="1">
                  <% end if
    end if %>
                </font>
                </td>
                <td><B>
                  <font size="1">
                  <% if rs("namnid")&""="" then%>Bruger
                  <%=rs("namn")%> </font> </b> <font size="1">- <%=rs("datum")%>
                  <% else %>
                  <a href="minsida.asp?id=<%=rs("namnid")%>"><%=rs("namn")%></a>
                  - <%=rs("datum")%>
                  <%end if%>
                  <% if request.querystring("id")= session("id") then %>
                  - <a href="gastbok.asp?id=<%=rs("namnid")%>"><strong>Svar</strong> </a>
                  <% end if %>
                  <br> <%=byt(rs("inlagg"))%><br> </font> </td>
                 

                 
                 
              </tr>
            </table>
            <hr>
            <font size="1">
            <%
rs.movenext
loop
%>
            </font>
            <form name="form" method="post" action="gastbok.asp?action=spara&id=<%=request.querystring("id")%>"  onSubmit="submitonce(this)">
              <div align="center">
                <font size="1">
                <textarea name="requiredinlagg" rows="6" cols="41"></textarea>
                <br>
                &nbsp;</font></div>
                <div align="center">
                <font size="1">
                <input type="submit" name="Submit" value="Tilføj besked">
              </font>
              </div>
            </form>
            <p><font size="1">
            <br> <br>
            <%
IF rs.PageCount > 1 THEN

%>
            Side:
            <%
    FOR a = 1 to rs.PageCount
IF a <> cINT( nextPage ) THEN %>
            <a href="gastbok.asp?nextPage=<%=a%>&id=<%=request.querystring("id")%>"><%=a%></a>
            <%
ELSE %>
            (<%=a%>)
            <%
END IF
NEXT
end if


   
      %>
          </font>
          </td>
          <td width="0"><div align="right"></div>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<font size="1">
<br>
<!-- #include file = "under.asp" --></font>