errore al caricamento pagina

[sergio1980]

ciao a tutti

ho bisogno di un piccolo aiutino... il mio problema è questo:

ho un sito web e-commerce dove un utente entra per acquistare

tutto bene fino a quando un cliente decide di tornare indietro a metà di un acquisto ad esempio per aggiungere un prodotto, arriva alla pagina di acquisto ed esce questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

come posso risolvere questa cosa?

grazie mille

[Domenix]

Ad occhio è croce sembra che lo script tenti di inserire in un campo di tipo chiave primaria dei dati duplicati.
Bisognerebbe vedere il codice.

[sergio1980]

la parte di codice per cui ho l'errore è questa:

<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_conn_gusti_STRING
MM_editCmd.CommandText = "INSERT INTO ordini (OrdiniId, cliente, data_ordine, pagamento, spedizione, presso_consegna, indirizzo_consegna, cap_consegna, citta_consegna, provincia_consegna, stato_consegna, telef_consegna, subtotale, totalone, totale_pagamento, totale_spedizione, biglietto, Note_corriere, testo_biglietto) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("ordiniID"), Request.Form("ordiniID"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("cliente"), Request.Form("cliente"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 135, 1, -1, MM_IIF(Request.Form("data"), Request.Form("data"), null)) ' adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("pagamento")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("spedizione")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 250, Request.Form("presso_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("indirizzo_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("cap_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("citta_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 50, Request.Form("provincia_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 20, Request.Form("stato_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, Request.Form("telefono_consegna")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("subotale"), Request.Form("subotale"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 5, 1, -1, MM_IIF(Request.Form("totalone"), Request.Form("totalone"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 5, 1, -1, MM_IIF(Request.Form("totale_pagamento"), Request.Form("totale_pagamento"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 5, 1, -1, MM_IIF(Request.Form("totale_spedizione"), Request.Form("totale_spedizione"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 2, Request.Form("biglietto")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 203, 1, 1073741823, Request.Form("Note_corriere")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 203, 1, 1073741823, Request.Form("Testo_biglietto")) ' adLongVarWChar
session("peru") = request.form("peru")
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>

[sergio1980]

ma è possibile dire:

se esce questo tipo di errore fammi un redirect ad una pagina di logout?