<% IDCli = GetParam("id") NameCli = DLookUp("eb_clients", "FriendName", "id=" & IDCli) NameCli = ToHTML(NameCli) idInstall = GetParam("idInstall") NewInstall = 0 NewInstall = GetParam("NewInstall") %>
Customer Details
<% If GetParam("Action") = "Delete" then Response.Write("
Suppresion
") Set rsDeleteCli = Server.CreateObject("ADODB.recordset") sqlDeleteCli = "delete from relcliinstall where id=" & idInstall openrs rsDeleteCli, sqlDeleteCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) end if If GetParam("Action") = "Update" OR GetParam("Action") = "Insert" then fldDescription = ToSQL(GetParam("Description"), "Text") fldSerialNb = ToSQL(GetParam("SerialNb"), "Text") JourDerniereVisite = GetParam("JourDerniereVisite") MoisDerniereVisite = GetParam("MoisDerniereVisite") AnneeDerniereVisite = GetParam("AnneeDerniereVisite") ChkDerniereVisite = GetParam("ChkDerniereVisite") UpdtDerniereVisite = GetParam("UpdtDerniereVisite") If ChkDerniereVisite = 0 then If UpdtDerniereVisite <> 1 then SQLDerniereVisite = ToSQL("", "Text") else SQLDerniereVisite = ToSQL(AnneeDerniereVisite & "-" & MoisDerniereVisite & "-" & JourDerniereVisite, "Text") end if else SQLDerniereVisite = ToSQL(AnneeDerniereVisite & "-" & MoisDerniereVisite & "-" & JourDerniereVisite, "Text") end if JourLivraison = GetParam("JourLivraison") MoisLivraison = GetParam("MoisLivraison") AnneeLivraison = GetParam("AnneeLivraison") ChkLivraison = GetParam("ChkLivraison") UpdtLivraison = GetParam("UpdtLivraison") If ChkLivraison = 0 then If UpdtLivraison <> 1 then SQLLivraison = ToSQL("", "Text") else SQLLivraison = ToSQL(AnneeLivraison & "-" & MoisLivraison & "-" & JourLivraison, "Text") end if else SQLLivraison = ToSQL(AnneeLivraison & "-" & MoisLivraison & "-" & JourLivraison, "Text") end if JourMiseEnRoute = GetParam("JourMiseEnRoute") MoisMiseEnRoute = GetParam("MoisMiseEnRoute") AnneeMiseEnRoute = GetParam("AnneeMiseEnRoute") ChkMiseEnRoute = GetParam("ChkMiseEnRoute") UpdtMiseEnRoute = GetParam("UpdtMiseEnRoute") If ChkMiseEnRoute = 0 then If UpdtMiseEnRoute <> 1 then SQLMiseEnRoute = ToSQL("", "Text") else SQLMiseEnRoute = ToSQL(AnneeMiseEnRoute & "-" & MoisMiseEnRoute & "-" & JourMiseEnRoute, "Text") end if else SQLMiseEnRoute = ToSQL(AnneeMiseEnRoute & "-" & MoisMiseEnRoute & "-" & JourMiseEnRoute, "Text") end if JourReception = GetParam("JourReception") MoisReception = GetParam("MoisReception") AnneeReception = GetParam("AnneeReception") ChkReception = GetParam("ChkReception") UpdtReception = GetParam("UpdtReception") If ChkReception = 0 then If UpdtReception <> 1 then SQLReception = ToSQL("", "Text") else SQLReception = ToSQL(AnneeReception & "-" & MoisReception & "-" & JourReception, "Text") end if else SQLReception = ToSQL(AnneeReception & "-" & MoisReception & "-" & JourReception, "Text") end if JourFinGarantie = GetParam("JourFinGarantie") MoisFinGarantie = GetParam("MoisFinGarantie") AnneeFinGarantie = GetParam("AnneeFinGarantie") ChkFinGarantie = GetParam("ChkFinGarantie") UpdtFinGarantie = GetParam("UpdtFinGarantie") If ChkFinGarantie = 0 then If UpdtFinGarantie <> 1 then SQLFinGarantie = ToSQL("", "Text") else SQLFinGarantie = ToSQL(AnneeFinGarantie & "-" & MoisFinGarantie & "-" & JourFinGarantie, "Text") end if else SQLFinGarantie = ToSQL(AnneeFinGarantie & "-" & MoisFinGarantie & "-" & JourFinGarantie, "Text") end if idTypeContrat = GetParam("idTypeContrat") fldAccesLocal = ToSQL(GetParam("AccesLocal"), "Text") fldPorteLocal = ToSQL(GetParam("PorteLocal"), "Text") fldVendeurOriginal = ToSQL(GetParam("VendeurOriginal"), "Text") fldVendeurFacturation = ToSQL(GetParam("VendeurFacturation"), "Text") idTypeChargement = GetParam("idTypeChargement") idTypeDB = GetParam("idTypeDB") fldNomServeur = ToSQL(GetParam("NomServeur"), "Text") fldCheminDB = ToSQL(GetParam("CheminDB"), "Text") fldLoginServer = ToSQL(GetParam("LoginServer"), "Text") fldPassServer = ToSQL(GetParam("PassServer"), "Text") end if If GetParam("Action") = "Update" then Response.Write("
Mise à jour
") Set rsUpdateCli = Server.CreateObject("ADODB.Recordset") sqlUpdateCli = "UPDATE relcliinstall set " & _ "Description=" & fldDescription & _ ",SerialNb=" & fldSerialNb & _ ",DerniereVisite=" & SQLDerniereVisite & _ ",Livraison=" & SQLLivraison & _ ",MiseEnRoute=" & SQLMiseEnRoute & _ ",Reception=" & SQLReception & _ ",FinGarantie=" & SQLFinGarantie & _ ",idTypeContrat=" & idTypeContrat & _ ",AccesLocal=" & fldAccesLocal & _ ",PorteLocal=" & fldPorteLocal & _ ",VendeurOriginal=" & fldVendeurOriginal & _ ",VendeurFacturation=" & fldVendeurFacturation & _ ",idTypeChargement=" & idTypeChargement & _ ",idTypeDB=" & idTypeDB & _ ",NomServeur=" & fldNomServeur & _ ",CheminDB=" & fldCheminDB & _ ",LoginServer=" & fldLoginServer & _ ",PassServer=" & fldPassServer & _ " where id=" & idInstall Response.Write(sqlUpdateCli) openrs rsUpdateCli, sqlUpdateCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if If GetParam("Action") = "Insert" then Response.Write("
Nouvelle installation
") Set rsNewCli = Server.CreateObject("ADODB.Recordset") sqlNewCli = "insert into relcliinstall (" & _ "idCli," & _ "Description," & _ "SerialNb," & _ "DerniereVisite," & _ "Livraison," & _ "MiseEnRoute," & _ "Reception," & _ "FinGarantie," & _ "idTypeContrat," & _ "AccesLocal," & _ "PorteLocal," & _ "VendeurOriginal," & _ "VendeurFacturation," & _ "idTypeChargement," & _ "idTypeDB," & _ "NomServeur," & _ "CheminDB," & _ "LoginServer," & _ "PassServer)" & _ " values (" & _ ToSQL(IDCli, "Number") & "," & _ fldDescription & "," & _ fldSerialNb & "," & _ SQLDerniereVisite & "," & _ SQLLivraison & "," & _ SQLMiseEnRoute & "," & _ SQLReception & "," & _ SQLFinGarantie & "," & _ idTypeContrat & "," & _ fldAccesLocal & "," & _ fldPorteLocal & "," & _ fldVendeurOriginal & "," & _ fldVendeurFacturation & "," & _ idTypeChargement & "," & _ idTypeDB & "," & _ fldNomServeur & "," & _ fldCheminDB & "," & _ fldLoginServer & "," & _ fldPassServer & _ ")" Response.Write(sqlNewCli) openrs rsNewCli, sqlNewCli Response.Redirect("eb_clients_details.asp?id=" & IDCli) End if %>
<% MenuGeneral_Show %>
<% If NewInstall = 1 then fldTitre = "New Installation - " & NameCli fldDescription = "" fldSerialNb = "" ChkDerniereVisite = 0 JourDerniereVisite = Day(Date()) MoisDerniereVisite = Month(Date()) AnneeDerniereVisite = Year(Date()) ChkLivraison = 0 JourLivraison = Day(Date()) MoisLivraison = Month(Date()) AnneeLivraison = Year(Date()) ChkMiseEnRoute = 0 JourMiseEnRoute = Day(Date()) MoisMiseEnRoute = Month(Date()) AnneeMiseEnRoute = Year(Date()) ChkReception = 0 JourReception = Day(Date()) MoisReception = Month(Date()) AnneeReception = Year(Date()) ChkFinGarantie = 0 JourFinGarantie = Day(Date()) MoisFinGarantie = Month(Date()) AnneeFinGarantie = Year(Date()) fldidTypeContrat = "" fldAccesLocal = "" fldPorteLocal = "" fldVendeurOriginal = "" fldVendeurFacturation = "" fldidTypeChargement = "" fldidTypeDB = "" fldNomServeur = "" fldCheminDB = "" fldLoginServer = "" fldPassServer = "" fldHidden = "
" fldButtonSend = "
" else Set rsCli = Server.CreateObject("ADODB.Recordset") sqlCli = "SELECT * FROM relcliinstall WHERE id=" & idInstall openrs rsCli, sqlCli While not rsCli.eof fldTitre = "Installation : " & ToHTML(rsCli("Description")) & " (" & NameCli & ")" fldDescription = ToHTML(rsCli("Description")) fldSerialNb = ToHTML(rsCli("SerialNb")) DateDerniereVisite = rsCli("DerniereVisite") If IsNull(DateDerniereVisite) OR DateDerniereVisite = "" then ChkDerniereVisite = 0 JourDerniereVisite = Day(Date()) MoisDerniereVisite = Month(Date()) AnneeDerniereVisite = Year(Date()) else ChkDerniereVisite = 1 JourDerniereVisite = Day(DateDerniereVisite) MoisDerniereVisite = Month(DateDerniereVisite) AnneeDerniereVisite = Year(DateDerniereVisite) End if DateLivraison = rsCli("Livraison") If IsNull(DateLivraison) OR DateLivraison = "" then ChkLivraison = 0 JourLivraison = Day(Date()) MoisLivraison = Month(Date()) AnneeLivraison = Year(Date()) else ChkLivraison = 1 JourLivraison = Day(DateLivraison) MoisLivraison = Month(DateLivraison) AnneeLivraison = Year(DateLivraison) End if DateMiseEnRoute = rsCli("MiseEnRoute") If IsNull(DateMiseEnRoute) OR DateMiseEnRoute = "" then ChkMiseEnRoute = 0 JourMiseEnRoute = Day(Date()) MoisMiseEnRoute = Month(Date()) AnneeMiseEnRoute = Year(Date()) else ChkMiseEnRoute = 1 JourMiseEnRoute = Day(DateMiseEnRoute) MoisMiseEnRoute = Month(DateMiseEnRoute) AnneeMiseEnRoute = Year(DateMiseEnRoute) End if DateReception = rsCli("Reception") If IsNull(DateReception) OR DateReception = "" then ChkReception = 0 JourReception = Day(Date()) MoisReception = Month(Date()) AnneeReception = Year(Date()) else ChkReception = 1 JourReception = Day(DateReception) MoisReception = Month(DateReception) AnneeReception = Year(DateReception) end if DateFinGarantie = rsCli("FinGarantie") If IsNull(DateFinGarantie) OR DateFinGarantie = "" then ChkFinGarantie = 0 JourFinGarantie = Day(Date()) MoisFinGarantie = Month(Date()) AnneeFinGarantie = Year(Date()) else ChkFinGarantie = 1 JourFinGarantie = Day(DateFinGarantie) MoisFinGarantie = Month(DateFinGarantie) AnneeFinGarantie = Year(DateFinGarantie) end if fldidTypeContrat = rsCli("idTypeContrat") fldAccesLocal = ToHTML(rsCli("AccesLocal")) fldPorteLocal = ToHTML(rsCli("PorteLocal")) fldVendeurOriginal = ToHTML(rsCli("VendeurOriginal")) fldVendeurFacturation = ToHTML(rsCli("VendeurFacturation")) fldidTypeChargement = rsCli("idTypeChargement") fldidTypeDB = rsCli("idTypeDB") fldNomServeur = ToHTML(rsCli("NomServeur")) fldCheminDB = ToHTML(rsCli("CheminDB")) fldLoginServer = ToHTML(rsCli("LoginServer")) fldPassServer = ToHTML(rsCli("PassServer")) rsCli.movenext Wend fldHidden = "
" fldButtonSend = "
" '
end if %>
Installation details - <%=NameCli%>
<%=fldTitre%>
Description
Serial Nb
Last Visit
<% For Jour = 1 to 31 If Jour = JourDerniereVisite then Response.Write("
" & Jour & "
") else Response.Write("
" & Jour & "
") end if Next %>
/
<% For Mois = 1 to 12 If Mois = MoisDerniereVisite then Response.Write("
" & Mois & "
") else Response.Write("
" & Mois & "
") end if Next %>
/
<% For Annee = 1963 to 2050 If Annee = AnneeDerniereVisite then Response.Write("
" & Annee & "
") else Response.Write("
" & Annee & "
") end if Next %>
<% If ChkDerniereVisite = 0 then Response.Write("
Add this date ?") End if %>
Delivery
<% For Jour = 1 to 31 If Jour = JourLivraison then Response.Write("
" & Jour & "
") else Response.Write("
" & Jour & "
") end if Next %>
/
<% For Mois = 1 to 12 If Mois = MoisLivraison then Response.Write("
" & Mois & "
") else Response.Write("
" & Mois & "
") end if Next %>
/
<% For Annee = 1963 to 2050 If Annee = AnneeLivraison then Response.Write("
" & Annee & "
") else Response.Write("
" & Annee & "
") end if Next %>
<% If ChkLivraison = 0 then Response.Write("
Add this date ?") End if %>
Startup
<% For Jour = 1 to 31 If Jour = JourMiseEnRoute then Response.Write("
" & Jour & "
") else Response.Write("
" & Jour & "
") end if Next %>
/
<% For Mois = 1 to 12 If Mois = MoisMiseEnRoute then Response.Write("
" & Mois & "
") else Response.Write("
" & Mois & "
") end if Next %>
/
<% For Annee = 1963 to 2050 If Annee = AnneeMiseEnRoute then Response.Write("
" & Annee & "
") else Response.Write("
" & Annee & "
") end if Next %>
<% If ChkMiseEnRoute = 0 then Response.Write("
Add this date ?") End if %>
Reception
<% For Jour = 1 to 31 If Jour = JourReception then Response.Write("
" & Jour & "
") else Response.Write("
" & Jour & "
") end if Next %>
/
<% For Mois = 1 to 12 If Mois = MoisReception then Response.Write("
" & Mois & "
") else Response.Write("
" & Mois & "
") end if Next %>
/
<% For Annee = 1963 to 2050 If Annee = AnneeReception then Response.Write("
" & Annee & "
") else Response.Write("
" & Annee & "
") end if Next %>
<% If ChkReception = 0 then Response.Write("
Add this date ?") End if %>
End Warranty
<% For Jour = 1 to 31 If Jour = JourFinGarantie then Response.Write("
" & Jour & "
") else Response.Write("
" & Jour & "
") end if Next %>
/
<% For Mois = 1 to 12 If Mois = MoisFinGarantie then Response.Write("
" & Mois & "
") else Response.Write("
" & Mois & "
") end if Next %>
/
<% For Annee = 1963 to 2050 If Annee = AnneeFinGarantie then Response.Write("
" & Annee & "
") else Response.Write("
" & Annee & "
") end if Next %>
<% If ChkFinGarantie = 0 then Response.Write("
Add this date ?") End if %>
Contract
<% Set rsTypeContrat = Server.CreateObject("ADODB.Recordset") sqlTypeContrat = "SELECT * FROM typeContrat ORDER BY Name" openrs rsTypeContrat, sqlTypeContrat While not rsTypeContrat.eof if cstr(fldidTypeContrat) = cstr(rsTypeContrat("id")) then response.write ("
" & ToHTML(rsTypeContrat("Name")) & "
") else response.write ("
" & ToHTML(rsTypeContrat("Name")) & "
") end if rsTypeContrat.movenext Wend Set rsTypeContrat = nothing %>
Local access
Key
Reseller
Invoicing
Loading
<% Set rsTypeChargement = Server.CreateObject("ADODB.Recordset") sqlTypeChargement = "SELECT * FROM typeChargement ORDER BY Name" openrs rsTypeChargement, sqlTypeChargement While not rsTypeChargement.eof if cstr(fldidTypeChargement) = cstr(rsTypeChargement("id")) then response.write ("
" & ToHTML(rsTypeChargement("Name")) & "
") else response.write ("
" & ToHTML(rsTypeChargement("Name")) & "
") end if rsTypeChargement.movenext Wend Set rsTypeChargement = nothing %>
DB
<% Set rsTypeDB = Server.CreateObject("ADODB.Recordset") sqlTypeDB = "SELECT * FROM typeDB ORDER BY Name" openrs rsTypeDB, sqlTypeDB While not rsTypeDB.eof if cstr(fldidTypeDB) = cstr(rsTypeDB("id")) then response.write ("
" & ToHTML(rsTypeDB("Name")) & "
") else response.write ("
" & ToHTML(rsTypeDB("Name")) & "
") end if rsTypeDB.movenext Wend Set rsTypeDB = nothing %>
Server
Map DB
Login DB
Pass DB
<%=fldHidden%>
<%=fldButtonSend%>