News Border
http://www.ravens.dk/nyhed/nyhed.asphttp://www.ravens.dk/nyhed/visnyheder.asp
Det er en news form.. hvordan for jeg sat dem i table så news står lidt pænere
<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>
<html>
</head>
<body>
<tr><td> </td></tr>
<% Do While Not Record.EOF %>
<td bgcolor="#E8E8E8"><% Response.Write Record("Dato")%></td>
<td bgcolor="#E8E8E8" align="right">Fra <i><% Response.Write Record("Forfatter")%></i></td>
</tr>
<tr>
<td colspan="2"><% Response.Write Record("Nyhed") %></td>
</tr>
<tr><td> </td></tr>
<%
Record.MoveNext
Loop
%>
</table>
</body>
</html>
<%
Con.Close
Set Con = Nothing
%>
