Ny kode ?

Hejsa,

I mit nyheds system har jeg en kode som jeg nu har prøvet at ændre til en anden. Det virker ikke.

Er der nogle der kan finde fejlen:

--------- KODE 1 - DEN GAMLE ------------
<%
OpenConn(\"nyheder/yepss-forside/news.mdb\")

If request(\"mode\") = \"delete\" then
    SQL = \"delete from news where news_id = \" & request(\"news_id\")
        If session(\"Admin\") = \"OK\" then
        Conn.Execute(SQL)
        End If
End If

SQL = \"select * from news order by created desc\"
Set news = Conn.Execute ( SQL )
%>
--------- KODE 1 - SLUT ------------


--------- KODE 2 - DEN NYE ------------
<%
Dim rs
Dim news_id, nyhed, forfatter, created


Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"nyheder/yepss-forside/news.mdb\")

rs.Open \"news\", strDSN, adOpenDynamic, adLockReadOnly, adCmdTable

rs.find \"ID=\" & request.querystring(\"news_id\")

news_id = rs(\"news_id\")
Nyhed = rs(\"Nyhed\")
Forfatter = rs(\"Forfatter\")
created = rs(\"created\")

rs.close
set rs = Nothing
%>
--------- KODE 2 - SLUT ------------