Il codice inserito esista già. Le modifiche sono state annullate.

[Enrique_Rojas]

Ciao, tramite una form devo far registrare alcuni dati su un dbase e scrivo così:

IDArticolo=request.form("IDArticolo")
if request.form("InVendita")="ok" then InVendita=true
sqlquery = "update "
sqlquery = sqlquery & "[Catalogo_Articoli] "
sqlquery = sqlquery & "set "
sqlquery = sqlquery & "ID='" & request.form("ID") & "', "
sqlquery = sqlquery & "IDLinea='" & request.form("IDLinea") & "', "
sqlquery = sqlquery & "Denominazione='" & raddoppiaapostrofi(request.form("Denominazione")) & "', "
sqlquery = sqlquery & "InformazioniEstese='" & raddoppiaapostrofi(request.form("InformazioniEstese")) & "', "
sqlquery = sqlquery & "indirizzo='" & raddoppiaapostrofi(request.form("indirizzo")) & "', "
sqlquery = sqlquery & "telefono='" & raddoppiaapostrofi(request.form("telefono")) & "', "
sqlquery = sqlquery & "fax='" & raddoppiaapostrofi(request.form("fax")) & "', "
sqlquery = sqlquery & "email='" & raddoppiaapostrofi(request.form("email")) & "', "
sqlquery = sqlquery & "web='" & raddoppiaapostrofi(request.form("web")) & "', "
sqlquery = sqlquery & "nome='" & raddoppiaapostrofi(request.form("nome")) & "', "
sqlquery = sqlquery & "cognome='" & raddoppiaapostrofi(request.form("cognome")) & "', "
sqlquery = sqlquery & "citta='" & raddoppiaapostrofi(request.form("citta")) & "', "
sqlquery = sqlquery & "provincia='" & raddoppiaapostrofi(request.form("provincia")) & "', "
sqlquery = sqlquery & "nazione='" & raddoppiaapostrofi(request.form("nazione")) & "', "
sqlquery = sqlquery & "cap='" & raddoppiaapostrofi(request.form("cap")) & "', "
sqlquery = sqlquery & "Prezzo=" & replace(cstr(estrainumero(request.form("Prezzo"))), ",", ".") & ", "
sqlquery = sqlquery & "RiferimentoDiIcona='" & raddoppiaapostrofi(request.form("RiferimentoDiIcona")) & "', "

if InVendita then
sqlquery = sqlquery & "InVendita=true "
else
sqlquery = sqlquery & "InVendita=false "
end if
sqlquery = sqlquery & "where ID=" & request.form("IDArticolo")
MessaggioErrore=""
if not isnumeric(request.form("Prezzo")) then MessaggioErrore = "Il campo ""prezzo"" deve contenere un importo valido. Le modifiche sono state annullate."
if request.form("Denominazione")="" then MessaggioErrore = "Il campo ""descrizione"" non può essere vuoto. Le modifiche sono state annullate."
if MessaggioErrore = "" then 
Databasestore.execute sqlquery
else
Edit="editarticolo"%>
<font color="red" size=-1><%=MessaggioErrore%></font>
<%end if
select case err
case -2147217900%>
<p style="margin-top: 0; margin-bottom: 0"></p>
<p align="center" style="margin-top: 0; margin-bottom: 0">  
<font color="red">Il codice inserito esista già. Le modifiche sono state annullate.</font>

ma qualunche cosa scrivo mi restituisce sempre:
Il codice inserito esista già. Le modifiche sono state annullate.

dove sbaglio?

[AleX ZeTa]

metti un

<%
End Select
%>

alla fine. Potrebbero esserc altri errori, non ho controllato.

[Enrique_Rojas]

Originariamente inviato da AleX ZeTa
metti un

<%
End Select
%>

alla fine. Potrebbero esserc altri errori, non ho controllato.

Grazie, adesso è ok... ma perchè questa query non mi restituisce nessun dato? mi lascia la listbox vuota... :master:

<SELECT name="ID"> 
<% 
sqlquery = "select " 
sqlquery = sqlquery & "ID, " 
sqlquery = sqlquery & "Denominazione, " 
sqlquery = sqlquery & "Informazioni " 
sqlquery = sqlquery & "from " 
sqlquery = sqlquery & "[Catalogo_Linee]" 
Set RecordsetLinee = DatabaseWebStore.Execute(sqlquery) 
if err=0 then 
While Not RecordsetLinee.EOF 
ID = RecordsetLinee("ID") 
if cInt(ID) = cInt(IDLinea) then 
response.write "<OPTION SELECTED VALUE=" & ID & ">" 
else 
response.write "<OPTION VALUE=" & ID & ">" 
end if 
response.write RecordsetLinee("denominazione") & "</OPTION>" 
RecordsetLinee.movenext 
Wend 
end if 
RecordsetLinee.close 
set RecorsetLinee = nothing 
%> 
</SELECT>