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:
|
<%
Wenn (CStr (Antrag („MM_insert“)) = „form1“) dann
Wenn (nicht MM_abortEdit) dann
'den Einsatz durchführen
MM_editCmd verdunkeln
MM_editCmd = Server.CreateObject („ADODB.Command“) einstellen
MM_editCmd.ActiveConnection = MM_ConnNews_STRING
MM_editCmd.CommandText = „EINSATZ IN tblMenu (start_date, end_date, Kategorie, navn, Verbindung, event_date, Kurs, Menü) WERTE (? ? ? ? ? ? ? ?)“
MM_editCmd.Prepared = ausrichten en
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 („Kategorie“)) '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 („Verbindung“)) '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 („Kurs“)) 'adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter („param8“, 203, 1, 536870910, Request.Form („Menü“)) 'adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'die Fragenschnur zum umadressieren URL hinzufügen
MM_editRedirectUrl verdunkeln
MM_editRedirectUrl = „tak.asp“
Wenn (Request.QueryString <> "") dann
Wenn (InStr (1, MM_editRedirectUrl, „? “, vbTextCompare) = 0) dann
MM_editRedirectUrl = MM_editRedirectUrl u. „?“ U. Request.QueryString
Sonst
MM_editRedirectUrl = MM_editRedirectUrl u. „u.“ u. Request.QueryString
Beenden wenn
Beenden wenn
Response.Redirect (MM_editRedirectUrl)
Beenden wenn
Beenden wenn
%> |