<% MenuGeneral_Show %>
<% IDCli = Request.QueryString("id") Set rsCli = Server.CreateObject("ADODB.Recordset") sqlCli = "SELECT * FROM eb_clients LEFT JOIN StatutsGarantie as sg on eb_clients.idGarantie=sg.idGarantie WHERE id=" & IDCli openrs rsCli, sqlCli If rsCli.eof then Response.Write("Client pas trouvé!") else Response.Write("") While not rsCli.eof ''''''''''''''''''''''''''''''''''' 'Informations générales du client ' ''''''''''''''''''''''''''''''''''' Response.Write("") '''''''''''''''''''''''''''' ' Liste contacts du client ' '''''''''''''''''''''''''''' Set rsCliContact = Server.CreateObject("ADODB.Recordset") sqlCliContact = "SELECT * FROM relclicontact WHERE idCli=" & IDCli & " ORDER BY Service, Function, LastName" openrs rsCliContact, sqlCliContact If rsCliContact.eof then Response.Write("") else Response.Write("") Response.Write("") end if ''''''''''''''''''''''''''''''''' ' Liste installations du client ' ''''''''''''''''''''''''''''''''' Set rsCliInstall = Server.CreateObject("ADODB.Recordset") sqlCliInstall = "SELECT * FROM relcliinstall WHERE idCli = " & IDCli & " ORDER BY Description" openrs rsCliInstall, sqlCliInstall If rsCliInstall.eof then Response.Write("") else Response.Write("") end if rsCli.movenext wend Response.Write("
") Response.Write("

Customer details - " & ToHTML(rsCli("FriendName")) & " - " & rsCli("StautGarantie") & "

") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") idTypeClient = DLookUp("typeclient", "Name", "id=" & rsCli("idTypeClient")) Response.Write("") Response.Write("") Response.Write("

General Informations

EditNameStreetCityCPCountryPhoneType
" & ToHTML(rsCli("Name")) & " " & ToHTML(rsCli("Street")) & " " & ToHTML(rsCli("City")) & " " & ToHTML(rsCli("PostCode")) & " " & ToHTML(rsCli("Country")) & " " & ToHTML(rsCli("TelGeneral")) & " " & ToHTML(idTypeClient) & " 
") Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

No contact registered for this customer   

Last NameFisrt NameServiceFunctionTel 1Tel 2Mail 1Mail 2Notes
         
") Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") While not rsCliContact.eof Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rsCliContact.movenext Wend Response.Write("

Contacts

EditLast NameFisrt NameServiceFunctionTel 1Tel 2Mail 1Mail 2Notes
" & ToHTML(rsClicontact("LastName")) & " " & ToHTML(rsClicontact("FisrtName")) & " " & ToHTML(rsClicontact("Service")) & " " & ToHTML(rsClicontact("Function")) & " " & ToHTML(rsClicontact("Tel1")) & " " & ToHTML(rsClicontact("Tel2")) & " " & rsClicontact("Mail1") & " " & rsClicontact("Mail2") & " " & ToHTML(rsClicontact("Note")) & " 
") Response.Write("
 
") Response.Write("

No installation registered for this customer   

") Response.Write("
") Response.Write("") Response.Write("") ChangeColor = 0 While not rsCliInstall.eof ChangeColor = ChangeColor + 1 ColorInstall = DLookUp("colorlist", "Hexa", "id=" & ChangeColor) SizeTitle = "100px" Response.Write("") Response.Write("") Response.Write("") rsCliInstall.movenext Wend Response.Write("

Installations

") Response.Write("") Response.Write("") Set rsCountConv = Server.CreateObject("ADODB.Recordset") sqlCountConv = "SELECT * FROM relcliinstallconv WHERE idCli=" & IDCli & " AND idInst=" & rsCliInstall("id") & " ORDER BY numB2K" CountConv = 0 ListConv = "" openrs rsCountConv, sqlCountConv While not rsCountConv.eof CountConv = CountConv + 1 ListConv = ListConv & rsCountConv("numB2K") & " " rsCountConv.movenext Wend rsCountConv.close set rsCountConv = nothing If CountConv <> 0 then Response.Write("") End if Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") idTypeContrat = DLookUp("typecontrat", "Name", "id=" & rsCliInstall("idTypeContrat")) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") idTypeChargement = DLookUp("typechargement", "Name", "id=" & rsCliInstall("idTypeChargement")) Response.Write("") idTypeDB = DLookUp("typedb", "Name", "id=" & rsCliInstall("idTypeDB")) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

     " & ToHTML(rsCliInstall("Description")) & " 

Conveyors:" & ListConv & "   
Serial Nb:" & ToHTML(rsCliInstall("SerialNb")) & " 
Last Visit:" & ToHTML(rsCliInstall("DerniereVisite")) & " 
Delivery:" & ToHTML(rsCliInstall("Livraison")) & " 
Startup:" & ToHTML(rsCliInstall("MiseEnRoute")) & " 
Reception:" & ToHTML(rsCliInstall("Reception")) & " 
End Warranty:" & ToHTML(rsCliInstall("FinGarantie")) & " 
Contract:" & ToHTML(idTypeContrat) & " 
Local access:" & ToHTML(rsCliInstall("AccesLocal")) & " 
Key:" & ToHTML(rsCliInstall("PorteLocal")) & " 
Reseller:" & ToHTML(rsCliInstall("VendeurOriginal")) & " 
Invoicing:" & ToHTML(rsCliInstall("VendeurFacturation")) & " 
Loading:" & ToHTML(idTypeChargement) & " 
DB:" & ToHTML(idTypeDB) & " 
Server:" & ToHTML(rsCliInstall("NomServeur")) & " 
Map DB:" & ToHTML(rsCliInstall("CheminDB")) & " 
Login DB:" & ToHTML(rsCliInstall("LoginServer")) & " 
Pass DB:" & ToHTML(rsCliInstall("PassServer")) & " 
") Response.Write("		") Response.Write("") '''''''''''''''''''''''' ' Détails installation ' '''''''''''''''''''''''' Set rsCliInstallConv = Server.CreateObject("ADODB.Recordset") sqlCliInstallConv = "SELECT * FROM relcliinstallconv WHERE idCli=" & IDCli & " AND idInst=" & rsCliInstall("id") openrs rsCliInstallConv, sqlCliInstallConv If rsCliInstallConv.eof then Response.Write("") else While not rsCliInstallConv.eof SizeTitle2 = "70px" Response.Write("") idTypeConv = DLookUp("typeconv", "Name", "id=" & rsCliInstallConv("idTypeConv")) Response.Write("") idVoltage = DLookUp("typevoltage", "Name", "id=" & rsCliInstallConv("idVoltage")) Response.Write("") Response.Write("") Response.Write("") Response.Write("") dymo = DLookUp("reponsequestion", "Name", "id=" & rsCliInstallConv("dymo")) Response.Write("") idTypeRuban = DLookUp("typeruban", "Name", "id=" & rsCliInstallConv("idTypeRuban")) Response.Write("") ouvertureRail = DLookUp("reponsequestion", "Name", "id=" & rsCliInstallConv("ouvertureRail")) Response.Write("") idFT1 = DLookUp("typecomptage", "Name", "id=" & rsCliInstallConv("idFT1")) Response.Write("") idFT2 = DLookUp("typecomptage", "Name", "id=" & rsCliInstallConv("idFT2")) Response.Write("") Response.Write("") Response.Write("") rsCliInstallConv.movenext Wend end if Response.Write("
") Response.Write("

No conveyor registered for this install   

") Response.Write("

     Conveyor " & ToHTML(rsCliInstallConv("numB2K")) & " 

Type:" & ToHTML(idTypeConv) & " 
Power:" & ToHTML(idVoltage) & " 
Disj. Value:" & ToHTML(rsCliInstallConv("disjoncteurValeur")) & " 
Disj. Num.:" & ToHTML(rsCliInstallConv("disjoncteurNum")) & " 
Disj. Loc.:" & ToHTML(rsCliInstallConv("disjoncteurSituation")) & " 
Dymo:" & ToHTML(dymo) & " 
Ribbon:" & ToHTML(idTypeRuban) & " 
Rail open:" & ToHTML(ouvertureRail) & " 
FT 1:" & ToHTML(idFT1) & " 
FT 2:" & ToHTML(idFT2) & " 
Note:" & ToHTML(rsCliInstallConv("note")) & " 
 
") Response.Write("
 
") Response.Write("
") end if %>