---
title: "Vissa inte samma Id efter varann!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/65319-vissa-inte-samma-id-efter-varann"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jimpa"
published: "2003-01-18T13:15:49.000Z"
updated: "2003-01-18T14:17:47.000Z"
replies: 2
views: 162
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/65319-vissa-inte-samma-id-efter-varann"
---

# Vissa inte samma Id efter varann!?

## #1 — jimpa, 2003-01-18T13:15Z

Hej,
Har en kod som ser ut så här. Problemet är att samma Id kan kommer upp efter varann, hur kan jag ändra i koden så att inte samma Id kommer upp?
Ett sätt kanske kunde vara om man lägger senaste Id i en Session och kollar med en if-sats om samma Id kommer upp efter randomen och gör den det så ska ett nytt Id slumpas. 
Är det någon som vet hur koden skullle kunna se ut?

```
Set objRS = Conn.Execute(SQL)
Dim rndMax
rndMax = CInt(objRS.RecordCount)
objRS.MoveFirst
	
Do While Not objRS.EOF
	Response.Write objRS("bannerID") & "<BR>"
	objRS.MoveNext
LOOP
	
objRS.MoveFirst
	
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
	
objRS.Move rndNumber

Response.Write "<B>" & objRS("bannerID") & "</B>"

objRS.Close
Set objRS = Nothing
	
Conn.Close
Set Conn = Nothing
```

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

## #2 — Addeladde, 2003-01-18T14:11Z

Kan det här hjälpa något? Förstår nog inte riktigt.

```
Randomize
slump = cInt(rnd()*34)+1
slump2 = slump

Do until slump2 <> slump
  slump2 = cInt(rnd()*34)+1
Loop

slump3 = slump 
Do until slump3 <> slump  and(slump3 <> slump2)
  slump3 = cInt(rnd()*34)+1
Loop
```

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

## #3 — OveRRidE, 2003-01-18T14:17Z

Jag förstår faktiskt inte riktigt hur din kod fungerar, än mindre varför du vill göra just sådär. ;)

Men jag gör väl en gissning:

```
Set objRS = Conn.Execute(SQL)
Dim rndMax
Dim intLastItem
rndMax = CInt(objRS.RecordCount)
objRS.MoveFirst
	
Do While Not objRS.EOF
	Response.Write objRS("bannerID") & "<BR>"
	intLastItem = objRs(0)
                objRS.MoveNext
LOOP
	
objRS.MoveFirst

function randomMove(rndMax)	
   Dim rndNumber
   Randomize Timer
   rndNumber = Int(RND * rndMax)
   randomMove = rndNumber
end function	

st = 0
do while 1 = 1
   intTemp = cint(randomMove(rndMax)) 
   if intTemp <> cint(intLastItem) then
      exit do
   end if
loop

objRS.Move intTemp

Response.Write "<B>" & objRS("bannerID") & "</B>"

objRS.Close
Set objRS = Nothing
	
Conn.Close
Set Conn = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/65319-vissa-inte-samma-id-efter-varann