<%
'
' Filename: AddEvent.asp
' Generated with CodeCharge 2.0.5
' ASP 2.0.ccp build 01/22/2002
'
'-------------------------------
' AddEvent CustomIncludes begin
%>
<%
' AddEvent CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "AddEvent.asp"
'===============================
'===============================
' AddEvent PageSecurity begin
CheckSecurity(1)
' AddEvent PageSecurity end
'===============================
'===============================
' AddEvent Open Event start
' AddEvent Open Event end
'===============================
'===============================
' AddEvent OpenAnyPage Event start
' AddEvent OpenAnyPage Event end
'===============================
'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' AddEvent Show begin
'===============================
' Page execution
'-------------------------------
'Initialize error variables
'-------------------------------
sreldatelieupersErr = ""
'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
Case "reldatelieupers"
reldatelieupersAction(sAction)
end select
'===============================
'===============================
' HTML Page layout
'-------------------------------
%>
EB Agenda - Add Event
<% EBMenu_Show %>
<% reldatelieupers_Show %>
<%
' AddEvent Show end
' AddEvent Close Event start
' AddEvent Close Event end
'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================
'********************************************************************************
'===============================
' Action of the Record Form
'-------------------------------
Sub reldatelieupersAction(sAction)
'-------------------------------
' Initialize variables
'-------------------------------
Dim bExecSQL: bExecSQL = true
Dim sActionFileName : sActionFileName = ""
Dim sWhere : sWhere = ""
Dim bErr : bErr = False
Dim pPKid : pPKid = ""
Dim fldDateInt : fldDateInt = ""
Dim fldIdTime : fldIdTime = ""
Dim fldCustInt : fldCustInt = ""
Dim fldidEmpl : fldidEmpl = ""
Dim fldIdInt : fldIdInt = ""
'-------------------------------
'-------------------------------
' reldatelieupers Action begin
'-------------------------------
sActionFileName = "reldatelieupersGrid.asp"
'-------------------------------
' CANCEL action
'-------------------------------
if sAction = "cancel" then
'-------------------------------
' reldatelieupers BeforeCancel Event start
' reldatelieupers BeforeCancel Event end
'-------------------------------
cn.Close
Set cn = Nothing
response.redirect sActionFileName
end if
'-------------------------------
'-------------------------------
' Build WHERE statement
'-------------------------------
if sAction = "update" or sAction = "delete" then
pPKid = GetParam("PK_id")
if IsEmpty(pPKid) then exit sub
sWhere = "id=" & ToSQL(pPKid, "Number")
end if
'-------------------------------
'-------------------------------
' Load all form fields into variables
'-------------------------------
fldDateInt = GetParam("DateInt")
fldIdTime = GetParam("IdTime")
fldCustInt = GetParam("CustInt")
fldidEmpl = GetParam("idEmpl")
fldIdInt = GetParam("IdInt")
'-------------------------------
' Validate fields
'-------------------------------
if sAction = "insert" or sAction = "update" then
if IsEmpty(fldDateInt) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Date : est exigée. "
end if
if IsEmpty(fldIdTime) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Period : est exigée. "
end if
if IsEmpty(fldCustInt) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Customer : est exigée. "
end if
if IsEmpty(fldidEmpl) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Empl : est exigée. "
end if
if not isNumeric(fldIdTime) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Period : est incorrecte. "
end if
if not isNumeric(fldidEmpl) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine Empl : est incorrecte. "
end if
if not isNumeric(fldIdInt) then
sreldatelieupersErr = sreldatelieupersErr & "La valeur dans le domaine IdInt est incorrecte. "
end if
'-------------------------------
' reldatelieupers Check Event start
' reldatelieupers Check Event end
'-------------------------------
If len(sreldatelieupersErr) > 0 then
exit sub
end if
end if
'-------------------------------
'-------------------------------
' Create SQL statement
'-------------------------------
select case sAction
case "insert"
'-------------------------------
' reldatelieupers Insert Event start
' reldatelieupers Insert Event end
'-------------------------------
sSQL = "insert into reldatelieupers (" & _
"DateInt," & _
"IdTime," & _
"CustInt," & _
"idEmpl," & _
"IdInt)" & _
" values (" & _
ToSQL(fldDateInt, "Text") & "," & _
ToSQL(fldIdTime, "Number") & "," & _
ToSQL(fldCustInt, "Text") & "," & _
ToSQL(fldidEmpl, "Number") & "," & _
ToSQL(fldIdInt, "Number") & _
")"
case "update"
'-------------------------------
' reldatelieupers Update Event start
' reldatelieupers Update Event end
'-------------------------------
sSQL = "update reldatelieupers set " & _
"DateInt=" & ToSQL(fldDateInt, "Text") & _
",IdTime=" & ToSQL(fldIdTime, "Number") & _
",CustInt=" & ToSQL(fldCustInt, "Text") & _
",idEmpl=" & ToSQL(fldidEmpl, "Number") & _
",IdInt=" & ToSQL(fldIdInt, "Number")
sSQL = sSQL & " where " & sWhere
case "delete"
'-------------------------------
' reldatelieupers Delete Event start
' reldatelieupers Delete Event end
'-------------------------------
sSQL = "delete from reldatelieupers where " & sWhere
end select
'-------------------------------
'-------------------------------
' reldatelieupers BeforeExecute Event start
' reldatelieupers BeforeExecute Event end
'-------------------------------
'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sreldatelieupersErr) > 0 then Exit Sub
on error resume next
if bExecSQL then
cn.execute sSQL
end if
sreldatelieupersErr = ProcessError
on error goto 0
if len(sreldatelieupersErr) > 0 then Exit Sub
cn.Close
Set cn = Nothing
response.redirect sActionFileName
'-------------------------------
' reldatelieupers Action end
'-------------------------------
end sub
'===============================
'===============================
' Display Record Form
'-------------------------------
Sub reldatelieupers_Show()
'-------------------------------
' reldatelieupers Show begin
'-------------------------------
sWhere = ""
Dim sFormTitle: sFormTitle = "Insert new event"
bPK = true
%>
<%
'-------------------------------
' reldatelieupers Close Event start
' reldatelieupers Close Event end
'-------------------------------
Set rs = Nothing
'-------------------------------
' reldatelieupers Show end
'-------------------------------
End Sub
'===============================
%>