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:
----------------------------------------------------------------------------
-----
<%
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>
<body>
<table border="0" cellspacing="0" width="550">
<tr>
<td align="center" colspan="2"><h1>Nyheder</h1></td>
</tr>
<tr><td> </td></tr>
<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->
<% Do While Not Record.EOF %>
<td bgcolor="#999966"><% Response.Write Record("Dato")%></td>
<td bgcolor="#999966" 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
%>
<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>
</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>