Jeg smider lige hele skidtet ind.. for fatter ikke ret meget lige nu, måske jeg bare skulle gå i seng :-P .. hehe
--------------
<body>
<%
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(10), "<br>")
FormatStr = String
End Function
Set cn = Server.CreateObject("ADODB.Connection")
OpenString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../db/ubc_news.mdb")
cn.Open OpenString
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT TOP 6 * FROM news ORDER BY dato Desc", cn
do while not rs.eof
%>
<table border="0" cellpadding="3" cellspacing="0" width="60%">
<tr>
<td valign="top" width="1%">*</td>
<td valign="top">
<font size="1"><% = rs("dato") %></font>
<br>
<font size="2"><b><% = rs("headline") %></b><br><% = FormatStr(rs("message"))%></font>
<br><br>
<font size="1">Written by: <b><% = rs("author") %></b></font>
<br><br>
<font size="1"><a href="news_overview.asp?mode=delete_news=<%=rs("ID")%>">Delete</a></font>
<% if mode = "delete_news" then
Set rs = Conn.Execute("select * from news where ID = " & Request.QueryString("ID"))
Response.Redirect("news_overview.asp")
end if %>
</td>
</tr>
</table>
<br><hr><br>
<%
rs.MoveNext
loop
rs.close
cn.close
%>
</body>
</html>
--------------
