Hej
Er der nogle der kan hjælpe mig med at lave så man også kan slette en nyhed
igen via browseren !!!!
Du kan skrive til mig på denne email: poul88@worldonline.dk
Tak for hjælpen !!!!
Poul Henning Svendsen
www.htpklan.dk
SOURCE CODE:
---------------------------------------------------------------------------
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyhed/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>
<body bgcolor="#000000" text="#FFFFFF" link="#00FF00">
<div align="center">
<center>
<table border="1" cellspacing="0" width="506" height="87">
<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->
<% Do While Not Record.EOF %>
<td bgcolor="#000080" width="464" height="18"><font face="Trebuchet MS"
size="2" color="#FFFFFF"><b> <% Response.Write
Record("Overskrift")%></b></font></td>
<td bgcolor="#000080" align="right" width="93" height="18">
<p align="center"><font face="Trebuchet MS" size="2"
color="#FFFFFF"><b> <% Response.Write Record("Dato")%></b></font></p>
</td>
<tr>
<td colspan="2" width="531" height="39"><font face="Trebuchet MS" size="2"
color="#FFFFFF"><% Response.Write Record("Nyhed") %></font></td>
<tr>
<td colspan="2" width="531" height="18"><font face="Trebuchet MS" size="2"
color="#FFFFFF"> <% Response.Write Record("Forfatter")%></font></td>
</tr>
<%
Record.MoveNext
Loop
%>
<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>
</center>
</div>
<p> </p>
</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>