1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
|
<%
Als (CStr (Verzoek („MM_insert“)) = „form1“) toen
Als (niet MM_abortEdit) toen
'voer het tussenvoegsel uit
Verduister MM_editCmd
Plaats MM_editCmd = Server.CreateObject („ADODB.Command“)
MM_editCmd.ActiveConnection = MM_ConnNews_STRING
MM_editCmd.CommandText = „NEEM IN tblMenu (start_date, end_date, categorie, navn, verbinding, event_date, cursus, menu) WAARDEN (? ? ? ? ? ? ? ?)“
MM_editCmd.Prepared = waar
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 („categorie“)) '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 („verbinding“)) '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 („cursus“)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter („param8“, 203, 1, 536870910, Request.Form („menu“)) 'adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'voeg het vraagkoord aan toe opnieuw richten URL
Verduister MM_editRedirectUrl
MM_editRedirectUrl = „tak.asp“
Als (Request.QueryString <> "") toen
Als (InStr (1, MM_editRedirectUrl, „? “, vbTextCompare) = 0) toen
MM_editRedirectUrl = MM_editRedirectUrl & „?“ & Request.QueryString
Anders
MM_editRedirectUrl = MM_editRedirectUrl & „&“ & Request.QueryString
Eind als
Eind als
Response.Redirect (MM_editRedirectUrl)
Eind als
Eind als
%> |