---
title: "Varför visas bara två bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/141300-varför-visas-bara-två-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2006-01-22T18:51:36.000Z"
updated: "2006-01-25T23:09:32.000Z"
replies: 12
views: 514
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/141300-varför-visas-bara-två-bilder"
---

# Varför visas bara två bilder

## #1 — WebbisNet, 2006-01-22T18:51Z

Med denna kod visas bara två bilder trots att fler än så har bilder uppladdade, det ska visas 7 st

```
<%Dim oConn ,strSQL ,bilder ,i, j ,Count ,post ,antalBilder ,Found 
                       Set oConn = server.CreateObject("ADODB.Connection") 
                        oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=193.13.74.203;PORT=3306;DATABASE=xxxxxx; USER=xxxxxx;PASSWORD=xxxxxx;OPTION=3;" 
                        strSQL = "SELECT userID, username, picture, fotovalidering FROM tblUsers WHERE not picture=""nopic.jpg"" and not fotovalidering=1" 
                        Set rs = oConn.Execute(strSQL) 
                        If rs.EOF Then 
                            Response.Write "Det finns inga bilder..." 
                        Else 
                            Response.Write "<table cellspacing=""3""><tr><td align=""left"">" 
                            bilder = rs.GetRows() 
                            antalBilder = UBound(bilder, 2) 
                            Count = 7
                            If Count > antalBilder Then 
                                Count = antalBilder 
                            End If 
                            ReDim Shown(Count) 
                            Randomize 
                            For i = 1 To Count 
                                Do 
                                    Found = False 
                                    post = Int(Rnd * antalBilder) +1
                                    For j = 1 To i - 1 
                                        If Shown(j) = post Then 
                                            Found = True 
                                            Exit For 
                                        End If 
                                    Next 
                                Loop While Found 
                                Shown(i) = post 
                                'Response.Write "<a href=""view-preview.asp?userID="&bilder(0, post)&"""><img style=""border-style:none;"" height=""100"" width=""90"" src=""/images/users/" & bilder(2, post) & """ alt=""" & bilder(1, post) & """ /></a>&nbsp;" 
Response.Write "<img style=""border-style:none;"" height=""60"" width=""50"" src=""/images/users/" & bilder(2, post) & """ alt=""" & bilder(1, post) & """ />&nbsp; &nbsp;" 
                            Next 
                            Response.Write "</td></tr></table>" 
                        End If 
                        rs.Close 
                        Set rs = Nothing 
                    %>
```

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

## #2 — J.N., 2006-01-23T10:39Z

HEJ!

Då kan vi alltså förutsätta att du skrivit ut antalBilder och får 7?

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

## #3 — WebbisNet, 2006-01-23T11:38Z

> **J.N. skrev:**
>
> HEJ!
> 
> Då kan vi alltså förutsätta att du skrivit ut antalBilder och får 7?

När jag skriver ut alla bilder så visas 7 st i taget och jag behöver inte skriva ut för att veta att jag har fler än 7 medlemmar med bild

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

## #4 — WebbisNet, 2006-01-23T19:00Z

Ingen som har en lösning?

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

## #5 — J.N., 2006-01-24T09:49Z

HEJ!

> **WebbisNet skrev:**
>
> Ingen som har en lösning?

Ingen annan än det vanliga:

1\. Skriv ut variabler.
2\. Kontrollera var du hamnar i koden.
3\. Dubbelkolla allt!

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

## #6 — WebbisNet, 2006-01-24T15:58Z

För det första, koden funkade perfekt med Access, nu har jag MySQL
För det andra...skriver jag ut den enda användbara variabeln antalBilder får jag 2 och det är ju bara 2 bilder som visas, Count vet jag ju att den är 7 och strSQL ger mig inget av värde vid utskrift

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

## #7 — WebbisNet, 2006-01-25T15:34Z

jag får samma fel med denna kod på en annan sida

