2 forskellige random tal fra 1 til 10

Randomize
tal1 = Int(10*Rnd) + 1

Do
    tal2 = Int(10*Rnd) + 1
Loop Until tal2 <> tal1
Response.Write "Tal 1=" & tal1 & " Tal 2= " & tal2 & "<BR>"

randomize

random1 = int(rnd*10)
random2 = (random1+1+int(rnd*8)) mod 10

random1=random1+1
random2=random2+1

response.write random1 & " " & random2

<%
Maks_nummer = 10 'grænse tal
tot_unikke = 2 'antal tal som skal vises
dim random_nummer, counter, check, unikke_nummers
redim random_nummer(tot_unikke)
randomize
For counter = 1 to tot_unikke
random_nummer(counter) = Int(Rnd * Maks_nummer)+1
for check=1 to counter-1
if random_nummer(check)= random_nummer(counter) then
counter=counter-1
end if
next
next
%>
<p>
<%
For counter = 1 to tot_unikke
response.write "<li>" & random_nummer(counter) & "</li>"
next
%>