Tilføj og slet poster i en database

Hejsa..

Jeg har lavet http://www.nielsenmand.dk/test

men mine funktioner der gør at jeg kan tilføje og min funktion der gør at jeg kan slette en nyhed, virker ikke...

Er der nogle der kan se fejlen???

min addnews.asp:

<!-- #include file="conn.asp" -->
<%
strCmd = Request.QueryString("cmd")

openConn()

If strCmd = "addnew" Then

strId        = Request.Form("id")
strDate        = Request.Form("date")
strHeadline    = Request.Form("headline")
strContext    = Request.Form("context")

    strSQL = "INSERT INTO news ("

    strSQL = strSQL & "Date, "
    strSQL = strSQL & "Headline, "
    strSQL = strSQL & "Context) "

    strSQL = strSQL & "values ("

    strSQL = strSQL & "'" & strDate & "', "
    strSQL = strSQL & "'" & strHeadline & "', "
    strSQL = strSQL & "'" & strContext & "')"

    connection.Execute(strSQL)
%>

Artiklen er nu oprettet!<br><br>
<a href="newsoverview.asp">Tilbage til oversigten</a>
<%
Else
%>
<form method="post" action="addnews.asp?cmd=addnew">
<table>
  <tr>
    <td><input type="text" name="headline"></td>
  </tr>
  <tr>
    <td><input type="text" name="date"></td>
  </tr>
  <tr>
    <td><textarea name="context"></textarea></td>
  </tr>
  <tr>
  <td><input type="submit" value="Opret"></td>
  </tr>
</table>
</form>

<%
End if
closeConn()
%>

____________________________________________________


Min deletenews.asp

<!-- #include file="conn.asp" -->
<%
strId = cint(Request.QueryString("id"))
openConn()
strSQL = "Delete from news where WHERE id=" & strId & ""
Set rs = connection.Execute(strSQL)
%>
<p>Nyheden er slettet</p>
<a href="newsoverview.asp">Tilbage til oversigten</a>
<%
closeConn()
%>


Er der en der gider kigge det igennem og sige mig hvor fejlene ligger?