---
title: "zUniqueNumber"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38110-zuniquenumber"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-10-05T22:03:00.000Z"
updated: "2000-10-05T22:03:00.000Z"
replies: 0
views: 791
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/38110-zuniquenumber"
---

# zUniqueNumber

## #1 — PatrikB, 2000-10-05T22:03Z

Hello,

här kommer ett script som ni kan använda er av om ni tex vill tippa lotto, måltips, keno eller ngt annat nummer spel då ni vill ha ut tex 8 unika nummer från 1 tom 30.

Så här ser själva Subben ut:

```
<%
Response.Buffer = True

'--------------------------------------------------------------------
' Get unique numbers
'--------------------------------------------------------------------
' Script written by - Patrik Berggren
' Email: mrwize@mrwize.nu
' Homepage: [url="http://www.mrwize.nu"]http://www.mrwize.nu[/url] 
'--------------------------------------------------------------------
Sub GetNo(ByRef intUniqueNo, ByRef intTotNo)

' Check If total numbers is fewer than wanted uniques
'----------------------------------------------------
If intUniqueNo >= intTotNo Then
		Response.Write "Total unique numbers, (" & intUniqueNo & _
			"), has to be fewer than total numbers, (" & _
		intTotNo & "), to choose from."

		Exit Sub
End If

Randomize

' Get first unique number
'------------------------
intAllNo = "#" & CInt((RND * (intTotNo - 1)) + 1) & "#"

' Start position
'---------------
n = 1

' Get unique numbers
'-------------------
While Not n = intUniqueNo

	intNewNo = CInt((RND * (intTotNo - 1)) + 1) & "#"

	' check if the new number is unique
	'----------------------------------
	If InStr(intAllNo,"#" & intNewNo) Then
		n = n
	Else
		intAllNo = intAllNo & intNewNo
		n = n + 1
	End If

Wend	' next unique number

' create an array out of all unique numbers
'------------------------------------------
arrAllNo = Split(intAllNo,"#")

' Create a recordset
'-------------------
Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Fields.Append "FLD_NUMBER", 3, Len(intUniqueNo)
	objRS.Sort = "FLD_NUMBER ASC"
	objRS.Open

' set all unique numbers into recordset
' to sort ascending
'--------------------------------------
For i = 1 To UBound(arrAllNo) - 1
	objRS.AddNew
	objRS("FLD_NUMBER") = arrAllNo(i)
	objRS.Update
Next

	' Show user all unique numbers
	'-----------------------------
	objRS.MoveFirst
	Do Until objRS.EOF
		iNo = iNo + 1
		Response.Write("Nr " & iNo & ": " & objRS("FLD_NUMBER") & "<br>")
		objRS.MoveNext
	Loop
	objRS.Close
Set objRS = nothing
End Sub
%>
```

Där ni vill få fram nummrena, tex Keno nummer - 20 av 70:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Call GetNo(20,70)
%\>

Hittar ni buggar hoppas jag att ni meddelar det, eller andra synpunkter.

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38110-zuniquenumber