Hent ind i table!

Noget i denne stil:

<%
' Åben en connection:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("test.mdb")
' Vælg alle nyheder
Set RS = objConn.Execute("select * from tabelnavn" ' HUSK ændre tabelnavn
%>
<table width="80%" border="0" cellspacing="0" cellpadding="0" height="203">
<%
  while not RS.EOF do
%>
  <tr>
    <td width="30%" valign="top"><p><a href="#"><% Response.Write(RS("navn")) %></a></p></td>
    <td width="70%" valign="top"><% Response.Write(RS("nyhed")) %></td>
  </tr>
<%
    RS.MoveNext
  loop
  RS.Close
%>
</table>

Der kan være nogle småjusteringer. :-)

Alle mine dokumenter skal hentes ind i en skabalon:

Fx:

<table width="212" border="0" cellspacing="0" cellpadding="0" height="20">
  <tr>
    <td colspan="3"><img src="top.gif" width="212" height="20"></td>
  </tr>
  <tr>
    <td width="6" background="left.gif" rowspan="4"></td>
    <td width="212" height="10" valign="top">Teksten der skal være hvid, og centreret!</td>
    <td width="3" background="right.gif" rowspan="4"></td>
  </tr>
  <tr>
    <td width="212" height="20" valign="top" align="center">
    </td>
  </tr>
  <tr>
    <td width="212" height="19" valign="top" align="center">
    </td>
  </tr>
  <tr>
    <td height="28" valign="top">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="3" height="21"><img src="bund.gif" width="212" height="21"></td>
  </tr>
</table>

Hvordan får jeg det på alle dokumenterne, så det sker automatisk ?

lukket