Hejsa
Har en løsning opdelt på 2 filer.
Først listes alle nyhederne op.
Fil 1
<%
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
DO WHILE NOT rs.EOF
id = rs("id")
dato = rs("dato")
navn = rs("navn")
%>
<tr>
<td><%=dato%></td>
<td><a href="slet.asp?id=<%=id%>"><%=navn%></td>
<td><%=aargang%></td>
</tr>
<%
rs.MoveNext
LOOP
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Ingen</p>"
End If
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
Fil 2 (kaldet slet.asp)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.MapPath("../Sti/navn.mdb")
SQLstmt = "DELETE * FROM nyhed WHERE ID=" &
TRIM(Request.QueryString("id"))
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect ("nyhed.asp")
%>
Det kræves dog, du beskytter den 1. fil med password.
-/ Falcon
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials