<%
Si (CStr (demande (« MM_insert »)) = « form1 ») puis
Si (pas MM_abortEdit) puis
'exécuter l'insertion
Obscurcir MM_editCmd
Placer MM_editCmd = Server.CreateObject (« ADODB.Command »)
MM_editCmd.ActiveConnection = MM_ConnNews_STRING
MM_editCmd.CommandText = « INSERTION DANS DES VALEURS de tblMenu (start_date, end_date, catégorie, navn, lien, event_date, cours, menu) (? ? ? ? ? ? ? ?) »
MM_editCmd.Prepared = rectifient
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param1 », 135, 1, -1, DateValue (Request.Form (« start_date »))) 'adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param1 », 135, 1, -1, DateValue (Request.Form (« end_date »))) 'adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param3 », 202, 1, 255, Request.Form (« catégorie »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param4 », 202, 1, 255, Request.Form (« navn »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param5 », 202, 1, 255, Request.Form (« lien »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param1 », 135, 1, -1, DateValue (Request.Form (« event_date »))) 'adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param7 », 202, 1, 255, Request.Form (« cours »)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (« param8 », 203, 1, 536870910, Request.Form (« menu »)) 'adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'apposer la corde de question à l'URL de réorientation
Obscurcir MM_editRedirectUrl
MM_editRedirectUrl = « tak.asp »
Si ("" de <> de Request.QueryString) puis
Si (InStr (1, MM_editRedirectUrl, « ? », vbTextCompare) = 0) puis
MM_editRedirectUrl = MM_editRedirectUrl et « ? » Et Request.QueryString
Autrement
MM_editRedirectUrl = MM_editRedirectUrl et « et » et Request.QueryString
Finir si
Finir si
Response.Redirect (MM_editRedirectUrl)
Finir si
Finir si
la pièce la plus étrange " claire " de >