---
title: "om bilden ingen,gif"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12510-om-bilden-ingen-gif/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-04T12:15:00.000Z"
updated: "2001-11-07T13:43:00.000Z"
replies: 21
views: 312
page: 2
pages: 2
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/12510-om-bilden-ingen-gif"
---

# om bilden ingen,gif

_Sida 2 av 2._

## #21 — LarsG, 2001-11-07T10:01Z

Kick me backwards.

Om du testar så här då.

```
<%
Response.Buffer = True
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 where not bild = 'Bilder/Medlemmar/ingen.gif'"
Set Record = Rs.Execute(Sql) 
Ialt = Record("found")

Sql = "Select * from members where not bild = 'Bilder/Medlemmar/ingen.gif'"
record.close
set record = nothing
Set Record = server.createobject("adodb.recordset")
record.cursorlocation = 3
record.open sql,rs
dim bilder(3)
randomize

for i = 0 to 3
found = false
do until [b]false[/b]
RandNum = Int(Rnd * Ialt)
for j = 0 to i - 1
if bilder(j) = RandNum then
found = true
exit for
end if
next
if not found or i = 0 then exit do
loop
bilder(i) = RandNum

record.Movefirst
Record.Move randNum 
Response.Write "<td><center>"
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>"
response.write "</td>"
next

record.close
rs.close
```

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

## #22 — jboy_87, 2001-11-07T13:43Z

funkar inte står att sidan inte kan visas och det tar tid tills den laddas!!! prova koden själv och kolla

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12510-om-bilden-ingen-gif/page2  
Föregående sida: https://www.webforum.nu/amne/asp/12510-om-bilden-ingen-gif.md