<% IDCli = GetParam("id") NameCli = DLookUp("eb_clients", "FriendName", "id=" & IDCli) NameCli = ToHTML(NameCli) idContact = GetParam("idContact") NewContact = 0 NewContact = GetParam("NewContact") %> Customer Details <% If GetParam("Action") = "Delete" then Response.Write("

Suppresion

") Set rsDeleteCli = Server.CreateObject("ADODB.recordset") sqlDeleteCli = "delete from relclicontact where id=" & idContact openrs rsDeleteCli, sqlDeleteCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) end if If GetParam("Action") = "Update" then Response.Write("

Mise à jour

") Set rsUpdateCli = Server.CreateObject("ADODB.Recordset") sqlUpdateCli = "UPDATE relclicontact set " & _ "FisrtName=" & ToSQL(GetParam("FisrtName"), "Text") & _ ",LastName=" & ToSQL(GetParam("LastName"), "Text") & _ ",Service=" & ToSQL(GetParam("Service"), "Text") & _ ",Function=" & ToSQL(GetParam("Function"), "Text") & _ ",Tel1=" & ToSQL(GetParam("Tel1"), "Text") & _ ",Tel2=" & ToSQL(GetParam("Tel2"), "Text") & _ ",Mail1=" & ToSQL(GetParam("Mail1"), "Text") & _ ",Mail2=" & ToSQL(GetParam("Mail2"), "Text") & _ ",Note=" & ToSQL(GetParam("Note"), "Text") & _ " where id=" & idContact Response.Write(sqlUpdateCli) openrs rsUpdateCli, sqlUpdateCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if If GetParam("Action") = "Insert" then Response.Write("

Nouveau contact

") Set rsNewCli = Server.CreateObject("ADODB.Recordset") sqlNewCli = "insert into relclicontact (" & _ "idCli," & _ "LastName," & _ "FisrtName," & _ "Service," & _ "Function," & _ "Tel1," & _ "Tel2," & _ "Mail1," & _ "Mail2," & _ "Note)" & _ " values (" & _ ToSQL(IDCli, "Number") & "," & _ ToSQL(GetParam("LastName"), "Text") & "," & _ ToSQL(GetParam("FisrtName"), "Text") & "," & _ ToSQL(GetParam("Service"), "Text") & "," & _ ToSQL(GetParam("Function"), "Text") & "," & _ ToSQL(GetParam("Tel1"), "Text") & "," & _ ToSQL(GetParam("Tel2"), "Text") & "," & _ ToSQL(GetParam("Mail1"), "Text") & "," & _ ToSQL(GetParam("Mail2"), "Text") & "," & _ ToSQL(GetParam("Note"), "Text") & _ ")" Response.Write(sqlNewCli) openrs rsNewCli, sqlNewCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if %>

<% MenuGeneral_Show %>

<% If NewContact = 1 then fldTitre = "New Contact - " & NameCli fldFisrtName = "" fldLastName = "" fldService = "" fldFunction = "" fldTel1 = "" fldTel2 = "" fldMail1 = "" fldMail2 = "" fldNote = "" fldHidden = "" fldButtonSend = "" else Set rsCli = Server.CreateObject("ADODB.Recordset") sqlCli = "SELECT * FROM relclicontact WHERE id=" & idContact openrs rsCli, sqlCli While not rsCli.eof fldTitre = "Contact details - " & ToHTML(rsCli("FisrtName")) & " " & ToHTML(rsCli("LastName")) & " (" & NameCli & ")" fldFisrtName = rsCli("FisrtName") fldLastName = rsCli("LastName") fldService = rsCli("Service") fldFunction = rsCli("Function") fldTel1 = rsCli("Tel1") fldTel2 = rsCli("Tel2") fldMail1 = rsCli("Mail1") fldMail2 = rsCli("Mail2") fldNote = rsCli("Note") rsCli.movenext Wend fldHidden = "" fldButtonSend = " " end if '''''''''''''''''''''''''''''''''''' 'Informations générales du contact ' '''''''''''''''''''''''''''''''''''' %>

<%=fldTitre%>

Contact Informations
Last Name	(*)
Fisrt Name
Service
Function
Tel 1
Tel 2
Mail 1
Mail 2
Note	<%=fldNote%>
<%=fldHidden%> <%=fldButtonSend%>