Buongiorno,
ho creato una pagina asp per inserire dati su una tabella sql tramite un form, funziona correttamente, vorrei però avere la certezza che il record sia effettivamente inserito.
Sto usando Dreamweaver cs4: posto parte del codice per far vedere il tipo di inserimento:
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
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_cn_STRING
MM_editCmd.CommandText = "INSERT INTO ammidati.SondaVisite (data_visita, residenza, stato, soggiorno, motivo, come, accoglienza, migliorare, altre_localita, commenti, info_posta, info_email) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("textdata_visita"), Request.Form("textdata_visita"), null)) ' adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 100, Request.Form("residenza")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 30, Request.Form("stato")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 100, MM_IIF(Request.Form("textSoggiorno"), Request.Form("textSoggiorno"), Request.Form("soggiorno"))) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 100, MM_IIF(Request.Form("textMotivo"), Request.Form("textMotivo"), Request.Form("motivo"))) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 35, Request.Form("Come")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 35, Request.Form("accoglienza")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 100, MM_IIF(Request.Form("textMigliorare"), Request.Form("textMigliorare"), Request.Form("Migliorare"))) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 120, Request.Form("altre_localita")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, -1, Request.Form("textCommenti")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 100, Request.Form("info_posta")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 100, Request.Form("info_email")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
E' possibile avere un codice di ritorno sull'avvenuta esecuzione dell'inserimento del record?
Grazie dell'attenzione
Rispondi quotando
