Slette i database via ASP

Prøv at kigge lidt på http://www.html.dk/tutorials/asp/lektion21.asp

<%
    Set rs37 = Conn2.Execute("select * from news where id = " & Request.QueryString("id"))
    conn2.Execute("delete from news where id = " & Request.QueryString("id") & "")
    'Response.Redirect("index.asp")


%>

så skal der bare linkes til news.asp?slet=news&id=1

var et svar

manglede lige noget, skal se sådan her ud:

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

<%
    Set rs37 = Conn2.Execute("select * from nyheder where id = " & Request.QueryString("id"))
    conn2.Execute("delete from nyheder where id = " & Request.QueryString("id") & "")
    Response.Redirect("index.asp")


%>

det er asp bag, det andet er bare at udskrive en side med dem alle sammen og så linke til news.asp?slet=news&id=X

<%
Set rs = Conn.Execute("select * from nyheder where id = " & Request.QueryString("id"))
conn.Execute("delete from nyheder where id = " & Request.QueryString("id") & "")
Response.Redirect("slettet.asp")
%>

Så ligger du et link f.eks. når du udtrækker fra DB'en
<a href='slet.asp?id=<%=rs("id")%>'>slet</a> - så sletter du!
Husk at ligge en connection i toppen!

Hvad er så fejlen her?

<%
ID = Request.QueryString("nyhed")

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

strSQL = ("Delete from nyheder WHERE Id =" & ID)
Conn.Execute(strSQL)

%>
<p>Artiklen med ID<% Response.write Request.Querystring ("ID") %>, er nu slettet!</p>

<----------NYHEDER.ASP---------->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN
strSQL = "Select * from nyheder order by ID Desc"
Set rs = Conn.Execute(strSQL)
Do
  %><b><% Response.write rs("OVERSKRIFT") %></b><br><i>Af <% Response.write rs("FORFATTER") %>, d. <% Response.write rs("DATO") %></i><br><br><table><tr><td><img border="<% Response.write rs("BORDER") %>" src="<% Response.write rs("BESKRIVELSE_PIC") %>" align="right"></td><td><font face='Verdana' size='2'><b><% Response.write rs("BESKRIVELSE") %></b></font></td></tr></table><br><br><a href='view.asp?nyhed=<% Response.Write rs("ID") %>'>Læs mere...</a><br><a href='slet.asp?nyhed=<% Response.write rs ("ID") %>'>Slet denne artikel</a><hr><%

  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<----------/NYHEDER.ASP--------->

<----------SLET.ASP------------->
<%
ID = Request.QueryString("nyhed")

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

strSQL = ("Delete from nyheder WHERE Id =" & ID)
Conn.Execute(strSQL)

%>
<p>Artiklen med ID<% Response.write Request.Querystring ("ID") %>, er nu slettet!</p>
<----------/SLET.ASP------------>

får du en fejl?

du kan fjerne () ved strSQL:

strSQL = "Delete from nyheder WHERE Id =" & ID

Somaliomar>> Opret lige et svar, tak...

/cotus

Nå, hvis du ikke vil have points somaliomar...