---
title: "var ska loopen ligga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/134602-var-ska-loopen-ligga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-09-21T18:56:34.000Z"
updated: "2005-09-21T22:01:59.000Z"
replies: 15
views: 425
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/134602-var-ska-loopen-ligga"
---

# var ska loopen ligga

## #1 — WebbisNet, 2005-09-21T18:56Z

var ska while-loopen ligga och movenext???

```
<%set rs = objConn.Execute("SELECT tblUsers_Galleri_kommentar.bildID, tblUsers_Galleri_kommentar.agare, -Sum(tblUsers_Galleri_kommentar.nytt) AS SumNytt" & _
  " FROM tblUsers_Galleri_kommentar" & _
  " WHERE agare=1" & _
  " GROUP BY bildID,agare")

with response
  
    If bildRS.EOF Then
        .Write "Inga poster"
    Else
        .Write "<table width=""700"" border=""0"" bgcolor=""#EEEEEE"">" & vbCrLf
        .Write "<tr>" & vbCrLf
		
        Do
            If x mod 3=0 and x>1 Then .Write "</tr><tr>" & vbCrLf
[B]while( not rs.EOF )[/B]
            .Write "<td align=""left"" valign=""middle"" width=""60"">" & vbCrLf
            .Write "<a href=""JavaScript: Pic("& bildRS("bildID") &","& request("userID") &");"">" & vbCrLf
			.Write "<img class=""presentation"" border=""0"" width=""60"" height=""60"" src=""/upload/images/gallery/"& bildRS("bild") &" ""></a>" & vbCrLf
            .Write "</td>" & vbCrLf
			.Write "<td class=""linkpresentation"" align=""left"" valign=""top"" width=""350"">" & vbCrLf%>
			<b> <%=bildRS("rubrik")%> [B]<%=rs("SumNytt")%>[/B] [B]<%rs.movenext: wend%>[/B]</b>
			<%
			.Write "<br />"  & vbCrLf			
			%>
			<%if bildRS("kommentar") <> "" Then%>
<%=replace(bildRS("kommentar"),vbCrLf,"<br>")%> 
<%End If%>
```

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

## #2 — Engine^, 2005-09-21T19:53Z

Ta bort Do och flytta dit while-delen.

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

## #3 — WebbisNet, 2005-09-21T20:00Z

Detta är då jag000030 
Kommentera gärna och mycket ;-) 
\--------------------------------------------------------------------------------
¤ Radera ¤ ¤ Visa ¤ Visad 3 gånger    Lite humor 
Den här är ganska bra :-) 
\--------------------------------------------------------------------------------
¤ Radera ¤ ¤ Visa ¤ Visad 20 gånger  

får detta då

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

## #4 — Engine^, 2005-09-21T20:07Z

Kollade lite närmare på din kod (som är hopplös att läsa ;)) och jag ser att du använder dig av ett annat recordset för att hämta ut information till bilderna.

Hur ser den sql-satsen ut?

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

## #5 — WebbisNet, 2005-09-21T20:10Z

```
Set bildRS=objConn.Execute("SELECT clicks,tblUsers.userID, tblUsers.username, tblUsers.picture, * FROM tblUsers LEFT JOIN tblUsers_Galleri ON tblUsers.userID = tblUsers_Galleri.agare WHERE (((tblUsers_Galleri.agare)="&request("userID") &")) ORDER BY tblUsers_Galleri.bildID DESC")
```

lite slarvigt gjort i access och stjärnan ska bort :-)

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

## #6 — emission, 2005-09-21T20:10Z

Visa hela loopen, annars blir det svårt att räkna ut vad som går snett...

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

## #7 — WebbisNet, 2005-09-21T20:13Z

