<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Insert - Update Event
<%
CBNewCustomer = GetParam("AddCustIntList")
Customer = ""
Customer = GetParam("CustInt")
CustomerList = GetParam("CustIntList")
DateIntervention = GetParam("DateInterv")
IdEmpl = GetParam("IdEmpl")
IdTime = GetParam("IdTime")
IdIntervention = GetParam("IDInt")
If CBNewCustomer = "on" AND Customer = "" then
Response.Redirect("AddEventEBtestAutocli.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&IdTime=" & IdTime & "&IDInt=" & IdIntervention & "&Mess=1")
End if
If CustomerList = " Other" AND Customer = "" then
Response.Redirect("AddEventEBtestAutocli.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&IdTime=" & IdTime & "&IDInt=" & IdIntervention & "&Mess=2")
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
WeekNumInt = DatePart("ww",DateIntervention,2,3)
idInt = ""
If IdIntervention = "" then
actionupdate = 0
else
actionupdate = 1
end if
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#Sem" & WeekNumInt & "")
%>