Nheder

Jeg har her en lille nyhedsfunktion hvor man kan tilføje nyheder via en access.db,
hvis nogen har en ide til at slette nyheder også vil det være supert.
Helheden består af 3 filer, som kan hentes på
http://home19.inet.tele.dk/ms
-------------------------------
<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strKommentar = Trim(Request.Form(\"Kommentar\"))
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM news WHERE (ID = 0)\"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"Dato\") =Date()
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
%>
<html>

<head>
<title>Nyheder</title>
</head>

<body>

  <div align=\"center\"><center><table width=\"488\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\">
    <tr>
      <td width=\"488\"><font face=\"Arial\" size=\"2\" color=\"Black\"><B>Nyheder</B><br>Indtast den information du ønsker skal publiceres på IB. <br><br></font></td>
    </tr>
    <tr align=\"center\">
      <td width=\"100%\">

<form method=\"POST\" action=\"indlaeg.asp\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><font face=\"arial\" size=\"2\"><B><br>
          </B>Indtast venligst oplysningerne i følgende felter:<B><br>
          &nbsp; </B></font></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">Overskrift</font></B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Overskrift\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"top\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">Brødtekst</font></B></td>
          <td valign=\"middle\" align=\"left\"><textarea rows=\"3\" name=\"Kommentar\" cols=\"40\"></textarea></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
          <input type=\"submit\" value=\"Gem\" name=\"Gem\"> <input type=\"button\" value=\"Annuller\" name=\"Annuller\" onClick=\"java script:history.back();\"></td>
        </tr>
      </table>
</form>
</tr>
  </table>
  </center></div>
</body>
</html>