```
<%

set rs = objConn.Execute("SELECT tblUsers_Galleri_kommentar.bildID, tblUsers_Galleri_kommentar.agare, -Sum(tblUsers_Galleri_kommentar.nytt) AS SumNytt" & _
  " FROM tblUsers_Galleri_kommentar" & _
  " WHERE agare=1" & _
  " GROUP BY bildID,agare")

with response
  
    If bildRS.EOF Then
        .Write "Inga poster"
    Else
        .Write "<table width=""700"" border=""0"" bgcolor=""#EEEEEE"">" & vbCrLf
        .Write "<tr>" & vbCrLf
        Do
            If x mod 3=0 and x>1 Then .Write "</tr><tr>" & vbCrLf

            .Write "<td align=""left"" valign=""middle"" width=""60"">" & vbCrLf
            .Write "<a href=""JavaScript: Pic("& bildRS("bildID") &","& request("userID") &");"">" & vbCrLf
			.Write "<img class=""presentation"" border=""0"" width=""60"" height=""60"" src=""/upload/images/gallery/"& bildRS("bild") &" ""></a>" & vbCrLf
            .Write "</td>" & vbCrLf
			.Write "<td class=""linkpresentation"" align=""left"" valign=""top"" width=""350"">" & vbCrLf%>
			<b> <%=bildRS("rubrik")%> <%while( not rs.EOF )%><%=rs("SumNytt")%> <%rs.movenext: wend%></b>
			<%.Write "<br />"  & vbCrLf%>
			
			<%if bildRS("kommentar") <> "" Then%>
				<%=replace(bildRS("kommentar"),vbCrLf,"<br>")%> 
			<%End If%>	
<hr />
			<%if clng(request("userID")) = clng(session("userID")) then%>
                  <a class="linkpresentation" href="/gallery/delPic.asp?pID=<%=bildRS("bildID")%>"">¤ Radera ¤</a> 
            <%end if%>
            
			<%if clng(request("userID")) = clng(session("userID")) then%>
                  <a class="linkpresentation" href="JavaScript:viewComment(<%=bildRS("bildID")%>);"> 
                  ¤ Visa ¤</a> Visad <%=bildRS("clicks")%> gånger
            <%Else%>
                  <a class="presentation" href="JavaScript:placeComment(<%=bildRS("bildID")%>,<%=bildRS("agare")%>,'<%=bildRS("username")%>');"> 
				  ¤ Kommentera ¤</a> 
            <%end if%>

			<%.Write "</td>" & vbCrLf
            x=x+1
            bildRS.MoveNext
        Loop  Until bildRS.EOF

        .Write "</tr>" & vbCrLf
        .Write "</table>" & vbCrLf
    End If
    end with
%>
```

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

## #8 — emission, 2005-09-21T20:22Z

Utgå från följande kod, så blir det nog ordning på det.

<http://www.webforum.nu/showthread.php?p=38288#post38288>

Använd inte request("userID") för att bestämma om något ska visas eller inte. Ta värdet från databasen i stället.

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

## #9 — Engine^, 2005-09-21T20:23Z

Testa köra följande i Access och kika på vad du får för resultat...

```
SELECT clicks,tU.userID, tU.username, tU.picture, tUGK.bildID, tUGK.agare, SUM( tUGK.nytt ) AS SumNytt
FROM ( tblUsers tU
LEFT JOIN tblUsers_Galleri tUG ON tUG.agare = tU.userID )
LEFT JOIN tblUsers_Galleri_kommentar tUGK ON tUGK.agare = tU.userID
WHERE tUG.agare = userID
GROUP BY clicks,tU.userID, tU.username, tU.picture, tUGK.bildID, tUGK.agare
ORDER BY tUG.bildID DESC
```

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

## #10 — WebbisNet, 2005-09-21T20:30Z

allt funkar ju i koden, det är bara visningen av nya kommentarer som inte vill visas jämte varje bild, de hamnar bara alla vid första bilden

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

## #11 — emission, 2005-09-21T20:32Z

Det blir ändå inte rätt, eftersom det kommer att bli obalans i tabellen, om inte antalet rader från databasen är jämnt delbart med 3. Därav mitt länktips.

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

## #12 — Engine^, 2005-09-21T20:35Z

> **WebbisNet skrev:**
>
> allt funkar ju i koden, det är bara visningen av nya kommentarer som inte vill visas jämte varje bild, de hamnar bara alla vid första bilden

Givetvis. Du öppnar ett recordset för kommentarer innuti din loop som visar bilderna. Första bilden som visas kommer att loopa igenom alla kommentarer och avsluta med sista posten. Alltså blir det recordsetet flaggat EOF och den snurran kommer inte att köras igen.

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

## #13 — WebbisNet, 2005-09-21T20:40Z

> **emission skrev:**
>
> Det blir ändå inte rätt, eftersom det kommer att bli obalans i tabellen, om inte antalet rader från databasen är jämnt delbart med 3. Därav mitt länktips.

Såg tipset men vet inte hur jag ska implementera det

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

## #14 — emission, 2005-09-21T21:01Z

Där det står response.write rs("fält") i exemplet ska du moffla in din kod som du har mellan td:arna + att koden som söker ut kommentarerna måste ligga där.

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

## #15 — WebbisNet, 2005-09-21T21:04Z

> **emission skrev:**
>
> Där det står response.write rs("fält") i exemplet ska du moffla in din kod som du har mellan td:arna + att koden som söker ut kommentarerna måste ligga där.

kan du skriva ihop hur det ska se ut \*ler lite\*

är för trött för att tänka, har knappt sovit på nätterna och jobbat för hårt

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

## #16 — emission, 2005-09-21T22:01Z

Nä, du får sova på saken i stället :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/134602-var-ska-loopen-ligga