```
<%Set slumpRS=objConn.Execute("Select * From tblUsers where not picture=""nopic.jpg"" or fotovalidering=""1"" order by rand() limit 1")

if slumpRS("sex") = "M" then
gender = "Man, "&alder(slumpRS("persnr"))
else
gender = "Kvinna, "&alder(slumpRS("persnr"))
end if

if CBool(slumpRS("inloggad")) then
online="<font color=""green"">Online</font>"
else
offline="<font color=""red"">Offline</font>"
end if%>

<a class="menu" href="/view.asp?userID=<%=slumpRS("userID")%>">
<img src="/images/users/<%=slumpRS("picture")%>" height="100" width="80" border="0">
</a>
```

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

## #8 — WebbisNet, 2006-01-25T20:24Z

ingen som hittar felet?

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

## #9 — emission, 2006-01-25T21:42Z

1\. Använd alltid enkelfnuttar som strängavgränsare i SQL. Inte för att det blir fel med dubbelfnuttar, utan för att det är det enda rätta enligt standard, och bra att vänja sig vid.

2\. Låt databasen slumpa och begränsa utmängden.

```
<%Dim oConn ,strSQL ,bilder ,i, j ,Count ,post ,antalBilder ,Found 
                       Set oConn = server.CreateObject("ADODB.Connection") 
                        oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=193.13.74.203;PORT=3306;DATABASE=xxxxxx; USER=xxxxxx;PASSWORD=xxxxxx;OPTION=3;" 
                        strSQL = "SELECT userID, username, picture, fotovalidering FROM tblUsers WHERE not picture='nopic.jpg' and not fotovalidering=1 ORDER BY RAND() LIMIT 7" 
                        Set rs = oConn.Execute(strSQL) 
                        If rs.EOF Then 
                            Response.Write "Det finns inga bilder..." 
                        Else 
                            Response.Write "<table cellspacing=""3""><tr><td align=""left"">" 
                            do until rs.eof 
                               Response.Write "<img style=""border-style:none;"" height=""60"" width=""50"" src=""/images/users/" & rs("picture") & """ alt=""" & rs("username") & """ />&nbsp; &nbsp;" 
                                rs.movenext
                            loop 
                            Response.Write "</td></tr></table>" 
                        End If 
                        rs.Close 
                        Set rs = Nothing 
                    %>
```

> **WebbisNet skrev:**
>
> jag får samma fel med denna kod på en annan sida

Samma fel? Den koden är ju begränsad till att endast visa en bild. Hur kan det bli samma fel?

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

## #10 — WebbisNet, 2006-01-25T21:46Z

Nu ser jag 3 bilder

och med koden på den andra sidan så ser jag ett brett utbud av medlemmar med en bild i taget med denna kod
Set slumpRS=objConn.Execute("Select \* From tblUsers where not fotovalidering='1' order by rand() limit 1")

men eftersom jag inte vill ha med nopic.jpg så visar
Set slumpRS=objConn.Execute("Select \* From tblUsers where not 'nopic.jpg' or  fotovalidering='1' order by rand() limit 1")
bara 2 st bilder....som med den andra koden jag hade problem med i denna tråd

För första problemet, kolla in slumpade bilder på startsidan (inloggningssidan) på <http://www.webbisen.com>

logga sen in med demo och demo och kolla slumpbilden som använder koden
Set slumpRS=objConn.Execute("Select \* From tblUsers where not fotovalidering='1' order by rand() limit 1")

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

## #11 — emission, 2006-01-25T22:48Z

```
Select * From tblUsers where not (picture='nopic.jpg' or fotovalidering='1') order by rand() limit 1
```

Du har glömt kolumnnamnet och parenteserna är viktiga.

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

## #12 — WebbisNet, 2006-01-25T22:55Z

> **emission skrev:**
>
> ```
> Select * From tblUsers where not (picture='nopic.jpg' or fotovalidering='1') order by rand() limit 1
> ```
>
> 
> 
> Du har glömt kolumnnamnet och parenteserna är viktiga.

TACK, du är bäst

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

## #13 — WebbisNet, 2006-01-25T23:09Z

<http://webbisen.com/>

Vad tycks :-D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/141300-varför-visas-bara-två-bilder