---
title: "Deleta databas inlägg???"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12898-deleta-databas-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ConnyFox"
published: "2001-11-28T17:44:00.000Z"
updated: "2001-11-28T20:21:00.000Z"
replies: 10
views: 152
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12898-deleta-databas-inlägg"
---
# Deleta databas inlägg???
## #1 — ConnyFox, 2001-11-28T17:44Z
jag är tämligen ny på asp och försöker göra en admin funktion till mitt nyhets script där man ska kunna ta bort nyheter från databasen. Skulle någon kunna hjälpa mig med detta?
Typ med en länk som : delete.asp?id=4
och en kod till själva delete filen. E helt väck på detta :o)
Permalänk: https://www.webforum.nu/p/12898
## #2 — LarsG, 2001-11-28T17:52Z
Nu vet jag inte vad din tabell heter och vilka kolumner som ingår så att du får rätta till det i delete-satsen.
Du får också ändra på connect.open så att det passar för din databas.
```
set connect = server.createobject("adodb.connection")
connect.open "dsn"
connect.execute "delete from news where id = " & request.querystring("id"),,128
connect.close
set connect = nothing
```
Permalänk: https://www.webforum.nu/p/296075
## #3 — timedia, 2001-11-28T17:55Z
Hoppas detta hjälper dig:
```
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN="
strSQL = "DELETE * FROM Exempel WHERE ExempelID = " & Request.QueryString("delID") & " "
Connect.Execute strSQL, , 128
Connect.Close
Set Connect = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/296076
## #4 — ConnyFox, 2001-11-28T17:58Z
Tack för d snabba svaret men som sagt jag e ny på detta o fattar inte riktigt vad jag då lämligast använder för länk för att ta bort inläggen?
D ska typ finnas en ta bort länk brevid varje inlägg som radas upp på admin sidan.
blah blah blah... \[Ta bort\]
Permalänk: https://www.webforum.nu/p/296077
## #5 — timedia, 2001-11-28T18:02Z
Här har du kanske det du behöver:
```
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN="
Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT NyhetsId, Rubrik FROM Nyheter ORDER BY NyhetsId"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic %>
Följande artiklar finns att radera.
<% Do Until RecSet.EOF %>
- <% =RecSet("Rubrik") %>
">Radera denna nyhet!
<% RecSet.MoveNext
Loop
RecSet.Close %>
```
Permalänk: https://www.webforum.nu/p/296078
## #6 — ConnyFox, 2001-11-28T18:21Z
tack d va precis vad jag behöver men d funkar ändå inte riktigt som d var tänkt.. verkar som att folk kodar ganska olika så..
Ok i ett sista desperat försök o fatta detta så ska jag ge lite mer exakt info :o)
Databasen nyheter.mdb
\----------------------
ID
rubrik
nyhet
datum
Admin.asp
\--------------------
```
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Select * from nyheter ORDER BY datum DESC"
Set rs = db.execute(SQL)
%>
Nyheter Admin
Admin sidan!
<%
do until rs.EOF
%>
<%
nyhet=Replace(rs("nyhet"),vbCrLf, "
")
%>
<%If Not rs("rubrik")="" Then%>
<%=rs("rubrik")%>
<%End IF%>
<%If Not rs("nyhet")="" Then%>
<%=rs("nyhet")%>
<%End IF%>
<%
rs.movenext
loop
%>
```
Och sidan som ska skicka informationen till databasen..
Nyheter_Send.asp
\--------------------
```
<%
Set db = Server.createObject("ADODB.connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Insert into nyheter(rubrik,nyhet) VALUES ('" & request.form("rubrik") & "', '" & request.form("nyhet") &"')"
Set rs = db.execute(SQL)
set rs = nothing
set db = nothing
response.redirect "admin.asp"
%>
```
Hoppas nån fattar min skitkod o kan hjälpa mig.. började pilla med databaser igår o kan inte ett piss typ ;)
Permalänk: https://www.webforum.nu/p/296079
## #7 — LarsG, 2001-11-28T18:31Z
```
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
SQL = "Select * from nyheter ORDER BY datum DESC"
Set rs = db.execute(SQL)
%>
Nyheter Admin
Admin sidan!
<%
do until rs.EOF
%>
<%
nyhet=Replace(rs("nyhet"),vbCrLf, "
")
%>
<%If Not rs("rubrik")="" Then%>
<%=rs("rubrik")%>
<%End IF%>
<%If Not rs("nyhet")="" Then%>
<%=rs("nyhet")%>
<%End IF%>
">Radera denna nyhet!
<%
rs.movenext
loop
%>
```
och sedan på sidan delete.asp
```
<%
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("nyheter.mdb")
db.execute "delete from nyheter where id = " & request.querystring("id"),,128
db.close
set db = nothing
response.redirect "admin.asp"
%>
```
Permalänk: https://www.webforum.nu/p/296080
## #8 — ConnyFox, 2001-11-28T18:37Z
Detta va preciiis va jag behövde.. synd bara att d inte funkade ;)
Fel
\-----------------------
Kompileringsfel i Microsoft VBScript fel '800a0400'
Programsats förväntas.
/StajlNews 1.0/admin.asp, rad 46
\=RS("
^
men men tack iaf! ;)
Permalänk: https://www.webforum.nu/p/296081
## #9 — ConnyFox, 2001-11-28T18:40Z
Sorry d funkade fin fint, råkade få med en radbrytning bara d fixade sig när jag tog bort den! tack så mycket nu kan jag fortsätta försöka lära mig nått! \*bockar o bugar\*
Permalänk: https://www.webforum.nu/p/296082
## #10 — LarsG, 2001-11-28T18:43Z
Deleade du upp koden på flera rader?
```
">Radera denna nyhet!
```
\=RS("ID") måste stå på en rad.
Permalänk: https://www.webforum.nu/p/296083
## #11 — buran, 2001-11-28T20:21Z
Ett förslag för att slippa "admina" så mycket är att du gör att raderingen går automatiskt, typ efter 10 dagar eller så.
Permalänk: https://www.webforum.nu/p/296084
---
Tråden på webben: https://www.webforum.nu/amne/asp/12898-deleta-databas-inlägg