---
title: "Svars-funktion."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68513-svars-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "AboO"
published: "2003-02-17T10:02:09.000Z"
updated: "2003-02-21T06:18:03.000Z"
replies: 61
views: 1048
page: 1
pages: 4
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/68513-svars-funktion"
---

# Svars-funktion.

_Sida 1 av 4._

## #1 — AboO, 2003-02-17T10:02Z

Jag håller på med en gästboks liknande grej och jag tänkte fixa en svars-funktion så vem som helst kan svara/kommentera inläggen. Ungefär som ett forum.

Nån som har en idé på hur man gör det på lättast sätt?
Jag är ganska ny med ASP och jag kommer inte på nåt bra  sätt att göra det på.

Jag tänkte att de fyller i svar å så genom ett formulär så de sparas i databasen, men hur ska man länka de så man svarar på rätt inlägg och så? :q

Hoppas ni förstår.

Permalänk: https://www.webforum.nu/p/68513

## #2 — cyprys, 2003-02-17T10:09Z

I din tabell med inläggen/nyheterna så har du en kolumn med ID.

I din tabell så har du en kolumn som reffererar till detta ID.

ID \| RefID \| Kommentar

Sen plockar du bara ut alla rader för varje nyhet som har samma RefID som ID för nyheten.

Permalänk: https://www.webforum.nu/p/952663

## #3 — AboO, 2003-02-17T10:15Z

Jag tror jag förstår, men inte hur jag kodar det :)

Permalänk: https://www.webforum.nu/p/952666

## #4 — cyprys, 2003-02-17T10:29Z

```
-- Div kopplingar för databas och för att hämta fram nyheten i ett RecordSet --

NyhetsID = Rs("ID")

-- Kopplingar till databsen igen --
SQL = "SELECT * FROM kommentarer WHERE RefID = " & NyhetsID
Set Rs2 = conn.execute(SQL)
do until R2s.eof
response.write(Rs2("kommentar") & "<br>")
Rs2.movenext
loop
```

Permalänk: https://www.webforum.nu/p/952675

## #5 — AboO, 2003-02-17T11:37Z

Nu förstår jag ingenting :D
man ska inte hålla på med sånt här när man är trött.

Permalänk: https://www.webforum.nu/p/952710

## #6 — Nickemannen, 2003-02-17T12:35Z

Använd Join.

strSQL = "Select \* From Comments,Guestbook where guestbook_id = comments_id order by guestbook_date"

Sedan skriv ut det :D

Permalänk: https://www.webforum.nu/p/952764

## #7 — solbulle, 2003-02-17T12:49Z

För att svara på den ursprungliga frågan.

Gör tex en länk vid varje nyhet till en sida med ett formulär, popup kanske?

Typ:

```
<a href="kommentar.asp?id="<% =rs("id") %>">Kommentera</A>
```

Sen på sidan kommentar sätter ett formulär typ:

```
<form name="kommentar" method="post" action="kommentar.asp">
<input type="hidden> value="<% =request.querystring("id") %>">
<textarea rows="10" name="kommentaren" cols="85"></textarea>
<input type="text" name="kommentator">
</form>
```

Slutligen gör du en sida som uppdaterar databasen och sätter id som därmed blir samma som artikeln som kommenterades.
Bra förslag är väl att baka in allt i så få sidor som möjligt och tex med querystring kolla vad som ska ske på sidan.

Permalänk: https://www.webforum.nu/p/952773

## #8 — AboO, 2003-02-17T13:07Z

Jag tror jag förstår nu. ska pröva mig fram.

Permalänk: https://www.webforum.nu/p/952784

## #9 — AboO, 2003-02-17T13:38Z

Hur ska jag länka det när jag läser ut det från databasen då? så rätt svar hamnar vid rätt inlägg?

Ett till problem, jag har så att inläggen listas och sorteras efter ID. så när någon skriver en kommentar så listas det som ett inlägg sen. Alltså måste jag ha svaren i en egen databas?

Permalänk: https://www.webforum.nu/p/952795

## #10 — solbulle, 2003-02-17T13:59Z

<http://www.webforum.nu/showthread.php?s=&postid=562625#post562625>

Du har det i två tabeller, som Cyprus skriver högt upp i tråden, plockar ut det som ha nvisar eller bättre, som Nickemannen visar.

Permalänk: https://www.webforum.nu/p/952804

## #11 — AboO, 2003-02-18T06:53Z

Kommentarerna hamnar på fel ställe, annars funkar allting bra.

Kanske är lättast att förstå om ni tittar själva.
[Länk](http://user.domaindlx.com/aboox/db/index.htm)

Permalänk: https://www.webforum.nu/p/953211

## #12 — solbulle, 2003-02-18T10:52Z

Du kanske har fixat det nu, för det ser väl bra ut?

En liten tanke bara, ska sidan vara offentlig? Bör du inte ha någon spärr på dels vem som kan radera meddelanden/kommentarer samt kanske att man hur som helst måste klicka "Ja" el. dyl. innan själva raderingen sker.

Permalänk: https://www.webforum.nu/p/953323

## #13 — AboO, 2003-02-18T11:07Z

De är inte riktigt klart än, för kommentarerna kommer under varanda och inläggen kommer under varandra. så de hamnar lite fel.

Sidan ska inte vara offentlig, den är bara till för ett litet intranät.

Sån där "ja" ruta, är det bara att koppla länken till en vanliga javascript ruta?

Permalänk: https://www.webforum.nu/p/953328

## #14 — solbulle, 2003-02-18T11:21Z

Ah, ok. Då är jag med. Det fanns bara ett inlägg o en kommentar när jag följde din länk så det var inte lätt att se. :)

