---
title: "Enkelt adminsystem, får det icke att fungera."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84730-enkelt-adminsystem-får-det-icke-att-fungera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Opelomega"
published: "2003-08-28T15:44:30.000Z"
updated: "2003-09-04T19:34:50.000Z"
replies: 11
views: 371
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/84730-enkelt-adminsystem-får-det-icke-att-fungera"
---
# Enkelt adminsystem, får det icke att fungera.
## #1 — Opelomega, 2003-08-28T15:44Z
Hej
Har försökt knåpa ihp en enkelt adminsystem men inte lýckats något vidare. Det enda jag vill få ut av det hela är att ta bort posten från databasen. Och att det innan är listat på en sida.
Ni får gärna komma med något enklare/bättre exempel.
\<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=;Password"
sqlstmt = "SELECT \* from formular Order by ID Desc"
Set RS = conn.execute(sqlstmt)
If rs.eof then
response.write "\Det finns inget i databasen.\"
response.end
End If
Do while not rs.eof
fornamn = Request.Form("fornamn")
efternamn = Request.Form("efternamn")
epost = Request.Form("epost")
hemtel = Request.Form("hemtel")
arbtel = Request.Form("arbtel")
mobtel = Request.Form("mobtel")
postadress = Request.Form("postadress")
postnummer = Request.Form("postnummer")
ort = Request.Form("ort")
epost2 = Request.Form("epost2")
sdate = Date
%\>
\
\
\\\<%=ID%\>\
\\\<%=fornamn%\>\\
\\\<%=efternamnepost%\>\\
\\\<%=epost%\>\\
\\\<%=epost2%\>\\
\\\<%=hemtel%\>\\
\\\<%=arbtel%\>\\
\\\<%=mobtel%\>\\
\\\<%=postadress%\>\\
\\\<%=postnummer%\>\\
\\\<%=ort%\>\\
\\\<%=sdate%\>\\
\
\<%
rs.MoveNext
loop
%\>
\
\\\Nr\\\
\\\Namn\\\
\\\E-post\\\
\\\Telefonnr\\\
\\\Sort\\\
\\\Kategori\\\
\\\Rubrik\\\
\\\Annonsen\\\
\\\Datum\\\
\\\Tid\\\
\
\<%
IF IsEmpty(request.form("ID")) THEN
response.write "\Du måste markera en checkbox innan du kan radera ett inlägg.\"
response.write "Var vänlig tryck på webbläsarens bakåtknapp.\"
response.end
End IF
set rs = nothing
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=;Password="
For each record in request("ID")
sqlstmt = "DELETE \* from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
response.write "\Raderat\"
set rs = nothing
set conn = nothing
%\>--\>
Permalänk: https://www.webforum.nu/p/84730
## #2 — SteveP, 2003-08-28T15:49Z
Har du nån \ tagg då ?
Du måste posta datan tillbaka till sidan så den får tillbaka nåt värde.
Permalänk: https://www.webforum.nu/p/1141418
## #3 — SteveP, 2003-08-28T15:59Z
Välkommen till Webforum förresten!
Testa detta: (ändringarna är i fetstil)
```
<%
IF request.form("ID") <> "" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=;Password="
For each record in request("ID")
sqlstmt = "DELETE * from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
response.write "
Raderat
"
set rs = nothing
set conn = nothing
End if
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=;Password"
sqlstmt = "SELECT * from formular Order by ID Desc"
Set RS = conn.execute(sqlstmt)
If rs.eof then
response.write "
Det finns inget i databasen.
"
response.end
End If
Do while not rs.eof
fornamn = Request.Form("fornamn")
efternamn = Request.Form("efternamn")
epost = Request.Form("epost")
hemtel = Request.Form("hemtel")
arbtel = Request.Form("arbtel")
mobtel = Request.Form("mobtel")
postadress = Request.Form("postadress")
postnummer = Request.Form("postnummer")
ort = Request.Form("ort")
epost2 = Request.Form("epost2")
sdate = Date
%>
[b][/b]
```
PS. Använd KOD taggarna när du skriver kod i forumet.
Permalänk: https://www.webforum.nu/p/1141423
## #4 — Opelomega, 2003-08-28T19:08Z
Tackar, jag känner mig verklingen välkommen.
Är van att kod bli markerat av sig självt.
Nej det fungerar inte riktigt glömde lista all kod, glömde den viktigaste biten. Fick nu också ett felmedelande när jag markerade checkboxen.
All kod inklusive hjälpen jag fått av er:
```
<%
IF request.form("ID") <> "" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ""
For each record in request("ID")
sqlstmt = "DELETE * from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
response.write "
Raderat
"
set rs = nothing
set conn = nothing
End if
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN;"
sqlstmt = "SELECT * from formular Order by ID Desc"
Set RS = conn.execute(sqlstmt)
If rs.eof then
response.write "
Det finns inget i databasen.
"
response.end
End If
Do while not rs.eof
fornamn = Request.Form("fornamn")
efternamn = Request.Form("efternamn")
epost = Request.Form("epost")
hemtel = Request.Form("hemtel")
arbtel = Request.Form("arbtel")
mobtel = Request.Form("mobtel")
postadress = Request.Form("postadress")
postnummer = Request.Form("postnummer")
ort = Request.Form("ort")
epost2 = Request.Form("epost2")
sdate = Date
%>
<%
IF IsEmpty(request.form("ID")) THEN
response.write "
Du måste markera en checkbox innan du kan radera ett inlägg. "
response.write "Var vänlig tryck på webbläsarens bakåtknapp.
"
response.end
End IF
set rs = nothing
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=;Password="
For each record in request("ID")
sqlstmt = "DELETE * from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt) [B]<-------Fel på denna rad[/B]
Next
response.write "
Raderat
"
set rs = nothing
set conn = nothing
%>
```
Felmeddelande
ADODB.Connection.1 error '80004005'
SQLState: 37000
Native Error Code: -3100
\[INTERSOLV\]\[ODBC SequeLink driver\]\[ACCESS\]\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'ID='.
Rad är ut märkt.
Permalänk: https://www.webforum.nu/p/1141517
## #5 — Josef, 2003-08-28T20:07Z
Variabeln **record** har inget värde.
Permalänk: https://www.webforum.nu/p/1141556
## #6 — Opelomega, 2003-08-29T05:47Z
Okej, och hur löser man detta? Nåt förslag?
Permalänk: https://www.webforum.nu/p/1141664
## #7 — SteveP, 2003-08-29T09:32Z
Du behöver ju inte den sista delen av koden eftersom den redan finns högst upp? Och den koden du har högst upp körs bara om Request.Form("ID") inte är tom.
Detta borde ju räcka
```
<%
IF request.form("ID") <> "" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ""
For each record in request("ID")
sqlstmt = "DELETE * from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
response.write "
Raderat
"
set rs = nothing
set conn = nothing
End if
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN;"
sqlstmt = "SELECT * from formular Order by ID Desc"
Set RS = conn.execute(sqlstmt)
If rs.eof then
response.write "
Det finns inget i databasen.
"
response.end
End If
Do while not rs.eof
fornamn = Request.Form("fornamn")
efternamn = Request.Form("efternamn")
epost = Request.Form("epost")
hemtel = Request.Form("hemtel")
arbtel = Request.Form("arbtel")
mobtel = Request.Form("mobtel")
postadress = Request.Form("postadress")
postnummer = Request.Form("postnummer")
ort = Request.Form("ort")
epost2 = Request.Form("epost2")
sdate = Date
%>
```
Permalänk: https://www.webforum.nu/p/1141742
## #8 — Opelomega, 2003-08-29T12:37Z
Måste vara dum eller nåt. Jag får inte det att fungerara. Den listar inte något av vad som finns i databasen. Det kommer bara upp en chebox ruta och datumet.Det är allt som visas, förstår verklingen inte vad som är fel.
Permalänk: https://www.webforum.nu/p/1141824
## #9 — solbulle, 2003-08-30T01:37Z
Du har ju i nuläget sagt åt den att lista sådant som den tar emot från ett formulär, och inte något från databasen.
Typ där det står:
fornamn = Request.Form("fornamn")
Har du inte tänkt att det där ska stå:
fornamn = rs("fornamn")
?
Permalänk: https://www.webforum.nu/p/1142090
## #10 — Opelomega, 2003-09-01T08:14Z
Tackar för det, det funkade fin fint.
Men ännu fungerar det inte, för när man markerar en checkbox så laddas sidan om. Hur gör man för att ta bort en post, förstår mig inte på det.
```
<%
IF request.form("ID") <> "" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open
For each record in request("ID")
sqlstmt = "DELETE * from formular WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
response.write "
Raderat
"
set rs = nothing
set conn = nothing
End if
%>
```
Permalänk: https://www.webforum.nu/p/1146017
## #11 — solbulle, 2003-09-01T21:39Z
Kan inte se att du ger ID något värde?
ID = rs("id")
samt du får skippa:
onClick="document.frm.submit();"
Om du inte vill skicka formen direkt utan kunna markera flera checkboxar.
Samt slutligen kan du "effektivisera" din delete:
```
IF request.form("ID") <> "" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open
sqlstmt = "DELETE * from formular WHERE ID in (" & request("ID") & ")"
conn.execute(sqlstmt)
set conn = nothing
response.write "
Raderat
"
End if
```
Permalänk: https://www.webforum.nu/p/1146531
## #12 — Opelomega, 2003-09-04T19:34Z
Tack för all hjälp. Men jag började om och gjorde ett nytt från grunden igen, eftersom detta innehöll så många fel.
Men tack för att ni försökt.
Permalänk: https://www.webforum.nu/p/1148159
---
Tråden på webben: https://www.webforum.nu/amne/asp/84730-enkelt-adminsystem-får-det-icke-att-fungera