---
title: "Svars-funktion."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68513-svars-funktion/page2"
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: 2
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 2 av 4._

## #21 — AboO, 2003-02-19T07:52Z

Jo, eller det blir inget fel-meddelande. Men det verkar som det inte hämtar de nya meddelanden från databasen. För när jag skriver ett nytt inlägg så kommer inte de upp.

så här ser koden ut nu:

```
<% 
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 = Connect.Execute(strSQL)
do until objRS.EOF %>    

Namn: <%Response.Write(objRS("namn"))%>  
Företag: <%Response.Write(objRS("foretag"))%> 
Inlägg: <%Response.Write(objRS("inlagg"))%>
<a href="answer.asp?id="<%=Response.Write(objRS("ID"))%>" target="_blank">Kommentera</A>
<a href="tabort.asp?delID=<%Response.Write(objRS("ID"))%>" onClick="return confirm('Är du säker på att du vill ta bort inlägget??')" target="_self">Radera</a> 
<%Response.Write(objRS("time"))%>

Namn:</B>&nbsp;<%Response.Write(objRS("svarnamn"))%>  
Kommentar:</B>&nbsp; <%Response.Write(objRS("svar"))%>  
<a href="anwdel.asp?delID=<%Response.Write(objRS("Kid"))%>" onClick="return confirm('Är du säker på att du vill ta bort kommentaren?')" target="_self">Radera</a> 
<%Response.Write(objRS("namn"))%> 

<%
objRS.MoveNext

Loop 
Set objRS = Nothing%>
```

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

## #22 — solbulle, 2003-02-19T11:46Z

Du kan börja med att ta bort dessa rader, de använder du inte:

```
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM results order by id desc"      
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
```

Sen så fungerar det där inte riktigt har jag märkt, eller ja den listar ju varje artikel flera gånger om den har flera kommentarer.

Hur löses det tro...? hm..

SQL-frågan måste skrivas om...

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

## #23 — AboO, 2003-02-19T11:51Z

Ja, det är något som inte funkar som det ska.. vad det nu är :)

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

## #24 — solbulle, 2003-02-19T11:53Z

Nu får du onekligen bara ut de poster som även har en kommentar, din join ska se annorlunda ut, men det är över min förmåga.

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

## #25 — AboO, 2003-02-19T11:59Z

Aha, okej. Då vet jag vart felet sitter iaf :)

Nån annan som vet vad jag ska ändra på?

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

## #26 — Sebbe, 2003-02-19T13:33Z

> **AboO skrev:**
>
> ```
> strSQL = "Select * From Results,Kommentar where ID = [b]kid[/b] order by ID"
> ```

Förstår inte varför den ska hämta alla som har ID = kid och sen sortera efter det? Får alla nya poster verkligen värdet ID = kid, det verkar lite konstigt?

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

## #27 — AboO, 2003-02-19T13:42Z

De är jag som har förstått fel :/
kid = kommentarernas ID
eller tabellen där kommentarerns ID hamnar.

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

## #28 — Sebbe, 2003-02-19T13:45Z

```
strSQL = "SELECT * FROM Results,Kommentar WHERE kid = " &_
Request.QueryString("ID") & " ORDER BY kid"
```

Vet inte riktigt hur du menar, men nåt sånt kanske?

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

## #29 — AboO, 2003-02-19T14:14Z

Då står det så här:
\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'kid ='. 

/aboox/db/list.asp, line 38 

Men jag ska förklara
Jag har två tabeller; Results och Kommentar

Results ser ut så här:
ID - Autonumber
Namn - text
Inlagg - memo
time - time/date
foretag - text

och Kommentar ser ut så här:
Kid - autonumber
svarnamn - text
svar - memo
time - date/time.

Och jag vill att det ska sorteras efter results ID

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

## #30 — Sebbe, 2003-02-19T14:21Z

