Creare codice univoco da inserire in TABELLA

[vpoppa]

Devo inserire un record in una tabella appartenente ad un DB ACCESS.

Poichè la tabella in cui devo inserire il record ha un campo chiave (CODIDOBJ), quando inserisco il mio nuovo record devo stare attento a porre il valore CODIDOBJ univoco, altrimenti non riesco a inserirlo.

In particolare, il codice è il seguente:

<%
op = Request.QueryString("Operazione")

codid = Request.Form("Codid")
codidobj = Request.Form("Codidobj")
den = Request.Form("Denominazione")
data_inizio = Request.Form("DataInizio")
data_fine = Request.Form("DataFine")
ind_ris = Request.Form("IndicatoreRisultato")

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("SchedeProgetto.mdb")
set connobj = Server.CreateObject( "ADODB.Connection" )
connobj.Open url_DB

Set Rs = Server.CreateObject ("ADODB.RecordSet")

if (op = "modifica") then
Sql = "SELECT * FROM SchedaOBJ WHERE CODID='"&codid&"' and CODIDOBJ='"&codidobj&"'"
Rs.Open Sql,connobj,2,3
else
if (codidobj="-") then
..... dovrei porre codidobj=valore_univoco ... (*)
end if
Rs.Open "SchedaOBJ",connobj,2,3
Rs.AddNew
end if

Rs("CODID") = codid
Rs("CODIDOBJ") = codidobj
Rs("DENOMINAZIONE") = den
Rs("DATAINIZIO") = data_inizio
Rs("DATAFINE") = data_fine
Rs("INDICATORERISULTATO") = ind_ris

Rs.Update

Rs.Close
set Rs = nothing
connobj.close
set connobj = nothing
%>

Cosa posso scrivere nel punto (*) in modo che il codidobj che genero sia univoco nel campo CODIDOBJ della tabella SchedaOBJ.

Grazie.

Vincenzo

[Roby_72]

1) Lo generi
2) Verifichi nella tanella che già non sia presente
3) Se è già presente ritorni al punto 1) altrimenti prosegui

Roby