Læs mere funktion til nyheder

Hej.

Mine nyheder bliver vist i en listevisning hvor der er et tilhørende link som hedder fx. "shownews.asp?id=8"

Men jeg mangler funktionen til at kunne læse mere.
Nogen som kan hjælpe med den? Er helt lost!

  <%
          Set Conn = Server.CreateObject("ADODB.Connection")
          DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSN = DSN & "DBQ=" & Server.MapPath ("news.mdb")
          Conn.Open DSN

          Set rs = Conn.Execute("select * from tblNews order by fldNewsDate asc")


          If Not rs.EOF Then
          Do While Not rs.EOF

        %>
                                       
        <table cellpadding="0" cellspacing="0" border="0">
          <tr>
            <td valign="top"  colspan="2" width="400"><b><%=rs("fldNewsDate")%></b><br><br></td>
          </tr>
          <tr>
            <td style="border-bottom: 1px solid #C4AE7C;width:200px;" align="left" valign="top">
              <%
                response.write "<img style=""width:200px;"" src=images/news/" & rs("fldNewsPic") & "><br><br>"
              %>
            </td>
            <td style="border-bottom: 1px solid #C4AE7C;width:300px;padding-left:10px;" align="left" valign="top"><b><%=rs("fldNewsTitle")%></b><br><%=(left(rs("fldNewsText"),100))%>...<br><br><a href="shownews.asp?id=<%=rs("fldId")%>">Læs mere</a>  </td>
          </tr>
        </table>
        <br>

  <%
    rs.MoveNext
    Loop
    Else
    Response.Write "Der er ingen nyheder på nuværende tidspunkt"
    End If
    Set rs = Conn.Execute("select count(fldNewsTitle) as antal from tblNews")

    Conn.Close
    Set Conn = Nothing
  %>