Nyheds sql script, max 3 på siden.

er ved at få et "nyhed" element til at virker.

har db, og conn virker. ;)

MEn når jeg henter data fra db,  hvor jeg kun ønsker
at vise de 3 sidste poster, da jeg i bunden laver et link,
hvor man kan få vist alle, hvis man er intereseret..

arbejdede m. acces vb script før..
men dette vil ikke kører her..

Bemærk løkken med tælleren som jeg kalte "tal"
som "skulle" have været den som stoppede lykken efter
der var talt 3 stk.

men detter giver bare fejl 500.  :p

Undskyld rodet, men den tabel var et hel***** at
få sat odentligt ind..

********************************************


  <%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open server.mappath("../../db/nyhed.mdb")


strSQL = "Select * from Nyhed"
Set rs = Conn.Execute(strSQL)


  tal = 0
  while not rs.eof and tal<3
  tal = tal + 1
%>
  <table width="360" border="1" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="204" height="21" valign="top"> : :
        <%  Response.Write rs("Overskrift") %></td>
      <td width="150" valign="top">Added : <% response.write rs("Dato") %></td>
    </tr>
    <tr>
      <td height="19" valign="top">Author :
        <% response.write rs("Forfatter") %></td>
      <td valign="top">Source :
        <% response.write rs("kilde") %></td>
    </tr>
    <tr>
      <td height="67" colspan="2" valign="top"> <% Response.Write rs("Nyhed") %> </td>
    </tr>
  </table>
<br><br>
  <%
  ' Gå til næste Record i rs
  rs.MoveNext


Loop While Not rs.EOF

  conn.close
set conn=nothing
%>