Come posso evitare di scrivere un dato che è già presente nel database.
Devo fare un controllo, ma mi da errore!
il codice è il seguente:
<!--#include file="conn_db.asp"-->
<!--#include file="adovbs.inc"-->

<%
loc=Trim(Request.Form("nomelocale"))
tip=Trim(Request.Form("tipologia"))
cit=Trim(Request.Form("citta"))
pr=Trim(Request.Form("provincia"))
cp=Trim(Request.Form("cap"))
rg=Trim(Request.Form("regione"))
wb=Trim(Request.Form("web"))
ml=Trim(Request.Form("mail"))
tl=Trim(Request.Form("telefono"))
fx=Trim(Request.Form("fax"))
cl=Trim(Request.Form("cel"))
res=Trim(Request.Form("resp"))
nt=Trim(Request.Form("note"))

set rsb = Server.CreateObject("AdoDb.Recordset")

sqlb="SELECT max(id_locale)as mas, count(id_locale)as cnt FROM locale "
RSb.OPEN sqlb,conn
if rsb.Fields("cnt")=0 then
cont=1
else
cont=rsb.Fields("mas")+1
end if
sql = "SELECT * FROM locale "
rs.Open sql, conn ,3,3
if not rs.fields("locale")<>loc then

rs.addnew
rs.fields("id_locale")=cont
rs.fields("locale")=loc
rs.fields("tipologia")=tip
rs.fields("citta")=cit
rs.fields("provincia")=pr
rs.fields("cap")=cp
rs.fields("regione")=rg
rs.fields("internet")=wb
rs.fields("mail")=ml
rs.fields("tel")=tl
rs.fields("fax")=fx
rs.fields("cell")=cl
rs.fields("resp")=res
rs.fields("note")=nt
rs.update
rs.Close
set rs = Nothing
else
response.Write("<center><font color=#990000 size=4 face=Verdana, Arial, Helvetica, sans-serif>Attenzione! Locale presente nel database!</font><br><br><a href=""nuovolocale.asp"">inserisci nuovo locale</a>")
end if

%>

<a href="cp.asp">Altre operazioni</a><br><br>
<a href="nuovolocale.asp">inserisci nuovo locale</a>