<%
Se (CStr (richiesta (“MM_insert„)) = “form1„) allora
Se (non MM_abortEdit) allora
'eseguire l'inserto
Oscurare MM_editCmd
Regolare MM_editCmd = Server.CreateObject (“ADODB.Command„)
MM_editCmd.ActiveConnection = MM_ConnNews_STRING
MM_editCmd.CommandText = “INSERTO NEI VALORI di tblMenu (start_date, end_date, categoria, navn, collegamento, event_date, corso, menu) (? ? ? ? ? ? ? ?)„
MM_editCmd.Prepared = allineano
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 (“collegamento„)) '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 (“corso„)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter (“param8„, 203, 1, 536870910, Request.Form (“menu„)) 'adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'aggiungere la stringa di domanda al URL di nuovo orientamento
Oscurare MM_editRedirectUrl
MM_editRedirectUrl = “tak.asp„
Se ("" del <> di Request.QueryString) allora
Se (InStr (1, MM_editRedirectUrl, “? „, vbTextCompare) = 0) allora
MM_editRedirectUrl = MM_editRedirectUrl & “?„ & Request.QueryString
Altrimenti
MM_editRedirectUrl = MM_editRedirectUrl & “&„ & Request.QueryString
Concluder se
Concluder se
Response.Redirect (MM_editRedirectUrl)
Concluder se
Concluder se
la parte più sconosciuta " libera " di >
The del class= di %>