Se kun nyeste indlæg i database
På min hjemmeside har jeg en knap der hedder "nyheder".Trykker man på den får man en tabel med en nogen datoer og forskellige nyheder udfra nedenstående script.
Nu vil jeg gerne have at der står den sidste nye "nyhed" på min forside. Hvordan skal scriptet se ud for at kunne det??
<table border="1" bordercolor="#293d70" cellpadding="0" cellspacing="0" width="800" height="100%">
<tr>
<tr>
<td width="100" align="center"><font><strong>Dato</strong></font></td>
<td width="700" align="center"><font><strong>Nyhed</strong></font></td>
</tr>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/news.mdb")
Conn.Open DSN
strSQL = "Select * From Nyhed Order By Dato Desc"
Set rs = Conn.Execute(strSQL)
do while not rs.EOF
%>
<tr>
<td width="100" valign="top"><font><br><% Response.Write FormatDateTime(rs("Dato"), vbLongDate) & "</dd>" %></font></td>
<td width="700" valign="top"><font><br><%=rs("Nyhed")%><br><br></font></td>
</tr>
<%
rs.MoveNext
loop
rs.close
Conn.Close
Set Conn = Nothing
%>
</tr>
</table>