Recordset - hvordan

Jeg har fået at vide at der mangler et recordset for at få nedenstående kode til at virke.

Det er koden til en side der viser indholdet af en tabel, og indsætter et link ud for hver linie som jeg så kan bruge til at slette den pågældende linie (vha. en anden side).

Jeg får denne fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: ''


Nogen der kan rette koden til for mig?


<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open="hcb_scales_tips"

' strSQL = "Delete from news where ID = 12"
' objConn.Execute(strSQL)

strSQL = "SELECT * FROM news ORDER BY news.ID Desc"
objConn.Execute(strSQL)

%>

<%
While NOT news.EOF
%>


<a href="delete.asp?id=<%=news.Fields("id")%>"><%=news.Fields("navn")%></a>
<br>

<%
news.MoveNext
Wend
%>

<%
objConn.Close
%>

Hilsen

Kim