Numero Random

[Giuseppe C]

Ciao a tutti...
Vorrei sapere se esiste un sistema per poter creare un numero random di 6 cifre...

chi mi aiuta?

[schizzorl86]

cerca 'randomize' nel forum

[Giuseppe C]

Ho trovato questo...:

dim arrCaratteri(8)
dim arrNumeri(8)
dim arrContr(2)
dim strCodice
dim strTuttiCodici
strTuttiCodici = "|"
for x = 1 to 1000
	Randomize(timer)
	strCodice = ""
	for i = 0 to 8
		intAppoRandom= int(rnd * 36) + 48
		if intAppoRandom <= 57 then
		arrCaratteri(i)=(Chr(intAppoRandom))
		arrNumeri(i)= intAppoRandom
		else
 		arrCaratteri(i)=(Chr(intAppoRandom+39)
)
		arrNumeri(i)= intAppoRandom+39
		end if
	next
	for i = 0 to 2
		contr1=int((arrNumeri(i)+ arrNumeri(i+3)+ arrNumeri(i+6))/3)
		contrcar1=97
		for ciclo1=0 to contr1
			if contrcar1>121 then
			contrcar1=97
			end if
			contrcar1=contrcar1+1
		next
		arrContr(i)=chr(contrcar1)
	next
	for i = 0 to 8
		strCodice = strCodice & arrCaratteri(i)
	next 
	for i = 0 to 2
		strCodice = strCodice & arrContr(i)
	next 
	if  (InStr(1,strTuttiCodici,"|"& strCodice & "|")) > 0 then
		i = i-1
	else
		strTuttiCodici = strTuttiCodici & strCodice & "|"
	end if
	
	Response.Write(strCodice & "
")
	
next

ma a me servirebbe un numero del tipo 234512 e la possibiletà di inserirlo in un campo testo...
chi mi aiuta?

grazie tante ciao

[longline]

' crei un numero casuale
NumeroCasualeDiSeiCifre = (RND*100000)
' lo converti in testo
NumeroCasualeDiSeiCifre = CStr(NumeroCasualeDiSeiCifre)
' togli l'eventuale virgola
NumeroCasualeDiSeiCifre = Replace(NumeroCasualeDiSeiCifre, ",", "")
' prendi solo 6 cifre
NumeroCasualeDiSeiCifre = Left(NumeroCasualeDiSeiCifre,6)

[Giuseppe C]

ok, ma come faccio a richiamarlo su un campo testo?

[longline]

Campo testo...? Di un form? Di una query? Che vuoi dire con "richiamarlo"?

[Giuseppe C]

vorrei posizionare il numero calcolato in un campo testo nascosto di un form per far si che possa inserirlo insieme agli altri dati che l'utente scrive... spero di esser stato chiaro, grazie tante....

[longline]

Response.Write "<input type=""hidden"" name=""NomeCampo"">" & NumeroCasualeDiSeiCifre & "</input>"

[Giuseppe C]

è possibile solo con il "Response.Write " ?

Non è possibile fare una cosa del tipo:

<input name="textfield" type="text" value="<% & NumeroCasualeDiSeiCifre & %< ">

La sintassi non è corretta, ma spero di aver reso l'idea...

grazie tante

[longline]

<input name="textfield" type="hidden" value="<% =NumeroCasualeDiSeiCifre %>">