--- title: "vägrar ta bort rs.." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/90445-vägrar-ta-bort-rs" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Thompa__85" published: "2003-11-14T21:18:44.000Z" updated: "2003-11-16T04:33:06.000Z" replies: 17 views: 364 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/90445-vägrar-ta-bort-rs" --- # vägrar ta bort rs.. ## #1 — Thompa__85, 2003-11-14T21:18Z Hejsan! har en kod som ska ta bort ett inlägg: ``` if request.querystring("action")="tabort" then Set rs = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM klotter where id = "&request.querystring("ID") rs.Open Addera, Connect, 3, 3 rs.delete rs.update response.redirect "klotter.asp" end if ``` Men den skickar bara tillbaka till klotter.asp utan att ta bort det... Why? Permalänk: https://www.webforum.nu/p/90445 ## #2 — Sebbe, 2003-11-14T21:47Z Det kanske går bättre om du tar bort det med SQL direkt? ``` if request.querystring("action")="tabort" then strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") Connect.Execute(strSQL) response.redirect "klotter.asp" end if ``` Permalänk: https://www.webforum.nu/p/1205604 ## #3 — Thompa__85, 2003-11-14T22:06Z Nopes, inlägget finns fortfarande kvar :s men inga felmeddelanden ges... Permalänk: https://www.webforum.nu/p/1205613 ## #4 — Sebbe, 2003-11-14T22:10Z Är du säker på att det finns något värde i querystringen då? ``` if request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") Connect.Execute(strSQL) response.redirect "klotter.asp" Else Response.Write("Ajdå...") End If end if ``` Permalänk: https://www.webforum.nu/p/1205615 ## #5 — Thompa__85, 2003-11-14T23:03Z > **Sebbe skrev:** > > Är du säker på att det finns något värde i querystringen då? > > > ``` > if request.querystring("action")="tabort" then > If IsNumeric(Request.QueryString("ID")) Then > strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") > Connect.Execute(strSQL) > response.redirect "klotter.asp" > Else > Response.Write("Ajdå...") > End If > end if > ``` Hur tar jag reda på om de finns nått värde? Testade din kod, men man skickades tillbaka till klotter.asp, utan att den tog bort eller skrev Ajdå... Permalänk: https://www.webforum.nu/p/1205636 ## #6 — Sebbe, 2003-11-14T23:09Z Du råkar inte ha med On Error Resume Next någonstans i koden, eftersom felmeddelanden då inte visas? Permalänk: https://www.webforum.nu/p/1205637 ## #7 — Thompa__85, 2003-11-14T23:14Z Nopes har inget sånt... Permalänk: https://www.webforum.nu/p/1205639 ## #8 — Sebbe, 2003-11-14T23:22Z OK, nu kör vi en hårdkoll här! ;) ``` if request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "SELECT id FROM klotter WHERE id = " & Request.QueryString("ID") Set objRS = Connect.Execute(strSQL) If objRS.EOF Then Response.Write("Ajdå...") Set objRS = Nothing Else Set objRS = Nothing strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") Connect.Execute(strSQL) response.redirect "klotter.asp" End If Else Response.Write("Ajdå...") End If end if ``` Permalänk: https://www.webforum.nu/p/1205643 ## #9 — Thompa__85, 2003-11-14T23:24Z > **Sebbe skrev:** > > OK, nu kör vi en hårdkoll här! ;) > > > ``` > if request.querystring("action")="tabort" then > If IsNumeric(Request.QueryString("ID")) Then > strSQL = "SELECT id FROM klotter WHERE id = " & Request.QueryString("ID") > Set objRS = Connect.Execute(strSQL) > > If objRS.EOF Then > Response.Write("Ajdå...") > Set objRS = Nothing > Else > Set objRS = Nothing > strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") > Connect.Execute(strSQL) > response.redirect "klotter.asp" > End If > Else > Response.Write("Ajdå...") > End If > end if > ``` Tro de eller ej, men exakt samma resultat som tidigare :s Permalänk: https://www.webforum.nu/p/1205645 ## #10 — Sebbe, 2003-11-14T23:29Z Det låster nästan som om du har någon annan Response.Redirect() någonstans som skickar vidare besökaren dit, för att om det inte tas bort när man har gjort så där är en praktisk omöjlighet! :) Permalänk: https://www.webforum.nu/p/1205649 ## #11 — Thompa__85, 2003-11-14T23:30Z Skickar med hela kodsnutten: ``` <% nextPage = TRIM( Request("nextPage")) IF nextPage = "" THEN nextPage = 1 Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/klotter.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM klotter order by id desc" rs.Open Addera, Connect, 3, 3 Count = rs.recordcount if request.querystring("action")="spara" then Set rs = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM klotter " rs.Open Addera, Connect, 3, 3 rs.addnew rs("text")=request.form("inlagg") rs("namn") = session("user") rs("namnid")=session("id") rs("datum") =now rs.update if request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "SELECT id FROM klotter WHERE id = " & Request.QueryString("ID") Set objRS = Connect.Execute(strSQL) If objRS.EOF Then Response.Write("Ajdå...") Set objRS = Nothing Else Set objRS = Nothing strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") Connect.Execute(strSQL) response.redirect "klotter.asp" End If Else Response.Write("Ajdå...") End If end if Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM anv where id='"&session("id")&"'" rs.Open Addera, Connect, 3, 3 rs("status") = rs("status") + poangklotter rs.update response.redirect "klotter.asp" end if rs.PageSize = 10 if not rs.EOF then rs.AbsolutePage = nextPage Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas/klotter.mdb") query = "select count(*) as antal, namn from klotter group by namn order by 1 desc" set rs3 = connect.execute(query) %> <% END IF %> ``` När jag ändå skickat den, e det nått i koden du ser man skulle kunna förbättra? Tack för all hjälp hittills! Permalänk: https://www.webforum.nu/p/1205651 ## #12 — Sebbe, 2003-11-14T23:41Z Inte helt säker på vad allt gör i din kod, men något sånt här kanske? :) ``` <% nextPage = TRIM( Request("nextPage")) IF nextPage = "" THEN nextPage = 1 Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("databas/klotter.mdb") if request.querystring("action")="spara" then strSQL = "INSERT INTO klotter (text, namn, namnid, datum) VALUES ('" & Request.Form("inlagg") & "', '" & Session("user") & "', '" & Session("id") & "', #" & Now() & "#")" Connect.Execute(strSQL) ElseIf request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "DELETE FROM klotter where id = "&request.querystring("ID") Connect.Execute(strSQL) response.redirect "klotter.asp" Else Response.Write("Ajdå...") End If end if Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("databas/databas.mdb") strSQL = "UPDATE anv SET status = status + " & poangklotter & " WHERE id = '" & Session("id") & "'" objConn.Execute(strSQL) objConn.Close : Set objConn = Nothing strSQL = "SELECT * FROM klotter" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, Connect, 1, 3 rs.PageSize = 10 if not rs.EOF then rs.AbsolutePage = nextPage query = "select count(*) as antal, namn from klotter group by namn order by 1 desc" set rs3 = connect.execute(query) End If rs.Close : Set rs = Nothing Connect.Close : Set Connect = Nothing %> ``` Permalänk: https://www.webforum.nu/p/1205662 ## #13 — Thompa__85, 2003-11-14T23:47Z Nu funkar de kanon att ta bort inlägg! Men, den klagar på en sak: ``` Microsoft VBScript compilation error '800a0401' Expected end of statement /adde/star/2/klotter.asp, line 28 strSQL = "INSERT INTO klotter (text, namn, namnid, datum) VALUES ('" & Request.Form("inlagg") & "', '" & Session("user") & "', '" & Session("id") & "', #" & Now() & "#")" ------------------------------------------------------------------------------------------------------------------------------------------------------------------------^ ``` varför då? Permalänk: https://www.webforum.nu/p/1205663 ## #14 — Sebbe, 2003-11-14T23:57Z Ojdå, byt bara ut den raden till ``` strSQL = "INSERT INTO klotter (text, namn, namnid, datum) VALUES ('" & Request.Form("inlagg") & "', '" & Session("user") & "', '" & Session("id") & "', #" & Now() & "#)" ``` :r Permalänk: https://www.webforum.nu/p/1205667 ## #15 — Thompa__85, 2003-11-15T00:01Z Nu säger den bara ``` Microsoft JET Database Engine error '80040e14' Syntax error in INSERT INTO statement. /adde/star/2/klotter.asp, line 29 ``` när jag ska spara ett inlägg.. rad 29 är strSQL satsen.. Permalänk: https://www.webforum.nu/p/1205670 ## #16 — Sebbe, 2003-11-15T00:21Z Text är ett reserverat ord. Antingen byter du namnet på fältet, eller så ändrar du raden till det här: ``` strSQL = "INSERT INTO klotter ([text], namn, namnid, datum) VALUES ('" & Request.Form("inlagg") & "', '" & Session("user") & "', '" & Session("id") & "', #" & Now() & "#)" ``` Permalänk: https://www.webforum.nu/p/1205675 ## #17 — Thompa__85, 2003-11-15T00:27Z Tack för all hjälp!! TACk!! Permalänk: https://www.webforum.nu/p/1205676 ## #18 — atra, 2003-11-16T04:33Z \ \