<% NewClient = 0 NewClient = GetParam("NewClient") If NewClient = 0 then IDCli = GetParam("id") jsBack = "eb_clients_details.asp?id=" & IDCli else jsBack = "eb_clients.asp" end if bPassed = 0 If GetParam("Action") = "Delete" then Response.Write("

Suppresion

") Set rsDeleteCli = Server.CreateObject("ADODB.recordset") sqlDeleteCli = "delete from eb_clients where id=" & IDCli openrs rsDeleteCli, sqlDeleteCli Response.Redirect("eb_clients.asp") end if If GetParam("Action") = "Insert" then fldFriendName = GetParam("FriendName") bPassed = CLng(DLookUp("eb_clients", "count(*)", "FriendName='" & fldFriendName & "'")) If bPassed > 0 then ErrorMess = "le friend name choisi est déjà dans le système (" & fldFriendName & ")" NewClient = 1 jsBack = "eb_clients.asp" else Response.Write("

Nouveau contact

") Set rsNewCli = Server.CreateObject("ADODB.Recordset") sqlNewCli = "insert into eb_clients (" & _ "Name," & _ "FriendName," & _ "Street," & _ "City," & _ "PostCode," & _ "Country," & _ "TelGeneral," & _ "idTypeClient)" & _ " values (" & _ ToSQL(GetParam("Name"), "Text") & "," & _ ToSQL(fldFriendName, "Text") & "," & _ ToSQL(GetParam("Street"), "Text") & "," & _ ToSQL(GetParam("City"), "Text") & "," & _ ToSQL(GetParam("PostCode"), "Text") & "," & _ ToSQL(GetParam("Country"), "Text") & "," & _ ToSQL(GetParam("TelGeneral"), "Text") & "," & _ ToSQL(GetParam("idTypeClient"), "Number") & _ ")" Response.Write(sqlNewCli) openrs rsNewCli, sqlNewCli IDCli = DLookUp("eb_clients", "id", "FriendName='" & fldFriendName & "'") Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if End if If GetParam("Action") = "Update" then 'Response.Write("

Mise à jour

") Set rsUpdateCli = Server.CreateObject("ADODB.Recordset") sqlUpdateCli = "UPDATE eb_clients set " & _ "Name=" & ToSQL(GetParam("Name"), "Text") & _ ",FriendName=" & ToSQL(GetParam("FriendName"), "Text") & _ ",Street=" & ToSQL(GetParam("Street"), "Text") & _ ",City=" & ToSQL(GetParam("City"), "Text") & _ ",PostCode=" & ToSQL(GetParam("PostCode"), "Text") & _ ",Country=" & ToSQL(GetParam("Country"), "Text") & _ ",TelGeneral=" & ToSQL(GetParam("TelGeneral"), "Text") & _ ",idTypeClient=" & ToSQL(GetParam("idTypeClient"), "Number")& _ " where id=" & IDCli Response.Write(sqlUpdateCli) openrs rsUpdateCli, sqlUpdateCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if %> Customer Details

<% MenuGeneral_Show %>

<% If NewClient = 1 then fldTitre = "New Customer" fldFriendName = "" fldName = "" fldStreet = "" fldCity = "" fldPostCode = "" fldCountry = "" fldTelGeneral = "" fldidTypeClient = "" fldHidden = "" fldButtonSend = "" else Set rsCli = Server.CreateObject("ADODB.Recordset") sqlCli = "SELECT * FROM eb_clients WHERE id=" & IDCli openrs rsCli, sqlCli While not rsCli.eof fldTitre = "Customer details - " & ToHTML(rsCli("FriendName")) fldFriendName = rsCli("FriendName") fldName = rsCli("Name") fldStreet = rsCli("Street") fldCity = rsCli("City") fldPostCode = rsCli("PostCode") fldCountry = rsCli("Country") fldTelGeneral = rsCli("TelGeneral") fldidTypeClient = rsCli("idTypeClient") rsCli.movenext Wend fldHidden = "" fldButtonSend = "" ' end if ''''''''''''''''''''''''''''''''''' 'Informations générales du client ' ''''''''''''''''''''''''''''''''''' %>

<%=fldTitre%>

<% If bPassed > 0 then %> <% End if %>

General Informations
<%=ErrorMess%>
Friend Name	(*)
Name
Street
City
CP
Country
Phone
Type
<%=fldHidden%> <%=fldButtonSend%>