Sidan 2

--- title: "Kommentera i forum?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/127132-kommentera-i-forum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Kreles" published: "2005-04-26T09:30:39.000Z" updated: "2005-05-20T11:04:20.000Z" replies: 20 views: 560 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/127132-kommentera-i-forum" --- # Kommentera i forum? _Sida 1 av 2._ ## #1 — Kreles, 2005-04-26T09:30Z Jag har gjort ett litet forum där man måste logga in för att kunna lägga till och ta bort artiklar. Däremot ska man kunna svara på artiklarna utan att logga in. Men hur får jag kommentarerna att postas/visas? För att kommentera går man in i en artikel och hittar ett formulär där. Men sen tar det stopp, jag har ingen aning om hur man gör sen. Någon med förslag? Permalänk: https://www.webforum.nu/p/127132 ## #2 — Jesper T, 2005-04-26T12:07Z Du måste nog bifoga lite kod och en närmare beskrivning om hur sidan/forumet är uppbyggt om det skall gå att svara på lite mer specifikt. Är det en databas inblandad? I.s.f. vilken. osv. Permalänk: https://www.webforum.nu/p/1599832 ## #3 — Kreles, 2005-04-26T12:14Z Hela sidan ``` <%option explicit dim conn, data, sql, text, artikel set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Kommentara artikeln
<% set conn = server.createobject("ADODB.connection") conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb") if request.form("Inlagg") <> "" then response.write "Nu är det skickat" sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & request.form("KommentarFörfattare") & "', '" & request.form("KommentarInlägg") & "', #" & Date & "#, " & Session("ArtikelID") & ")" response.write sql conn.execute (sql) end if if request.form("Kommentar")<>"" then response.redirect "Fsupp_2.asp" response.end end if %> Ny artikel

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Kommentarer på artikeln
<% SQL = "SELECT kommentar.* FROM kommentar ORDER BY KommentarDatum DESC" Set data =Conn.Execute(SQL) While Not Data.EOF Response.write "" response.write "" response.write "" data.moveNext wend %> <%conn.close%>

Namn	Kommentar	Datum
" & request.form("KommentarFörfattare") & "	" & request.form("KommentarInlägg") & "	" & request.form("KommentarDatum") & "

``` Det är en databas inblandad. Men tre tabeller, Artiklar (ArtikelID, AnvändarID, Ämne, Författare, Inlägg, Datum, KommentarID), Användare (AnvändariD, Användarnamn, Lösenord) och Kommentar (KommentarID, KommentarInlägg, KommentarFörfattare, KommentarDatum, ArtikelID) Permalänk: https://www.webforum.nu/p/1599839 ## #4 — Kreles, 2005-04-26T20:37Z Verkligen ingen som vet?? :q Permalänk: https://www.webforum.nu/p/1600049 ## #5 — magnusfernstrom, 2005-04-26T21:50Z När det läggs till i databasen, får du ha ett extrafält som talar om om det är en tråd/artikel eller en kommentar. Om det är en tråd, är den noll, om det är en artikel, innehåller fältet det värdet som trådens ID är. Sen hämtar du alla kommentarer för tråden; ``` sql = "select * from tbl_whatever where thread_parent = " & request.querystring("artikel_id") & "" ``` Permalänk: https://www.webforum.nu/p/1600086 ## #6 — Kreles, 2005-04-26T22:05Z Fattar inte :l Permalänk: https://www.webforum.nu/p/1600092 ## #7 — Kreles, 2005-04-26T22:06Z Gå in på någon av artiklarna och försök skriva en kommentar ``` <%option explicit dim conn, data, sql, text, artikel, kommentarinlagg, kommentarforfattare, kommentardatum set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") kommentarinlagg = Request.Form("kommentarinlägg") kommentarforfattare = Request.Form("kommentarforfattare") kommentardatum = Request.Form("kommentardatum") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & artikel &"" 'sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Kommentarer på artikeln
<% SQL = "SELECT kommentar.* FROM kommentar ORDER BY KommentarDatum DESC " & request.querystring("ArtikelId") & "" Set data =Conn.Execute(SQL) While Not Data.EOF Response.write "" response.write "" response.write "" data.moveNext wend %> <%conn.close%>

Namn	Kommentar	Datum
" & data("KommentarFörfattare") & "	" & data("KommentarInlägg") & "	" & data("KommentarDatum") & "

