<%
'
' Filename: transfert_Record.asp
' Generated with CodeCharge 2.0.5
' ASP 2.0.ccp build 01/22/2002
'
'-------------------------------
' transfert_Record CustomIncludes begin
%>
<%
' transfert_Record CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "transfert_Record.asp"
'===============================
'===============================
' transfert_Record PageSecurity begin
CheckSecurity(1)
' transfert_Record PageSecurity end
'===============================
'===============================
' transfert_Record Open Event start
' transfert_Record Open Event end
'===============================
'===============================
' transfert_Record OpenAnyPage Event start
' transfert_Record OpenAnyPage Event end
'===============================
'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' transfert_Record Show begin
'===============================
' Page execution
'-------------------------------
'Initialize error variables
'-------------------------------
sreldatelieupers_2Err = ""
'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
Case "reldatelieupers_2"
reldatelieupers_2Action(sAction)
end select
'===============================
'===============================
' HTML Page layout
'-------------------------------
%>
EB Agenda
<% EBMenu_Show %>
<% reldatelieupers_2_Show %>
<%
' transfert_Record Show end
' transfert_Record Close Event start
' transfert_Record Close Event end
'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================
'********************************************************************************
'===============================
' Action of the Record Form
'-------------------------------
Sub reldatelieupers_2Action(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 = ""
Dim fldFullDay : fldFullDay = ""
Dim fldBeginTime : fldBeginTime = ""
Dim fldEndTime : fldEndTime = ""
Dim fldJobDescription : fldJobDescription = ""
'-------------------------------
'-------------------------------
' reldatelieupers_2 Action begin
'-------------------------------
sActionFileName = "transfert_Grid.asp"
'-------------------------------
' CANCEL action
'-------------------------------
if sAction = "cancel" then
'-------------------------------
' reldatelieupers_2 BeforeCancel Event start
' reldatelieupers_2 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")
fldFullDay = getCheckBoxValue(GetParam("FullDay"), "1", "0", "Number")
fldBeginTime = GetParam("BeginTime")
fldEndTime = GetParam("EndTime")
fldJobDescription = GetParam("JobDescription")
'-------------------------------
' Validate fields
'-------------------------------
if sAction = "insert" or sAction = "update" then
if IsEmpty(fldDateInt) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field DateInt is required. "
end if
if IsEmpty(fldIdTime) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field IdTime is required. "
end if
if IsEmpty(fldCustInt) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field CustInt is required. "
end if
if IsEmpty(fldidEmpl) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field idEmpl is required. "
end if
if IsEmpty(fldBeginTime) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field BeginTime is required. "
end if
if IsEmpty(fldEndTime) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field EndTime is required. "
end if
if not isNumeric(fldIdTime) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field IdTime is incorrect. "
end if
if not isNumeric(fldidEmpl) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field idEmpl is incorrect. "
end if
if not isNumeric(fldIdInt) then
sreldatelieupers_2Err = sreldatelieupers_2Err & "The value in field IdInt is incorrect. "
end if
'-------------------------------
' reldatelieupers_2 Check Event start
' reldatelieupers_2 Check Event end
'-------------------------------
If len(sreldatelieupers_2Err) > 0 then
exit sub
end if
end if
'-------------------------------
'-------------------------------
' Create SQL statement
'-------------------------------
select case sAction
case "insert"
'-------------------------------
' reldatelieupers_2 Insert Event start
' reldatelieupers_2 Insert Event end
'-------------------------------
sSQL = "insert into reldatelieupers_2 (" & _
"DateInt," & _
"IdTime," & _
"CustInt," & _
"idEmpl," & _
"IdInt," & _
"FullDay," & _
"BeginTime," & _
"EndTime," & _
"JobDescription)" & _
" values (" & _
ToSQL(fldDateInt, "Date") & "," & _
ToSQL(fldIdTime, "Number") & "," & _
ToSQL(fldCustInt, "Text") & "," & _
ToSQL(fldidEmpl, "Number") & "," & _
ToSQL(fldIdInt, "Number") & "," & _
fldFullDay & "," & _
ToSQL(fldBeginTime, "Text") & "," & _
ToSQL(fldEndTime, "Text") & "," & _
ToSQL(fldJobDescription, "Memo") & _
")"
case "update"
'-------------------------------
' reldatelieupers_2 Update Event start
' reldatelieupers_2 Update Event end
'-------------------------------
sSQL = "update reldatelieupers_2 set " & _
"DateInt=" & ToSQL(fldDateInt, "Date") & _
",IdTime=" & ToSQL(fldIdTime, "Number") & _
",CustInt=" & ToSQL(fldCustInt, "Text") & _
",idEmpl=" & ToSQL(fldidEmpl, "Number") & _
",IdInt=" & ToSQL(fldIdInt, "Number") & _
",FullDay=" & fldFullDay & _
",BeginTime=" & ToSQL(fldBeginTime, "Text") & _
",EndTime=" & ToSQL(fldEndTime, "Text") & _
",JobDescription=" & ToSQL(fldJobDescription, "Memo")
sSQL = sSQL & " where " & sWhere
case "delete"
'-------------------------------
' reldatelieupers_2 Delete Event start
' reldatelieupers_2 Delete Event end
'-------------------------------
sSQL = "delete from reldatelieupers_2 where " & sWhere
end select
'-------------------------------
'-------------------------------
' reldatelieupers_2 BeforeExecute Event start
' reldatelieupers_2 BeforeExecute Event end
'-------------------------------
'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sreldatelieupers_2Err) > 0 then Exit Sub
on error resume next
if bExecSQL then
cn.execute sSQL
end if
sreldatelieupers_2Err = ProcessError
on error goto 0
if len(sreldatelieupers_2Err) > 0 then Exit Sub
cn.Close
Set cn = Nothing
response.redirect sActionFileName
'-------------------------------
' reldatelieupers_2 Action end
'-------------------------------
end sub
'===============================
'===============================
' Display Record Form
'-------------------------------
Sub reldatelieupers_2_Show()
'-------------------------------
' reldatelieupers_2 Show begin
'-------------------------------
sWhere = ""
Dim sFormTitle: sFormTitle = "reldatelieupers_2"
bPK = true
%>
<%
'-------------------------------
' reldatelieupers_2 Close Event start
' reldatelieupers_2 Close Event end
'-------------------------------
Set rs = Nothing
'-------------------------------
' reldatelieupers_2 Show end
'-------------------------------
End Sub
'===============================
%>