--- title: "Räkna inlägg i gästbok" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/130854-räkna-inlägg-i-gästbok" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "mackanz" published: "2005-07-01T13:11:05.000Z" updated: "2005-07-01T14:43:27.000Z" replies: 13 views: 527 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/130854-räkna-inlägg-i-gästbok" --- # Räkna inlägg i gästbok ## #1 — mackanz, 2005-07-01T13:11Z hur gör man om man skulle vilja skriva ut i en gästbok hur många inlägg det är. Har en gästbok med en herrans massa inlägg, och skulle vilja ha att det vid inlägget står inlägg inläggnr: 342 exempelvis? Det skalö stå vid varje inlägg vilket nummer det är. Man kan ju inte loopa ut gestbok_id eftersom det ger en fektlig bild eftersom man har fått raderat poster. Kan någon ge mej ett kodförslag/kodexempel??? Permalänk: https://www.webforum.nu/p/130854 ## #2 — joel_joel88, 2005-07-01T13:13Z Så här kanske... ``` <% set rs = connect.execute("Select * from gastboken order by id desc") set rsCount = connect.execute("Select count(*) as antal from gastboken") count = rsCount("antal") Do until rs.eof count = count - 1 response.write "Inläggnr: " & count response.write "

" response.write rs("INLÄGGET") rs.movenext loop %> ``` Permalänk: https://www.webforum.nu/p/1638878 ## #3 — mackanz, 2005-07-01T13:19Z tabellen bytte jag ut mot gast (den heter gast i databasen), men ska jag byta ut antal också eller???? jag fick: ``` Körningsfel i Microsoft VBScript (0x800A01A8) Objekt krävs.: '' ``` Permalänk: https://www.webforum.nu/p/1638879 ## #4 — @nders, 2005-07-01T13:21Z Då har du väl skrivit fel objektnamn, men det är ju omöjligt att svara på ordentligt, eftersom du inte visar någon kod. Permalänk: https://www.webforum.nu/p/1638880 ## #5 — mackanz, 2005-07-01T13:24Z ``` Inlägg från besökare <% set rsCount = DinConn.execute("Select count(*) as antal from gast") response.write rsCount("antal") %> <% Session.LCID = 1053 Response.write cDate(rsrecset("dat")) %>  "> <%=rsRecset(" WIDTH="14" HEIGHT="14"> " target="_blank"> <%=rsRecset(" WIDTH="14" HEIGHT="14"> Namn: <%=rsRecset("name")%>  <%=Replace(Server.HTMLEncode(rsRecset("message")),vbcrlf,"
")%> ``` Permalänk: https://www.webforum.nu/p/1638881 ## #6 — @nders, 2005-07-01T13:26Z Hmm, var skapar du *rsRecset* någonstans? Permalänk: https://www.webforum.nu/p/1638882 ## #7 — joel_joel88, 2005-07-01T13:36Z Du fick felmeddelande förut för att du hade glömt bytt namn på DinConn. Där ska namnet på din connection stå. Följ detta kod exempel så fungerar det fint. Du får ändra databasnamnet och tabellnamnet till det du har annars blir det felmeddelanden :) ``` <% set connect = server.createobject("adodb.connection") connect.open "Driver={Microsoft Access driver (*.mdb)};dbq=" & Server.MapPath("DATABASEN.mdb") set rs = connect.execute("Select * from TABELLEN order by id desc") set rsCount = connect.execute("Select count(*) as antal from TABELLEN") count = rsCount("antal") do until rs.eof response.write "InläggNr: " & count & "

" response.write "Inlägg: " & rs("INLÄGG") & "

" count = count - 1 rs.movenext loop %> ``` Permalänk: https://www.webforum.nu/p/1638889 ## #8 — mackanz, 2005-07-01T13:41Z jag har ju en include fil där jag har sjäölva kopplingen/anropningen. Bufogar hela koden ```

Skriv ett nytt inlägg här

<%'-*Start kommentar*-Här skapar jag en sträng som lägger till data i databasen-*Avslutande kommentar*-%> <%'-*Fortsätter kommentar*-som ska sparas i kontakt posten i databasen-*Avslutande kommentar*-%> <%strShow = "SELECT * FROM gast ORDER BY dat desc"%> <%rsRecset.Open strShow, cnConn, 3, 3%> <% intsida=trim(Request.QueryString("sida")) if intsida = "" then intsida = 1 else intsida = cint(intsida) end if %> <%'-*Startar kommentar*-Här skapar jag verksamhetslogik för-*Avslutar kommentar*-%> <%'-*Fortsätter kommentar*-att kommunicera med datasen via Recordeset-*Avslutande kommentar*-%> <%'%>
<% if rsRecset.EOF=true then Response.Write("Det finns inga inlägg i gästboken") else rsRecset.PageSize = 8 rsRecset.AbsolutePage = intsida end if %> <% do until rsRecset.eof or intantal >= rsRecset.PageSize intantal = intantal + 1 %>
Inlägg från besökare <% set rsCount = DinConn.execute("Select count(*) as antal from gast") response.write rsCount("antal") %> <% Session.LCID = 1053 Response.write cDate(rsrecset("dat")) %>  "> <%=rsRecset(" WIDTH="14" HEIGHT="14"> " target="_blank"> <%=rsRecset(" WIDTH="14" HEIGHT="14">
Namn: <%=rsRecset("name")%> 
<%=Replace(Server.HTMLEncode(rsRecset("message")),vbcrlf,"
")%>
 

<% rsRecset.movenext loop %> Sida: <%if rsRecset.Pagecount > 1 then for i = 1 to rsRecset.PageCount if i <> intsida then Response.Write(" " & I & " ") else Response.Write(I & " " ) end if next end if %>
<%rsRecSet.Close%> <%cnConn.Close%> <%Set rsRecSet = Nothing%> <%Set cnConn = Nothing%> ``` Permalänk: https://www.webforum.nu/p/1638890 ## #9 — joel_joel88, 2005-07-01T13:45Z Såg du inte mitt kodexempel, som sagt gå efter det....:) Permalänk: https://www.webforum.nu/p/1638894 ## #10 — mackanz, 2005-07-01T13:48Z ursäkta men jag vill hellre bena ut vad som fel i min kod Permalänk: https://www.webforum.nu/p/1638895 ## #11 — joel_joel88, 2005-07-01T13:52Z Vad blir det för felmeddelande utöver det du sa förut? Permalänk: https://www.webforum.nu/p/1638896 ## #12 — mackanz, 2005-07-01T13:53Z Nu funkar nästan ;) Nu loopas det upp att det är 870 inlägg, men sen vill man ju ha varje inlägg numrerat kanske??? Eller tycker ni det är onödigt???? Jag avhjälpte felet med att ändra dinconn tll CNconn Permalänk: https://www.webforum.nu/p/1638897 ## #13 — joel_joel88, 2005-07-01T13:55Z Jag har ju gett dig kod för det! Och jag sa ju att du SKULLE TA BORT DinCONN! Tar det igen..... ``` <% set connect = server.createobject("adodb.connection") connect.open "Driver={Microsoft Access driver (*.mdb)};dbq=" & Server.MapPath("DATABASEN.mdb") set rs = connect.execute("Select * from TABELLEN order by id desc") set rsCount = connect.execute("Select count(*) as antal from TABELLEN") count = rsCount("antal") do until rs.eof response.write "InläggNr: " & count & "

" response.write "Inlägg: " & rs("INLÄGG") & "

" count = count - 1 rs.movenext loop %> ``` Permalänk: https://www.webforum.nu/p/1638898 ## #14 — joel_joel88, 2005-07-01T14:43Z Fick du det att fungera med inläggens nr? Permalänk: https://www.webforum.nu/p/1638918 --- Tråden på webben: https://www.webforum.nu/amne/asp/130854-räkna-inlägg-i-gästbok