--- title: "Tomt men ändå inte..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/48353-tomt-men-ändå-inte" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "crisse6" published: "2002-07-21T22:44:49.000Z" updated: "2002-07-23T20:34:55.000Z" replies: 25 views: 609 page: 1 pages: 2 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/48353-tomt-men-ändå-inte" --- # Tomt men ändå inte... _Sida 1 av 2._ ## #1 — crisse6, 2002-07-21T22:44Z Hej! Jag har ett forum som på förstasidan listar trådar med länk som read.asp?id=13 te x.... När man sedan startar en ny tråd och den listas fram på slidan så får jag detta felmess när jag ska läsa den: ``` ADODB.Recordset error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /forum2/read.asp, line 36 ``` 36: ``` rs.AbsolutePage = nextPage ``` men det är bara på de nya trådarna som detta sker, inte på det jag har fört in manuellt i databasen när jag bara testade... Det finns data i databasen från när man har fyllt i genom formulär, konstigt tycker jag. Permalänk: https://www.webforum.nu/p/48353 ## #2 — LarsG, 2002-07-21T23:20Z Vad har newpage för värde? Vad har du satt pagesize till? Du försöker förmodligen hoppa till en sida som inte finns, t.ex. du har 47 poster i ditt recordset, pagesize = 10 och newpage = 5. Du får nog visa mer kod om du vill ha mer hjälp. Permalänk: https://www.webforum.nu/p/727981 ## #3 — crisse6, 2002-07-21T23:40Z har sett att det är inte problemet. det har med ett värde att göra. nu undrar jag, kan man i en och samma sql sats föra in det ny ID:et i ett annat fält också? säg att det nya ID:et är 14, så vill jag ha in det i svarid också... går det? Permalänk: https://www.webforum.nu/p/727990 ## #4 — crisse6, 2002-07-22T10:15Z ingen? Permalänk: https://www.webforum.nu/p/728134 ## #5 — LAMP, 2002-07-22T10:52Z Gör din insert, och sedan: ``` sql ="select @@identity from tabellen" set objRS = connect.execute(sql) id = objRS(0) sql = "Update tabellen SET svarid = " & objRS(0) & " WHERE ID = " & objRS(0) Connect.Execute(sql),,128 ``` RED: använder du mysql skriver du last_insert_id() istället för @@identity Permalänk: https://www.webforum.nu/p/728154 ## #6 — crisse6, 2002-07-22T15:38Z kan någon sätta ihop denna kod: ``` <% If request.form("rubrik")= "" OR request.form("inlagg") = "" then response.write "Du måste fylla i båda fälten, gå tillbaka." else Datum = Now SQL4 = "INSERT INTO add_forum ([datum], [inlagg], [anvandarnamn], [orginal], [rubrik], [svarid]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"', 'Ja', '" & Request.Form("rubrik") & "',[id])" SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'" response.write id Databas.Execute(SQL4) Databas.Execute(SQL5) response.redirect "/forum2/default.asp" end if %> ``` med denna som LAMP skrev: ``` sql ="select @@identity from tabellen" set objRS = connect.execute(sql) id = objRS(0) sql = "Update tabellen SET svarid = " & objRS(0) & " WHERE ID = " & objRS(0) Connect.Execute(sql),,128 ``` vore jätte snällt! stort tack till den som vill hjälpa mig. Permalänk: https://www.webforum.nu/p/728367 ## #7 — crisse6, 2002-07-23T09:06Z ingen som kan hjälpa mig? jag får inte ihop det.... Permalänk: https://www.webforum.nu/p/728714 ## #8 — ekke_t, 2002-07-23T09:18Z \[r\] upptäckte att jag hade uppfattat problemet fel \[/r\] det select @@identity gör är att plocka ut det id som den senaste sql-frågan lade in... Permalänk: https://www.webforum.nu/p/728718 ## #9 — ekke_t, 2002-07-23T09:29Z Nu tror jag att jag förstår ditt problem... ``` <% If request.form("rubrik")= "" OR request.form("inlagg") = "" then response.write "Du måste fylla i båda fälten, gå tillbaka." else Datum = Now SQL4 = "INSERT INTO add_forum ([datum], [inlagg], [anvandarnamn], [orginal], [rubrik]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"', 'Ja', '" & Request.Form("rubrik") & "')" Databas.execute(SQL4) SQL41 = "SELECT @@Identity" set rs = Databas.execute(SQL41) SQL42 = "UPDATE add_forum SET [svarid] = " & rs(0) & " WHERE id = " & rs(0) & "" Databas.execute(SQL42) SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'" response.write id Databas.Execute(SQL5) response.redirect "/forum2/default.asp" end if %> ``` detta borde funka... förutsatt att id:t i tabellen add_forum heter just "id"... men det kan du ju ändra som du vill ha det... Permalänk: https://www.webforum.nu/p/728727 ## #10 — crisse6, 2002-07-23T09:46Z ett jätte tack till dig Erik!!!!!!!!! Fungerar ju perfekt! Permalänk: https://www.webforum.nu/p/728737 ## #11 — crisse6, 2002-07-23T09:54Z en sista fråga, varför går det inte att skriva så här: ``` sql = "Select * From add_forum WHERE svarid = '" & Request.Querystring("id") & "' AND not orginal = 'Ja'" ``` Permalänk: https://www.webforum.nu/p/728745 ## #12 — @nders, 2002-07-23T09:55Z Vadå går inte? Permalänk: https://www.webforum.nu/p/728746 ## #13 — G8, 2002-07-23T10:16Z Maste bara papeka att felstavningar kan vara lite kul ibland...hihi > fram på **slidan** :e Permalänk: https://www.webforum.nu/p/728758 ## #14 — crisse6, 2002-07-23T10:19Z ja, när jag använder den koden så får jag felmess som säger att det är tomt... (EOF) Permalänk: https://www.webforum.nu/p/728761 ## #15 — @nders, 2002-07-23T10:22Z Tja, då finns inga poster i tabellen som motsvarar de villkor du ställt. Permalänk: https://www.webforum.nu/p/728763 ## #16 — crisse6, 2002-07-23T10:23Z jo, det är ju det det gör...... ska kolla hang on Permalänk: https://www.webforum.nu/p/728764 ## #17 — crisse6, 2002-07-23T10:35Z asså det är konstigt, det är något skumt.... Permalänk: https://www.webforum.nu/p/728774 ## #18 — crisse6, 2002-07-23T10:39Z okey här kommer hela koden, först sidan som listar trådarna: ``` <% sql = "Select * From add_forum WHERE orginal = 'Ja' ORDER BY datum DESC" sql2 = "select * from medlemmar where moderator = 'Ja'" set rs = Databas.execute(sql) set rs2 = Databas.execute(sql2) X = 0 response.write "
Rubrik:Skribent:Datum:
" DO UNTIL X=25 OR rs.EOF if bgcolor="#FFFFFF" then bgcolor="#EFEFEF" else bgcolor="#FFFFFF" end if response.write "" &_ "
"& rs("rubrik") &""& rs("anvandarnamn") &""& FormatDateTime(rs("datum"), 1) &"
" rs.movenext loop %> ``` och sedan read.asp som visar trådens orginal inlägg samt svaren: ``` <% nextPage = TRIM( Request( "nextPage" ) ) IF nextPage = "" THEN nextPage = 1 Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") Set rs3 = Server.CreateObject("ADODB.Recordset") sql = "Select * From add_forum WHERE svarid = '" & Request.Querystring("id") & "' AND not orginal = 'Ja'" sql2 = "select * from add_forum where orginal = 'Ja' AND id = " & Request.Querystring("id") & "" sql3 = "select * from medlemmar" rs.cursorlocation = 3 rs2.cursorlocation = 3 rs3.cursorlocation = 3 rs.CacheSize = 5 rs.Open sql, Databas, 3, 1 set rs2 = Databas.execute(sql2) set rs3 = Databas.execute(sql3) rs.PageSize = 10 rs.AbsolutePage = nextPage X = 0 response.write "" response.write "
Webforum >> Active Server Pages >> "& rs2("rubrik") &"
Inlägg:
"& rs2("inlagg") &"