``` Permalänk: https://www.webforum.nu/p/1600094 ## #8 — magnusfernstrom, 2005-04-26T22:14Z Varför lägger du artikel-ID:t i en session för? Hämte det direkt från Querystringen istället. Och vad innehåller Sessionen när du skriver ut den? ``` <%=session("artikelid")%> ``` Felmeddelandet säger ju att den är tom, och det ser vi ju även att den är när vi är inne på själva kommentarsidan: ``` http://62.13.13.12:2005/inetv05akli/miniprojekt/fsupp_2.asp?[b]artikel=[/b] ``` Prova att skriv in ett ID från en artikel manuellt så ska du se vad som händer. :) Permalänk: https://www.webforum.nu/p/1600096 ## #9 — Kreles, 2005-04-26T22:16Z Jag har ingen aning... Förstår mig inte riktig på det här om jag ska vara ärlig :l Permalänk: https://www.webforum.nu/p/1600097 ## #10 — magnusfernstrom, 2005-04-26T22:18Z Prova den här koden: ``` <%option explicit dim conn, data, sql, text, artikel, kommentarinlagg, kommentarforfattare, kommentardatum set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") kommentarinlagg = Request.Form("kommentarinlägg") kommentarforfattare = Request.Form("kommentarforfattare") kommentardatum = Request.Form("kommentardatum") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & artikel &"" 'sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Kommentara artikeln
<% set conn = server.createobject("ADODB.connection") conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb") if request.form("Inlagg") <> "" then response.write "Nu är det skickat" sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & ("KommentarFörfattare") & "', '" & ("KommentarInlägg") & "', #" & Date & "#, " & [b]Request.Querystring[/b]("ArtikelID") & ")" response.write sql conn.execute (sql) end if if request.form("Kommentar")<>"" then response.redirect "Fsupp_2.asp" response.end end if %>

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Namn	Kommentar	Datum
" & data("KommentarFörfattare") & "	" & data("KommentarInlägg") & "	" & data("KommentarDatum") & "

``` Permalänk: https://www.webforum.nu/p/1600099 ## #11 — Kreles, 2005-04-26T22:21Z Samma resultat som innan =/ (Dvs sidan kan inte visas. och det saknas värde i adressen ) Permalänk: https://www.webforum.nu/p/1600100 ## #12 — magnusfernstrom, 2005-04-27T18:36Z Var sätts själva ID:t för kommentaren när du postar inlägget då? Lägg detta innanför form-taggarna: ``` "> ``` Sen får du ocksä ändra, så den hämtar ID:t från formen istället för querystringen: ``` sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & ("KommentarFörfattare") & "', '" & ("KommentarInlägg") & "', #" & Date & "#, " & Request.[b]Form[/b]("ArtikelID") & ")" ``` Typ. Tycker det är svårt att hjälpa såhär, när jag inte kan se resultatet direkt, men prova det där, om det inte fungerar, får vi hoppas på att någon som är bra på ASP kommer och hjälper till. ;) Permalänk: https://www.webforum.nu/p/1600450 ## #13 — @nders, 2005-04-27T18:46Z Du är i HTML-läge här: ```

``` Det innebär att du måste använda contextswitchar för att få dit artikel-ID:t. ``` " method="post"> ``` Permalänk: https://www.webforum.nu/p/1600457 ## #14 — Kreles, 2005-04-28T19:08Z Tackar =) Har inte kunnat testa om det fungerar ännu, för min dator är nog lite knas... Kommer inte åt någon server alls, varken min egen hemsida (B-one), en hemsida jag har hand om (Bluerange) eller skolans server så jag kan inte ladda upp och kolla. Får se om det hoppar igång... Permalänk: https://www.webforum.nu/p/1600816 ## #15 — Kreles, 2005-04-28T19:18Z Kom in på skolans server nu iaf =) (klicka på något ämne och försök skriva en kommentar) Verkar som om kommentarerna kommer in nu =) Men det visas bara en åt gången, och skriver man en ny skrivs den gamla över. Hur fixar man det? edit: Kommentarerna sparas inte, när man går ut från artikeln och sen in igen så är de borta. ``` <%option explicit dim conn, data, sql, text, artikel set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Kommentara artikeln
<% set conn = server.createobject("ADODB.connection") conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb") if request.form("Inlagg") <> "" then response.write "Nu är det skickat" sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & ("KommentarFörfattare") & "', '" & ("KommentarInlägg") & "', #" & Date & "#, " & Request.Form("ArtikelID") & ")" 'sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & request.form("KommentarFörfattare") & "', '" & request.form("KommentarInlägg") & "', #" & Date & "#, " & Session("ArtikelID") & ")" response.write sql conn.execute (sql) end if if request.form("Kommentar")<>"" then response.redirect "Fsupp_2.asp" response.end end if %> Ny artikel " method="post"> '">

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Namn	Kommentar	Datum
" & request.form("KommentarFörfattare") & "	" & request.form("KommentarInlägg") & "	" & request.form("KommentarDatum") & "

