Er der en venlig sjæl der vil hjælpe?

Jeg sidder og er ved at pusse min blog til, men er stødt ind i et problem. Når der skrives en kommentar til en blog tekst, så vises kommentaren ikke ud for den rigtige tekst, men vise ved alle mine blog tekster.
Er der en, der vil hjælpe mig med at få det til at virke?
kommentar.asp
<%
  ' Declaring variables
  Dim rs, data_source, no
  no = 0
  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("dagbog.mdb")

  ' Creating Recordset Object and opening the database
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open "comments", data_source
  ' Looping through the records to show all of them
  While Not rs.EOF %>
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<tr>
<td width="100%" class="blog">
<div class="caps"><b><FONT FACE="VERDANA" SIZE="2">Dato:</b></FONT></div>
<FONT FACE="VERDANA" SIZE="2"><%=rs("comments") %></FONT>
<br>
<FONT FACE="VERDANA" SIZE="2">Skrevet af:<a href="mailto:<%= RS("email") %>"><%= RS("name") %></a></FONT>
<br>
<hr COLOR="#990000" SIZE="1">
<%
  no = no + 1
  rs.MoveNext
  Wend
  ' Done. Now close the Recordset
  rs.Close
  Set rs = Nothing
%>
<b><FONT FACE="VERDANA" SIZE="2"><center>Skriv kommentar:</center></FONT></b>
<!-- skriv kommentar -->
<form method="POST" action="save.asp">
  <input type="hidden" name="Mode" value="Comments">
  <input type="hidden" name="dagbog_id" value="<%= Request("dagbog_id") %>">
  <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" width="420">
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="2">Navn:</FONT></td>
        <td width="465"><input type="text" name="name" size="44" maxlength="255"></td>
      </tr>
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="2">E-Mail:</FONT></td>
        <td width="465"><input type="text" name="email" size="44" maxlength="255"></td>
      </tr>
      <tr>
        <td width="81" valign="top"><FONT FACE="VERDANA" SIZE="2">Besked:</FONT></td>
        <td width="465"><textarea class="area" rows="4" name="comments" cols="33"></textarea></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="Gem Kommentar" name="Send" class="button"></p>
</p>
</form>
************
save.asp
<%
  ' Declaring variables
  Dim name, email, comments, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  name = ChkString(Request.Form("name"))
  email = ChkString(Request.Form("email"))
  comments = ChkString(Request.Form("comments"))
  dagbog_id = Request.Form("dagbog_id")

  data_source = "Provdagbog_ider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("dagbog.mdb")
sql_insert = "insert into comments (dagbog_id, name, email comments) values (" & dagbog_id & ", '" & _
            name & "', '" & email & "','" & comments & "')"
       
  ' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "Tak for din kommentar."
%>
</body>
</html>
*********
vis.asp
<%@ 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
%><% = datovis(mailen("dato")) %></div>
<FONT FACE="VERDANA" SIZE="2"><b><% = mailen("overskrift") %></b><p><% = mailen("tekst") %><p><a href="kom.asp?Id=<%= Request("artikel") %>">Kommentér</a></FONT>

<% End If %><%
Response.Write NumberOfRecords("dagbog.mdb", "SELECT * FROM comments")
%>

Databsen:

comments: 
Id
dagbog_id 
name   
email 
comments

dagbog:
Navn 
Id 
bruger_id
dato 
tekst
overskrift