Svar:
" If rs.eof then response.write "Det finns inga svar i denna tråd ännu." else DO UNTIL rs.eof OR rowCount = rs.PageSize rowCount = rowCount + 1 if bgcolor = "#FFFFFF" then bgcolor = "#EFEFEF" else bgcolor = "#FFFFFF" end if response.write "
"& rs("anvandarnamn") &"      
" response.write "" &_ "
Inlägg: "& rs3("antal_inlagg") &""& rs("inlagg") &""& rs("datum") &"
" rs.movenext loop IF rs.PageCount > 1 THEN FOR a = 1 to rs.PageCount IF a <> cINT( nextPage ) THEN Response.Write ""& a &" " ELSE Response.Write " "& a END IF NEXT END IF end if %> <% If request.form("inlagg") = "" then %>
&rubrik=<%=request.querystring("rubrik")%>"> Svara:
"> ">
<% else Datum = Now SQL4 = "INSERT INTO add_forum ([datum], [inlagg], [anvandarnamn], [orginal], [svarid]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"', 'Nej','" & Request.Form("svarid") &"')" SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'" Databas.Execute(SQL4) Databas.Execute(SQL5) end if rs.CLOSE rs2.close Databas.CLOSE Set rs = nothing Set rs2 = nothing Set Databas = nothing %> ``` Permalänk: https://www.webforum.nu/p/728779 ## #19 — PatrikB, 2002-07-23T10:47Z för att svarid e ett tal och tal ska ej ha fnuttar runt sig ... kanske ;) cya, PatrikB Permalänk: https://www.webforum.nu/p/728784 ## #20 — crisse6, 2002-07-23T10:48Z nej, svarid är av typen text! :( Permalänk: https://www.webforum.nu/p/728786 --- Tråden på webben: https://www.webforum.nu/amne/asp/48353-tomt-men-ändå-inte Nästa sida: https://www.webforum.nu/amne/asp/48353-tomt-men-ändå-inte/page2.md