Ja, nu har jeg endelig besluttet mig for at jeg vil finde ud af hvordan man gør. Nå, men det jeg gerne vil finde ud af er: Når man f.eks. skriver en eller anden artikel, så gemmes de oplysninger i en database, hvorefter man så kan klikke på linket, og man kommer over på siden og læse hvad der står. Nu er det så at jeg gerne vil have det sådan, at man kan oprette f.eks. en eller flere kommentarer til lige netop den artikel, altså det ID nummer , men hvordan er det lige man gør det ? Håber i forstår hvad jeg mener, ellers skal jeg nok beskrive det lidt bedre.
Hmmm, nu er jeg ikke den store ASP haj, så jeg er ikke helt sikker på hvad det er du mener. Men dvs. at jeg har min database, som har tabellen: "Artikler" hvori der er ID nummer, artikel, skribent, dato, og hvad jeg nu ellers vil have med. Samtidig har jeg så en anden tabel som du kalder for: "T_Kommentar", men vi kan vel ligeså godt kalde den for "Kommentar". Den indeholder så de ting som du skriver ovenover. Så har jeg mit link, hvor der f.eks. står: "Opret kommentar", hvor stien er: opret_kommentar.asp?id=<%= rs("id") %> eller hvad ? Så har jeg et hidden felt som har <%= rs("id") %> i sig, som den så gemmer ned i Aid sammen med alle de andre ting. Nu er jeg selvfølgelig ikke sikker på det er det du mener, men det var lige hvad jeg kunne finde på jeg kunne gøre. Men hvad så når jeg skal kalde kommentarene frem ?? Bliver det så: kommentar.asp?id=<%= rs("id")%>&Aid=<%= rs("aid")%> eller noget i den stil ?
Ok... Ja, jeg har min side hvor man trykker på et link for at komme over til at skrive kommentaren. Her bruger jeg: <a class="side" href="links.asp?id=<%= rs("id") %>&mode=opret_kommentar"> Så kommer de over på den side hvor man skriver i felterne, altså skriver en kommentar, og det er jo bare nogle felter (ved ikke om man skal have tilføjet ID nummeret på en eller anden måde der), men der er i hvert fald ingenting udover felterne. Så skal de gemmes i databasen: <% Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM Kommentar" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Data/links.mdb") rs.Open strSQL, strDSN, 1, 3
If Request.Form("Navn") = "" or 0 then Response.Redirect("fejl.asp?besked=Navn") else strNavn = Request.Form("Navn") end if
If Request.Form("Email") = "" or 0 then Response.Redirect("fejl.asp?besked=Email") else strEmail = Request.Form("Email") end if
If Request.Form("Kommentar") = "" or 0 then Response.Redirect("fejl.asp?besked=Kommentar") else strKommentar = Request.Form("Kommentar") end if
Tror faktisk det er der den er gal, men er ikke sikker.
Nå, men så kan man så trykke på: "Kommentarer", til hvert af de links (Ja, det er så links jeg prøver at lave det til) der er. Det gøres med dette link: <a class="side" href="links.asp?aid=<%= rs("id") %>&mode=kommentar">Kommentarer</a>
Og det er sådan set det. Det er sidste side den går galt, og så at den ikke gemmer noget AID i den "Kommentar" tabel. Har ikke helt fattet hvordan det skal gøres :(
Sorry al ventetiden... Men ferien har altså taget hårdt på mig :)
Men ok, tilbage til tråden. Det du skriver der, skal det så stå på den side man kommer til når man trykker på linket: <a href="links.asp?aid=<%= rs("id") %>&mode=kommentar">Kommentarer</a>, så det bliver:
<% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Data/links.mdb") Set RSKom = connect.execute("SELECT * FROM kommentar WHERE aid = "&Request.Querystring("aid")&" ORDER BY dato")
if RSKom.eof then Response.Write "Ingen kommentarer er lagt inn" else 'her looper vi Do until RSKom.eof
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.