---
title: "Slumpa bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12442-slumpa-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-04T03:01:00.000Z"
updated: "2001-11-04T03:01:00.000Z"
replies: 0
views: 235
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/12442-slumpa-bilder"
---

# Slumpa bilder

## #1 — jboy_87, 2001-11-04T03:01Z

Hur gör jag så att det inte slumpas samma bild från databasen??
så här ser koden ut:

```
<%
  Response.Buffer = True

  Function Show()
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    Record.MoveFirst
    For i = 1 to RandNum - 1
      Record.MoveNext
    next 
    Response.Write "<a href='whois.asp?checkid=" & Record("id") & "'><img src='" & Record("bild") & "' alt='" & Record("username")  & Record("username") & "' border = '1' width= '65' height= '77'></a>"
  end function

   
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("Database/members.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Sql = "Select count(*) as Found from members"
  Set Record =  Rs.Execute(Sql) 

  Ialt = Record("found")
 
  Sql = "Select * from members"
  Set Record =  Rs.Execute(Sql) 
%>
```

och jag skriver ut det med följande:

```
<%  Response.Write "<center>"
Show() %></td>
<%  Response.Write "<center>"
Show() %>
<%  Response.Write "<center>"%>
<%  Response.Write "<center>"
Show() %>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12442-slumpa-bilder