Nyheds Viser
HejsaJeg har en hjemmeside, hvor jeg har en nyheds viser på min forside, altså en side hvor jeg skriver en nyhed, denne bliver lagt ind i en database og herefter langt ud på en side, nu har jeg et lille problem der hedder at jeg gerne vil vise den sidste nye nyhed ud på min forside, men ved kun hvordan jeg får alt inde fra databasen ud på min forside.
Her er et stykke kode :
<%
Response.Buffer = True
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 2</title>
<LINK href="scroll.css" type=text/css rel=stylesheet>
</head>
<body bgproperties="fixed">
<body>
<p align="right"><b><font face="Verdana" size="2">Nyheder Om Siden</font></b></p>
<% Do While Not Record.EOF %>
<tr><td>
<div align="center">
<center>
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CDDBEB" width="70%" id="AutoNumber1">
<tr>
<td width="50%" bgcolor="#C0C0C0" background="backs.jpg"><% Response.Write Record("Dato")%> </td>
<td width="50%" bgcolor="#C0C0C0" background="backs.jpg"><% Response.Write Record("Forfatter")%> </td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#336699"><% Response.Write Record("Nyhed") %> </td>
</tr>
</table>
</center>
</div>
</td></tr>
<br>
<%
Record.MoveNext
Loop
%>
</p>
<p align="center"> </p>
<p align="center">
<img border="0" src="grafik/hovedprogram/bush.jpg" width="137" height="140">
<img border="0" src="grafik/hovedprogram/saddam.jpg" width="129" height="140">
<img border="0" src="grafik/hovedprogram/blair.jpg" width="108" height="140"></p>
<p align="center">
</p>
<p align="center"><font face="Verdana"><small><small><small>©opyright VTM
Webdesign´s 2000 - 2003<br>
Gengivelse af skriftligt materiale, grafik, samt koder er ikke tilladt uden
tilladelse</small></small></small></font></p>
</body>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
</html>
