randomize

[Grambo]

<%
Randomize
Do Until len(continente)=1
numero=Int((5 Rnd)+1)
continente=continente &amp numero
loop
response.write continente
%>

questo codice mi torna questo errore:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/Ivan/dbs/prova.asp, line 4

numero=Int((5 Rnd)+1)
--------------^

[Grambo]

ho trovato questo codice tra le guide di html.it

<%
randomize()
function dado()
intFaccia = cint ( ( 6 - 1 ) rnd() + 1 )
dado = "[img]" &amp; intFaccia &amp; ".gif[/img]"
end function
response.write dado()
%>

ma mi da lo stesso errore

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/Ivan/dbs/prova.asp, line 4

intFaccia = cint ( ( 6 - 1 ) rnd() + 1 )
-----------------------------^

come posso fare per sistemare?

[albis]

<%
randomize(timer)
Do Until len(continente)=1
numero=Int((5 * rnd)+1)
continente=continente & numero
loop
response.write continente
%>

[Grambo]

ho un problema con un ciclo

1. allora io genero un numero casuale,
2. poi vado a controllare se questo numero è gia contenuto nella tabella
3. e se è gia presente vado rigenerare un nuovo numero casuale

ovvimanete il ciclo andrà avanti finchè non verrà generato un numero non esistente nel db...

come posso fare?

(non vorrei usare un response.redirect altrimenti perdo dei dati che dovrei modificare in session...ma mi incasino un po' tutto)

[albis]

 
<%
dim blnControlla
blnControlla = false
while blnControlla = false
	'Generi il nuMMMMMMero
	'controlli se esiste
	'se non esiste 
	if objrs.eof = true
		blnControlla = true
	end if
wend
%>