<%
Se (CStr (pedido (“MM_insert”)) = “form1”) então
Se (não MM_abortEdit) então
'executar a inserção
Escurecer MM_editCmd
Ajustar MM_editCmd = Server.CreateObject (“ADODB.Command”)
MM_editCmd.ActiveConnection = MM_ConnNews_STRING
MM_editCmd.CommandText = “INSERÇÃO EM VALORES do tblMenu (start_date, end_date, categoria, navn, ligação, event_date, curso, menu) (? ? ? ? ? ? ? ?)”
MM_editCmd.Prepared = retificam
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 (“categoria”)) '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 (“ligação”)) '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 (“curso”)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (“param8”, 203, 1, 536870910, Request.Form (“menu”)) 'adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'adicionar a corda da pergunta ao URL da reorientação
Escurecer MM_editRedirectUrl
MM_editRedirectUrl = “tak.asp”
Se ("" do <> de Request.QueryString) então
Se (InStr (1, MM_editRedirectUrl, “? ”, vbTextCompare) = 0) então
MM_editRedirectUrl = MM_editRedirectUrl & “?” & Request.QueryString
Mais
MM_editRedirectUrl = MM_editRedirectUrl & “&” & Request.QueryString
Terminar se
Terminar se
Response.Redirect (MM_editRedirectUrl)
Terminar se
Terminar se
a peça a mais estranha " desobstruída " de >
The do class= de %>