Jag måste tyvärr säga att jag inte heller är så haj på joins, så jag kan inte hjälpa dig :(

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

## #31 — AboO, 2003-02-19T14:28Z

Aha, okej :/

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

## #32 — solbulle, 2003-02-19T14:42Z

Du kan ju alltid testa denna, tror den är lite bättre.

```
strSQL = "SELECT kommentar.svarnamn, kommentar.kid, kommentar.svar, Results.id, Results.foretag, Results.inlagg, Results.namn, Results.time
FROM Results Left outer JOIN kommentar ON Results.id = kommentar.kid order by Results.id"
```

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

## #33 — AboO, 2003-02-19T17:54Z

Unterminated string constant 

/aboox/db/list.asp, line 6 

blir det då

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

## #34 — Jesper T, 2003-02-19T18:04Z

```
strSQL = "SELECT kommentar.svarnamn, kommentar.kid, kommentar.svar, Results.id, Results.foretag, Results.inlagg, Results.namn, Results.time"&_
"FROM Results Left outer JOIN kommentar ON Results.id = kommentar.kid order by Results.id"
```

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

## #35 — solbulle, 2003-02-19T18:42Z

jaja... :)

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

## #36 — AboO, 2003-02-19T19:08Z

\[Microsoft\]\[ODBC Microsoft Access Driver\] Syntax error (missing operator) in query expression 'Results.timeFROM Results Left outer JOIN kommentar ON Results.id = kommentar.kid order by Results.id'. 

/aboox/db/list.asp, line 38

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

## #37 — LarsG, 2003-02-19T19:16Z

```
strSQL = "SELECT kommentar.svarnamn, kommentar.kid, kommentar.svar, Results.id, Results.foretag, Results.inlagg, Results.namn, Results.time"&_
" FROM Results Left outer JOIN kommentar ON Results.id = kommentar.kid order by Results.id"
```

det saknades en blank framför FROM

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

## #38 — AboO, 2003-02-19T19:45Z

**Tack** LarsG nu funkar det.
Fast om du testar <http://user.domaindlx.com/aboox/db/index.htm>
så märker du att om man kommenterar så hamnar det vid fel inlägg?

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

## #39 — Sebbe, 2003-02-19T19:47Z

Länken "Kommentera" leder till answer.asp?id=**\>**id:t. Det är inte riktigt rätt va?

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

## #40 — solbulle, 2003-02-19T20:15Z

Att kommentarerna hamnar vid fel inlägg,hm det fattar jag inte.

Denna kod gör att om du har flera kommentarer så hamnar de banne mig underrätt inlägg samt att inlägget syns bara en gång.

```
<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("idelada.mdb") 

strSQL = "SELECT kommentar.svarnamn, kommentar.kid, kommentar.svar, Results.id, Results.foretag, Results.inlagg, Results.namn, Results.time"&_
" FROM Results Left outer JOIN kommentar ON Results.id = kommentar.kid order by Results.id" 

Set objRS = Connect.Execute(strSQL)
do until objRS.EOF  

If checkid <> objRS("id") then %>  
Namn: <%Response.Write(objRS("namn"))%>  
Företag: <%Response.Write(objRS("foretag"))%>
Inlägg: <%Response.Write(objRS("inlagg"))%>
<a href="answer.asp?id=<%=Response.Write(objRS("ID"))%>" target="_blank">Kommentera</A>
<a href="tabort.asp?delID=<%Response.Write(objRS("ID"))%>" onClick="return confirm('Är du säker på att du vill ta bort inlägget??')" target="_self">Radera</a>
<%Response.Write(objRS("time"))%> <br><br>

<% End If %>
Namn:</B> <%Response.Write(objRS("svarnamn"))%>
Kommentar:</B>  <%Response.Write(objRS("svar"))%>
<a href="anwdel.asp?delID=<%Response.Write(objRS("Kid"))%>" onClick="return confirm('Är du säker på att du vill ta bort kommentaren?')" target="_self">Radera</a> 
<%Response.Write(objRS("namn"))%>

<%

checkid = objRS("id")

objRS.MoveNext

Loop 
Set objRS = Nothing
%>
```

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

---

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