Slette nyhed i db (novice)

hvad hedder din table i dattabasen, og kolonerne???

table'en hedder: nyheder
Kolonner: ID, Dato, Nyhed, Forfatter

/S

// På den side hvor du ønske knappen slet skriver du:

<a href="sletnews.asp?id=<%=ID%>">Slet</a>


//så opretter du en ny side der f.eks. hedder sletnews.asp hvori der står:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder.mdb")

SQLstmt = "DELETE * FROM nyheder WHERE ID=" & TRIM(Request.QueryString("id"))

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("nyhedsside.asp")
%>

fortsat:

// glemte selvfølgelig lige posterne. poster med slet knappen udskrives sådan:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder.mdb")

SQLstmt = "SELECT * FROM nyheder ORDER BY ID desc;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>

// herefter udskriver vi posterne:

<%
  DO WHILE NOT rs.EOF
    indlaeg = rs("indlaeg")
    id = rs("id")
    %>

<a href="sletnews.asp?id=<%=id%>">Slet</a>--<a href="retnyhed.asp?id=<%=id%>">Ret</a><br><br>

<%
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>

Underligt, når jeg laver siden på min maskine (DW & FP) ser siden fin ud, Men når jeg uploader den og går ind på den får jeg følgende melding!

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

siden ligger i roden sammen med DB'en så det burde ikke være det?

Kan det have noget at gøre med:

    indlaeg = rs("indlaeg")
    id = rs("id")
    %>

Lets start from the top:
jeg har lavet en side der hedder slet.asp her ligger
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder.mdb")

SQLstmt = "SELECT * FROM nyheder ORDER BY ID desc;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>

// herefter udskriver vi posterne:

<%
  DO WHILE NOT rs.EOF
    indlaeg = rs("indlaeg")
    id = rs("id")
    %>

<a href="sletnews.asp?id=<%=id%>">Slet</a>--<a href="retnyhed.asp?id=<%=id%>">Ret</a><br><br>

<%
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>

Så kommer sletnews.asp med

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyheder.mdb")

SQLstmt = "DELETE * FROM nyheder WHERE ID=" & TRIM(Request.QueryString("id"))

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("nyhedsside.asp")
%>

Er det rigtigt, fuck jeg hader når jeg ikke fatter det, måske skulle man købe en bog om det!!!

Sletnews.asp virker fint hvis jeg manuelt indtaster id nr!

Hej

Jeg fik det til at virke med nedenstående script Phineas får point for den fine indsats

<%    Set    Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("nyheder.mdb")
    SQL = "SELECT * FROM nyheder"
    Set RS = Conn.Execute(SQL)


    if RS.eof then
    response.write "Databasen er tom"
    end if

Do While Not RS.EOF
%>
<body bgcolor="#00FF66">
<a href="slet2.asp?funktion=slet&id=<%=RS("ID")%>">Slet link</a> - <a href="<%=RS("Dato")%>">&nbsp;&nbsp;
Dato:&nbsp;&nbsp;&nbsp;<%=RS("Dato")%><br>
Nyhed:&nbsp;&nbsp;&nbsp;<%=RS("Nyhed")%><br>
Forfatter:&nbsp;&nbsp;&nbsp;<%=RS("Forfatter")%></a><br><br><br>

<%
RS.MoveNext
Loop

RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing %>











<%
If request("funktion") = "slet" then

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("nyheder.mdb")
    SQL = "Delete from nyheder WHERE id=" & Request.QueryString("id")

    Conn.Execute (SQL)
   
    Conn.Close
    set Conn = nothing
   
    response.write "<br><br><b>Indlæget er slettet.</b>"
    Response.Expires = 0   
End If
%>

ja der er jo hård kamp om pointene, så jeg beklager meget at jeg skrev forkert :D

takker for point