Numero random con controllo

[ceccanocity]

Spiego brevemente.

Ho un form con un textbox....devo inserire su questo textbox un numero random di 4/5 cifre...il problema è che devo controllare se questo numero è gia stato generato e inserito nel database...in caso affermativo rigenerare un altro numero...rifare il controllo...e se non esiste nel database allora visualizzarlo nel textbox.

Qualcuno puo aiutarmi a fare una funzione del genere che restituisce questo numero?

( poniamo che io ho db.mdb tabella con nome: TABELLA e il campo che devo controllare è ID )

Grazie 1000

[santino83_11_04]

function CreaIdNum(tabella,str_connessione)

dim id,conn,rs,sql

set conn=server.createobject...
conn.open str_connessione
randomize
id=int(99999*rnd())+1

sql="select id from tabella where id=" & id
set rs=conn.execute(sql)
if not rs.eof then
id=CreaIdNum(tabella,str_connessione)
end if
set rs=nothing
conn.close: set conn=nothing

CreaIdNum=id
end function

[ceccanocity]

ciao. grazie prima di tutto. volevo dirti che la parte riguardante la generazione del numero funziona ma non funziona quella del controllo e la rigenerazione.

precisamente questa:

if not rs.eof then
id=CreaIdNum(tabella,str_connessione)
end if

mi da questo errore:

Microsoft VBScript runtime error '800a0007'
Out of memory: 'rs.eof'

Forse mi sono spiegato male io...una volta generato il numero...deve controllare in una colonna del database e vedere se gia esiste...se esiste deve generarne 1 altro.

Grazie

[santino83_11_04]

strano a me funziona