<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Insert - Update Event
<%
CheckSecurity(1)
CBNewCustomer = GetParam("AddCustIntList")
Customer = ""
Customer = GetParam("CustInt")
CustomerList = GetParam("CustIntList")
DateIntervention = GetParam("DateInterv")
IdEmpl = GetParam("IdEmpl")
BTH = GetParam("BeginTimeHour")
BTM = GetParam("BeginTimeMinutes")
ETH = GetParam("EndTimeHour")
ETM = GetParam("EndTimeMinutes")
CBFullDay = GetParam("FullDay")
JD = GetParam("JobDescription")
' IdTime = GetParam("IdTime")
IdIntervention = GetParam("IDInt")
actionupdate = 1
If IdIntervention = "" then
actionupdate = 0
If CBNewCustomer = "on" AND Customer = "" then
Response.Redirect("EBAddEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&Mess=1")
End if
If CustomerList = 1 AND Customer = "" then
Response.Redirect("EBAddEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&Mess=2")
End if
If actionupdate = 1 AND Customer = "" then
Response.Redirect("EBAddEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&IdTime=" & IdTime & "&IDInt=" & IdIntervention & "&Mess=3")
End if
If CBNewCustomer = "on" then
checkCli = ""
checkCli = DLookUp("custint", "Customer", "Customer='" & Customer & "'")
If checkCli = "" then
Set rsInsertCli = Server.CreateObject("ADODB.Recordset")
sqlInsertCli = "insert into custint (" & _
"Customer)" & _
" values (" & _
ToSQL(Customer, "Text") & _
")"
openrs rsInsertCli, sqlInsertCli
End if
End if
If CustomerList <> " Other" then
Customer = CustomerList
end if
else
actionupdate = 1
end if
WeekNumInt = DatePart("ww",DateIntervention,2,3)
idInt = ""
If actionupdate = 0 then
set rs1 = Server.CreateObject("ADODB.recordset")
SQL1 = "insert into reldatelieupers (" & _
"DateInt," & _
"IdTime," & _
"CustInt," & _
"idEmpl," & _
"IdInt)" & _
" values (" & _
ToSQL(DateIntervention, "Text") & "," & _
ToSQL(IdTime, "Number") & "," & _
ToSQL(Customer, "Text") & "," & _
ToSQL(IdEmpl, "Number") & "," & _
ToSQL(idInt, "Number") & _
")"
openrs rs1, SQL1
else
set rs1 = Server.CreateObject("ADODB.recordset")
sWhere = "id=" & IdIntervention & ""
SQL1 = "update reldatelieupers set " & _
"DateInt=" & ToSQL(DateIntervention, "Text") & _
",IdTime=" & ToSQL(IdTime, "Number") & _
",CustInt=" & ToSQL(Customer, "Text") & _
",idEmpl=" & ToSQL(IdEmpl, "Number") & _
",IdInt=" & ToSQL(idInt, "Number")
SQL1 = SQL1 & " where " & sWhere
openrs rs1, SQL1
end if
Response.Redirect("EBAgenda.asp?Semaine=" & WeekNumInt & "")
%>