Hur ser din kod ut nu? sql-fråga samt utskriftsloop?

Länken till radering skulle du kunna lösa så här:

```
<a href="tabort.asp?delID=27" onClick="return confirm('Vill du verkligen radera?')" target="_self">Radera</a>
```

Permalänk: https://www.webforum.nu/p/953336

## #15 — AboO, 2003-02-18T11:46Z

Koden ser förjävlig ut :D

```
<% do until recset.EOF %>    
Namn:<%=recset("namn")%>   
Företag:<%=recset("foretag")%> 
Inlägg: <%=recset("inlagg")%>
<a href="answer.asp?id="<% =RecSet("ID") %>" target="_blank">Kommentera</A>
<a href="tabort.asp?delID=<%=recset("ID") %>" target="_self">Radera</a> 
<%=recset("time")%> 

<%
RecSet.MoveNext   
Loop
%>
<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("idelada.mdb") 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kommentar order by id desc"      
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%> 
<% do until recset.EOF %>    
Namn:<%=recset("svarnamn")%>  
Kommentar:<%=recset("svar")%>  
<a href="anwdel.asp?delID=<%=recset("ID") %>" target="_self">Radera</a> 
<%=recset("time")%> 

<%
RecSet.MoveNext   
Loop
%>
<% 
RecSet.Close
Connect.Close 
Set RecSet = nothing
Set Connect = nothing
%>
```

Permalänk: https://www.webforum.nu/p/953349

## #16 — solbulle, 2003-02-18T12:32Z

Hm, med den koden är det ganska självklart att först kommer inläggen och sen kommentarerna.

Fösök få till det med en join, typ som Nickemannen visar högre upp, det borde fungera tycker jag. Då plockar du ut allt på samma gång och kan därmed loopa det direkt.

Något **typ**  detta, dock kommer inte det här att fungera :( :

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("idelada.mdb") 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kommentar,artiklar where  id = id order by id desc"
RecSet.Open Addera, Connect, 3, 3

do until recset.EOF %>    
Namn:<%=recset("namn")%>   
Företag:<%=recset("foretag")%> 
Inlägg: <%=recset("inlagg")%>
<a href="answer.asp?id="<% =RecSet("ID") %>" target="_blank">Kommentera</A>
<a href="tabort.asp?delID=<%=recset("ID") %>" target="_self">Radera</a> 
<%=recset("time")%> 

Namn:<%=recset("svarnamn")%>  
Kommentar:<%=recset("svar")%>  
<a href="anwdel.asp?delID=<%=recset("ID") %>" target="_self">Radera</a> 
<%=recset("time")%> 

<%
RecSet.MoveNext   
Loop

RecSet.Close
Connect.Close 
Set RecSet = nothing
Set Connect = nothing
%>
```

Jag **tror** att du måste byta namn på de fält i dina tabeller som heter lika, så att det inte krockar när du skriver ut dom, ändra sen motsvarande i koden här.
Även namnet på tabellen med inläggen måste ändras i sql-satsen här ovan.

Sen lämnar jag över bollen till de som behärskar detta bättre. :)

/r Just ja, fimpa adobvs.inc och skriv konstanterna direkt i koden.

Permalänk: https://www.webforum.nu/p/953377

## #17 — AboO, 2003-02-19T06:38Z

Jag får:

Object required: '' 

/aboox/db/list_copy.asp, line 37 

När jag testar med:

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("idelada.mdb") 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM results order by id desc"      
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
strSQL = "Select * From Results,Kommentar where ID = kid order by ID" 
%> 

<%
Set objRS = idelada.Execute(strSQL)     [I]<-- rad 37[/I] 
Do Until objRS.EOF

Response.Write(objRS("namn")) & "<br>"
Response.Write(objRS("inlagg")) & "<br>"
Response.Write(objRS("time")) & "<br>"
Response.Write(objRS("svarnamn")) & "<br>"
Response.Write(objRS("svar")) & "<br>"
objRS.MoveNext

Loop 
Set objRS = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/956849

## #18 — Sebbe, 2003-02-19T07:15Z

```
Set objRS = [b]Connect[/b].Execute(strSQL)
```

Eller du kanske bara skrev "idelada" här i forumet?  :q

Permalänk: https://www.webforum.nu/p/956854

## #19 — AboO, 2003-02-19T07:26Z

hehe, nä. du har rätt. jag är nyvaken så idelada hamna på fel ställe :)

Permalänk: https://www.webforum.nu/p/956859

## #20 — Sebbe, 2003-02-19T07:31Z

Så det fungerar nu? :)

Permalänk: https://www.webforum.nu/p/956862

---

Tråden på webben: https://www.webforum.nu/amne/asp/68513-svars-funktion  
Nästa sida: https://www.webforum.nu/amne/asp/68513-svars-funktion/page2.md