Har brug for noget hjælp!

Hejza Eksperter.

Jeg har brug for lidt hjælp til min artikel system.

artikel.asp
Den gå ind i Databasen og åbner tablen "artikel" hvor den kun henter emne.
artikel.asp viser kun emne, men linker videre til vis_artikel.asp, som viser hele artiklen plus forfatter.

Til vider ser det sådan ud:
http://www24.brinkster.com/madka/artikel.asp

ALT virker fint, men nu vil jeg have at der kan komme kommentar i buden af vis_artikel.asp.

Alle kommentar skal bruge tabellen "kommentar" i databasen.

Det skal virke ligesom denne her, kig nederst:
http://www.udvikleren.dk/new_show_article.php?id=79

Jeg vil have at i laver vis_artikel.asp's kode om til min ønske, i må også gerne forklar lidt.




Her er koden til ARTIKEL.ASP:

<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Emner</title>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="49%" id="AutoNumber1">
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;</td>
    </tr>
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;
<%           
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("database.mdb")
Sql = "SELECT TOP 5 * FROM artikel order by ID desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
%>
<%while not RS.EOF%></td>
    </tr>
    <tr>
      <td width="100%" valign="top" bgcolor="#C0C0C0" align="center">
      <a href="vis_artikel.asp?id=<%=RS("id") %>"><%=RS("emne")%></a></td>
    </tr>
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;
<%
RS.MoveNext
wend
   
RS.close
set RS =nothing
conn.close
set conn = nothing
%>
      </td>
    </tr>
  </table>
  </center>

</body>

</html>







Her er koden til VIS_ARTIKEL.ASP:


<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Artikel</title>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="49%" id="AutoNumber1">
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;</td>
    </tr>
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("database.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
    Sql = "SELECT * FROM artikel Where ID=" & id
Set RS = Con.Execute(Sql)
%></td>
    </tr>
    <tr>
      <td width="100%" valign="top" bgcolor="#C0C0C0" align="center">
      <p align="left">&nbsp;<%=RS("emne")%>&nbsp;-&nbsp;<%=RS("forfatter")%></td>
    </tr>
    <tr>
      <td width="100%" valign="top" bgcolor="#F4F4F4" align="center">
      <p align="left">&nbsp;<%=RS("artikel")%></td>
    </tr>
    <tr>
      <td width="100%" valign="top" align="center">
      <p align="left">&nbsp;
<%   
RS.close
set RS =nothing
con.close
set con = nothing
%>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>


Min email er: madka@msn.com