Hvad gør jeg forkert i mit script

Jeg sidder og pusler med min dagbog til min hjemmeside og forsøger at trække den nyeste tekst ud. Når der fx er en der vil skrive en kommentar til en tekst, så får jeg denne fejl: ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/blog/blog.asp, line 74

(i linie 74 står der Response.Write "<a href='java script:window.open('/dagbog/kom.asp?Id=" & rs("/dagbog/artikel")&"','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=400,height=400,top=50,left=50').focus();void(0)'>Skriv en kommentar</a>" )
hvor der skulle have været et link til at klikke på for at skrive en kommentar.
blog.asp ser således ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/dagbog/dagbog.mdb")
Conn.Open DSN

strSQL = "Select TOP 1 * from dagbog order by ID desc"
set rs = Conn.Execute(strSQL)

Do While not rs.eof
Response.Write "<table border='0' WIDTH='100%'>"
Response.Write "<td width='400' valign='top' colspan='2'><div id='tabel5'><b>"& rs("overskrift") &"</b></div>"
Response.Write "<FONT FACE='VERDANA' SIZE='1'><FONT COLOR='#959595'>"& rs("dato") &"</FONT><p>"& rs("tekst") & "<p>Læst <b>"& rs("antal_vist")&"</b> gange <hr COLOR='#990000' SIZE='1'><img src='skrivkommentar.gif' width='18' height='17' border='0'>"
Response.Write "<a href='java script:window.open('/dagbog/kom.asp?Id=" & rs("/dagbog/artikel")&"','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=400,height=400,top=50,left=50').focus();void(0)'>Skriv en kommentar</a>"
Response.Write '(' & NumberOfRecords('dagbog.mdb', 'SELECT * FROM comments WHERE Id=' & mailen('id') & ';') & '</FONT>)'
Response.Write "</FONT>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
rs.MoveNext

Loop

Conn.Close
Set Conn = Nothing
%>

Vias.asp som jeg prøver at kigge efter, for at lære lidt om hvordan jeg gør ser således ud:

<%@ Language=VBScript %>
<!--#INCLUDE FILE ="adovbs.inc" -->
<!--#INCLUDE FILE ="code_lib.asp" -->
<!-- #include file="recordcounter.asp" -->
<%
Set Conn = Server.createobject("adodb.connection")
Conn.Open "DBQ="& Server.MapPath(".") &"/dagbog.mdb; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Id, bruger_id, dato, tekst, overskrift FROM dagbog WHERE Id = "& Request.QueryString("artikel")
Set mailen = Conn.ExeCute(SQL)
If mailen.EOF Then
  Response.Write "Der er opstået en fejl..."
Else
    SQL1 = "UPDATE dagbog SET antal_vist=antal_vist+1 WHERE Id = " & Request.QueryString("artikel")
    conn.execute(SQL1)

    Set Rs = Conn.Execute("SELECT antal_vist FROM dagbog WHERE Id = " & Request.QueryString("artikel") & "")
%>
<table border="0" WIDTH="100%">
<td width="400" valign="top" colspan="2"><div id="tabel5"><b><% = mailen("overskrift") %></b></div>
<FONT FACE="VERDANA" SIZE="1"><FONT COLOR="#959595"><% = datovis(mailen("dato")) %></FONT><p><% = mailen("tekst") %>
<p>Læst <b><%= rs("antal_vist")%></b> gange <hr COLOR="#990000" SIZE="1"><img src="skrivkommentar.gif" width="18" height="17" border="0"><a href="java script:window.open('kom.asp?Id=<%= Request("artikel") %>','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=400,height=400,top=50,left=50').focus();void(0)">Skriv en kommentar</a>
<% End If %><%
Response.Write "(" & NumberOfRecords("dagbog.mdb", "SELECT * FROM comments WHERE Id=" & mailen("id") & ";") & "</FONT>)"
%>
</FONT>
</td>
</tr>
</table>