``` Permalänk: https://www.webforum.nu/p/1600823 ## #16 — Kreles, 2005-04-30T11:03Z Vad är det för fel på sqlsatsen som sparar från formuläret till databasen? Inget sparas. Permalänk: https://www.webforum.nu/p/1604335 ## #17 — @nders, 2005-04-30T18:12Z 1) If-satsen *if request.form("Inlagg") \<\> "" then* kommer du aldrig in i. Du har ju inget fält i formuläret som heter *Inlagg*, så därför sparar du ju aldrig något i databasen. 2) Du har inte med något artikel-id i SQL-frågan som hämtar kommentarerna. 3) I loopen som ska skriva ut kommentarerna skriver du ju inte ut någonting från recordsetet *data*, utan du skriver bara ut det som postats från formuläret. Har man inte postat något, så visas det då heller inget. Permalänk: https://www.webforum.nu/p/1604440 ## #18 — Kreles, 2005-05-04T21:21Z Tack för att du tar dig tid och försöker hjälpa mig! Tyvärr är jag nog lite för trögfattad för det här tror jag... (eller så är det att det är inget kul att hålla på med något som är så svårt och då orkar man nog inte förstå... ) ``` <%option explicit dim conn, data, sql, text, artikel set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Kommentara artikeln
<% set conn = server.createobject("ADODB.connection") conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb") if request.form("Inlagg") <> "" then response.write "Nu är det skickat" sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & ("KommentarFörfattare") & "', '" & ("KommentarInlägg") & "', #" & Date & "#, " & Request.Form("ArtikelID") & ")" response.write sql conn.execute (sql) end if if request.form("Kommentar")<>"" then response.redirect "Fsupp_2.asp" response.end end if %> " method="post"> ">

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Namn	Kommentar	Datum
" & request.form("KommentarFörfattare") & "	" & request.form("KommentarInlägg") & "	" & request.form("KommentarDatum") & "

``` Permalänk: https://www.webforum.nu/p/1606013 ## #19 — Kreles, 2005-05-06T20:47Z \*Putt upp\* :l Permalänk: https://www.webforum.nu/p/1606640 ## #20 — @nders, 2005-05-07T05:37Z Jag ser att du ändrat namn på textarean till *Inlagg* nu iaf, så då borde du komma in i if-satsen. Vad händer? Får du något felmeddelande? Hur ser den utskrivna SQL-frågan ut? Hjälp oss (och dig själv) lite genom att beskriva vad som är fel. Prova detta (ändringar i fet stil): ``` <%option explicit dim conn, data, sql, text, artikel set conn = server.createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") artikel = Request.QueryString("artikel") sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel") set data = conn.execute(sql) text = data("Inlägg") %> Sidan 2

<%=text%>

Kommentara artikeln
<% set conn = server.createobject("ADODB.connection") conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb") if request.form("Inlagg") <> "" then response.write "Nu är det skickat" [b]sCommentWriter = Replace(Request.Form("KommentarFörfattare"), "'", "''") [b]sComment = Replace(Request.Form("Inlagg"), "'", "''")[/b] sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & [b]sCommentWriter[/b] & "', '" & sComment & "'[/b], #" & Date & "#, " & Request.Form("ArtikelID") & ")" response.write sql conn.execute (sql) end if [b] ' Vad är det tänkt att den här koden ska göra???[/b] if request.form("Kommentar")<>"" then response.redirect "Fsupp_2.asp" response.end end if [b] '----------------- [/b] %> " method="post"> ">

Namn
Kommentar	Skriv dit inlägg här...

Tillbaka till huvudsidan

Kommentarer på artikeln
<% SQL = "SELECT kommentar.* FROM kommentar [b]WHERE ArtikelID = " & Replace(Request.Querystring("artikel"), "'", "''") & "[/b] ORDER BY KommentarDatum DESC" Set data =Conn.Execute(SQL) While Not Data.EOF Response.write "" response.write "" response.write "" data.moveNext wend %> <%conn.close%>

Namn	Kommentar	Datum
" & [b]data("KommentarFörfattare")[/b] & "	" & [b]data("KommentarInlägg")[/b] & "	" & [b]data("KommentarDatum")[/b] & "

``` > eller så är det att det är inget kul att hålla på med något som är så svårt och då orkar man nog inte förstå... Det är ett tecken på att du börjar med att lära dig fel saker. När man börjar lära sig att köra bil ska man inte börja med att köra inne i Stockholms innerstad, utan man ska börja inlärningen på IKEAs stora parkering när varuhuset har stängt. Precis samma sak är det här. Är det för svårt så tycker man inte att det är roligt. Mitt tips är att du börjar om från början med att lära dig ASP, och inte kastar dig direkt in i att arbeta med databaser. Permalänk: https://www.webforum.nu/p/1606680 --- Tråden på webben: https://www.webforum.nu/amne/asp/127132-kommentera-i-forum Nästa sida: https://www.webforum.nu/amne/asp/127132-kommentera-i-forum/page2.md