Evitare di inserire un record già presente

[slay]

tra i tanti muri c'è anche questo

io aggiorno il mio db da un form però prima di inserire un dato mi controllasse se il dato non è presente tutto ok se invece il dato esiste già mi compaia un mex con scritto dato già inserito

questo è il codice che uso per l'update:
il campo che voglio controllare è il campo titolo

<%
dim obiettivo_webmkt,pagina_webmkt,titolo_webmkt,descrizione_webmkt,autore_webmkt,anteprima_webmkt
dim sql_webmkt,rs_webmkt
anteprima_webmkt=request.form("form_anteprima")
autore_webmkt=request.form("form_autore")
obiettivo_webmkt=request.form("form_obiettivo")
pagina_webmkt=request.form("form_pagina")
titolo_webmkt=request.form("form_titolo")
descrizione_webmkt=request.form("form_descrizione")


if pagina_webmkt = "" then
response.redirect("index.asp?A=errore")
end if
if titolo_webmkt = "" then
response.redirect("index.asp?A=errore")
end if
if descrizione_webmkt = "" then
response.redirect("index.asp?A=errore")
end if

sql_webmkt = "SELECT * FROM webmarketing"
Set rs_webmkt = Server.CreateObject("ADODB.Recordset")
rs_webmkt.Open sql_webmkt, dcnDB, 3, 3
RS_webmkt.AddNew
rs_webmkt.Fields("titolopagina")=pagina_webmkt
rs_webmkt.Fields("obiettivo")=obiettivo_webmkt
rs_webmkt.Fields("autore")=autore_webmkt
rs_webmkt.Fields("titolo")=titolo_webmkt
rs_webmkt.Fields("anteprimadescrizione")=anteprima_webmkt
rs_webmkt.Fields("descrizione")=descrizione_webmkt
rs_webmkt.update

RS_webmkt.Close
Set RS_webmkt=Nothing
dcnDB.Close
Set dcnDB=Nothing

response.redirect("index.asp?A=ok")
%>

[weppos]

Fai una query con le condizioni del record che vuoi controllare.
Se la query restituisce .EOF allora il record non esiste e procedi, altrimenti il record già esiste.

[slay]

ok funzia!!

senti metto il codice e dimmi se magari ho sbagliato qualcosa e mi funziona ugulamente

<%
dim obiettivo_webmkt,pagina_webmkt,titolo_webmkt,descrizione_webmkt,autore_webmkt,anteprima_webmkt
dim sql_webmkt,rs_webmkt
anteprima_webmkt=request.form("form_anteprima")
autore_webmkt=request.form("form_autore")
obiettivo_webmkt=request.form("form_obiettivo")
pagina_webmkt=request.form("form_pagina")
titolo_webmkt=request.form("form_titolo")
descrizione_webmkt=request.form("form_descrizione")


if pagina_webmkt = "" then
response.redirect("index.asp?A=errore")
end if
if titolo_webmkt = "" then
response.redirect("index.asp?A=errore")
end if
if descrizione_webmkt = "" then
response.redirect("index.asp?A=errore")
end if

Set rs_webmkt = Server.CreateObject("ADODB.Recordset")
sql_webmkt = "SELECT * FROM webmarketing WHERE titolo='" & titolo_webmkt & "'"
rs_webmkt.Open sql_webmkt, dcnDB, 3, 3

if rs_webmkt.eof then
sql_webmkt = "SELECT * FROM webmarketing"
RS_webmkt.AddNew
rs_webmkt.Fields("titolopagina")=pagina_webmkt
rs_webmkt.Fields("obiettivo")=obiettivo_webmkt
rs_webmkt.Fields("autore")=autore_webmkt
rs_webmkt.Fields("titolo")=titolo_webmkt
'rs_webmkt.Fields("anteprimadescrizione")=anteprima_webmkt
rs_webmkt.Fields("descrizione")=descrizione_webmkt
rs_webmkt.update

RS_webmkt.Close
Set RS_webmkt=Nothing
dcnDB.Close
Set dcnDB=Nothing

response.redirect("index.asp?A=ok")
else
%>
Record già inserito!!

<%end if%>

[elfa]

A parte

------------------------------------------
sql_webmkt = "SELECT * FROM webmarketing"
------------------------------------------

che non ti serve (ed infatti non la usi), stai attento alle chiusure; se il record esiste già non chiudi nè il recordset nè la connessione al database

----------------------
RS_webmkt.Close
Set RS_webmkt=Nothing
dcnDB.Close
Set dcnDB=Nothing
----------------------

devono stare fuori dall'if

[slay]

grazie