Salve a tutti
ho questo problema: dopo aver aggiornato un record vorrei che mi facesse vedere il dettaglio di del record aggiornato.
Premetto che per fare ciò uso Dreamweaver.
Il codice che mi genera per questa operazione è:
codice:
<%
' *** Update Record: set variables
If (CStr(Request("MM_update")) = "form2" And CStr(Request("MM_recordId")) <> "") Then
MM_editConnection = MM_conn_teammeccanica_STRING
MM_editTable = "Ordine"
MM_editColumn = "ID_ordine"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "ordine_details.asp?ID_ordine=" + (rs_ordine.Fields.Item("ID_ordine").Value) + ""
MM_fieldsStr = "Ordine_n|value|Data_emissione_ordine|value|Data_consegna_ordine|value|Trasporto|value|Pagamento|value|Annotazioni|value|Esenzione_IVA|value"
MM_columnsStr = "Ordine_n|',none,''|Data_emissione_ordine|',none,NULL|Data_consegna_ordine|',none,NULL|Trasporto|',none,''|Pagamento|',none,''|Annotazioni|',none,''|Esenzione_IVA|none,1,0"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
Quando edito la pagina on-line mi da questo errore:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/teammeccanica/inordine.asp, line 68
La linea 68 è quella del redirect ( MM_editRedirectUrl = "ordine_details.asp?ID_ordine=" + (rs_ordine.Fields.Item("ID_ordine").Value) + "")
Si può fare?
Come devo scrivere il codice in modo corretto se si può fare?