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
%>