Ciao, dovrei creare un listino e ad ogni articolo assegnare un codice articolo ( che chiamo Cod nel data base ) e fin qui è OK, il problema è questo, ho la necessità di non duplicare i codici articoli all’interno del database.

Ho cercato di creami una funzione che mi controllasse ciò ma sembra non funzionare, il database “Listini” è così composto:

id
Cod ( codice articolo )
Prezzo
Descrizione

Quando inserisco un nuovo articolo se il records cod è gia presente sul database non deve essere inserito ma riindirizzo la pagina in una di errore ( spero di essermi spiegato )

Mi sono generato questa query

<%
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''
'recupero le informazioni dal form

Cod = Server.htmlencode(Request.Form( "Cod" ))
Prezzo = Server.htmlencode(Request.Form( "Prezzo" ))
Descrizione = Server.htmlencode(Request.Form( " Descrizione" ))


'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''’ ’’’’’’’’’’’’’’’’’’’’’’
'vedo se trovo dei risultati con il cod appena inserito

sql = "SELECT * FROM Listini WHERE Cod='" & Cod & "';"
Set rec = Server.CreateObject("ADODB.Recordset")
Conn.Execute(SQL )

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''’ ’’’’’’’’’’’’’’’
'cerco di gestire il cod per non creare un doppione

if rec<>True then

Session ( "messaggio" )="Errore…"
Response.Redirect "errore.asp"
Response.end

Else

SQL = "INSERT INTO Listini (Cod,Prezzo,Descrizione)"
SQL = SQL&"VALUES(''"&Cod&"','"&Prezzo&"','"&Descrizione &"')"
Conn.Execute(SQL)

end if

%>


Grazie