---
title: "måste finnas något bättre sätt..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/72859-måste-finnas-något-bättre-sätt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dendålige"
published: "2003-04-02T09:51:34.000Z"
updated: "2003-04-02T19:58:20.000Z"
replies: 5
views: 285
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/72859-måste-finnas-något-bättre-sätt"
---

# måste finnas något bättre sätt...

## #1 — dendålige, 2003-04-02T09:51Z

det måste ju finnas något bättre sätt än detta:

```
<%SQL = "Select id from anvandare where kon = 'F'"
Set RecSet = connect.Execute(SQL)
      
	  arrSlumpa = RecSet.GetRows()
      Randomize
	  
SQL = "Select namn,bild,kon,alder from anvandare where id = '"& arrSlumpa(0,Round(Rnd*Ubound(arrSlumpa,2))) & "'"
Set RecSet = connect.Execute(SQL)
FDatum = RecSet("alder")
Alder = DateDiff("yyyy", FDatum, Now) 
IF month(FDatum) >= month(now()) AND day(FDatum) > day(now()) then 
Alder = Alder - 1 
End if 
Response.write "<a href=person.asp?medlem=" &RecSet("namn") &"><img src='../bilder/"&RecSet("bild")&"' alt="&RecSet("namn")&"&nbsp;"& RecSet("kon") &""& alder &" border=0 width=80 height=107></a> "

SQL = "Select namn,bild,kon,alder from anvandare where id = '"& arrSlumpa(0,Round(Rnd*Ubound(arrSlumpa,2))) & "'"
Set RecSet = connect.Execute(SQL)
FDatum = RecSet("alder")
Alder = DateDiff("yyyy", FDatum, Now) 
IF month(FDatum) >= month(now()) AND day(FDatum) > day(now()) then 
Alder = Alder - 1 
End if 
Response.write "<a href=person.asp?medlem=" &RecSet("namn") &"><img src='../bilder/"&RecSet("bild")&"' alt="&RecSet("namn")&"&nbsp;"& RecSet("kon") &""& alder &" border=0 width=80 height=107></a> "

-II-
tills det blir tolv stycken...
%>
```

meningen är att det ska slumpa ut 12 tjejer med bilder....
och det borde kunna göras på något bättre sätt än att köra ny sql fråga på varje bild...

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

## #2 — mrblonde, 2003-04-02T11:01Z

sök på slumpa bild i forumet så får du många träffar, den här frågan har ställts många gånger ;)

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

## #3 — dendålige, 2003-04-02T13:11Z

alltså nu har jag kollat igenom alla möjliga andra frågor som rör samma sak... men jag lyckas inte klura ut hur jag ska göra... snälla... kan inte någon hjälpa mig med denna?

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

## #4 — Eitraz, 2003-04-02T14:05Z

Kör du MySQL?
Isåfall ska det nog gå med nåt sånt här:

```
SQL = "SELECT id,namn,bild,kon,alder FROM anvandare WHERE kon = 'F' ORDER BY RANDN()"
Set RS = Connect.Execute(SQL)
n = 0
Do While n < 12 And NOT RS.EOF
%>dina länkar o .s.v<%
RS.MoveNext
n = n + 1
Loop
```

Har inte kollat exakt om det var det här du ville, men jag gissar det ;) Har inte testat det heller..

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

## #5 — dendålige, 2003-04-02T15:46Z

hmm.. jo det där funkade på det sättet att ta fram.. men den slumpar ju inte riktigt fram någon =S

vad menar du med order by RANDN()?

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

## #6 — Eitraz, 2003-04-02T19:58Z

Order by RANDN() eller RAND() eller nåt sånt ordnar fram "slumpat" i MySQL...
Testa med **RAND()** istället.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/72859-måste-finnas-något-bättre-sätt