<% ' ' Filename: relcliinstall.asp ' Generated with CodeCharge 2.0.5 ' ASP 2.0.ccp build 01/22/2002 ' '------------------------------- ' relcliinstall CustomIncludes begin %> <% ' relcliinstall CustomIncludes end '------------------------------- '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "relcliinstall.asp" '=============================== '=============================== ' relcliinstall PageSecurity begin CheckSecurity(1) ' relcliinstall PageSecurity end '=============================== '=============================== ' relcliinstall Open Event start ' relcliinstall Open Event end '=============================== '=============================== ' relcliinstall OpenAnyPage Event start ' relcliinstall OpenAnyPage Event end '=============================== '=============================== ' Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' relcliinstall Show begin '=============================== ' Page execution '------------------------------- 'Initialize error variables '------------------------------- srelcliinstall1Err = "" '------------------------------- ' Select the FormAction '------------------------------- Select Case sForm Case "relcliinstall1" relcliinstall1Action(sAction) end select '=============================== '=============================== ' HTML Page layout '------------------------------- %>

<% MenuGeneral2_Show %>

<% MenuGeneral_Show %>

<% relcliinstall_Show %>

<% relcliinstall1_Show %>

<% ' relcliinstall Show end ' relcliinstall Close Event start ' relcliinstall Close Event end '------------------------------- ' Destroy connection object '------------------------------- cn.close Set cn = nothing '=============================== '******************************************************************************** '=============================== ' Display Grid Form '------------------------------- Sub relcliinstall_Show() '------------------------------- ' Initialize variables '------------------------------- Dim rs Dim sWhere : sWhere = "" Dim sOrder : sOrder = "" Dim sSQL : sSQL = "" Dim sFormTitle: sFormTitle = "Installations" Dim HasParam : HasParam = false Dim bReq : bReq = true Dim iSort : iSort = "" Dim iSorted : iSorted = "" Dim sDirection : sDirection = "" Dim form_sorting : form_sorting = "" Dim sSortParams : sSortParams = "" Dim form_action : form_action = "" Dim iRecordsPerPage : iRecordsPerPage = 20 Dim iCounter : iCounter = 0 Dim iPage : iPage = 0 Dim bEof : bEof = False Dim sActionFileName : sActionFileName = "relcliinstall.asp" Dim transit_params : transit_params = "idCli=" & ToURL(GetParam("idCli")) & "&" Dim form_params : form_params = "idCli=" & ToURL(GetParam("idCli")) & "&" '------------------------------- ' Build ORDER BY statement '------------------------------- sOrder = " order by r.Description Asc" iSort = GetParam("Formrelcliinstall_Sorting") iSorted = GetParam("Formrelcliinstall_Sorted") sDirection = "" if IsEmpty(iSort) then form_sorting = "" else if iSort = iSorted then form_sorting = "" sDirection = " DESC" sSortParams = "Formrelcliinstall_Sorting=" & iSort & "&Formrelcliinstall_Sorted=" & iSort & "&" else form_sorting = iSort sDirection = " ASC" sSortParams = "Formrelcliinstall_Sorting=" & iSort & "&Formrelcliinstall_Sorted=" & "&" end if if iSort = 1 then sOrder = " order by r.Description" & sDirection if iSort = 2 then sOrder = " order by r.SerialNb" & sDirection if iSort = 3 then sOrder = " order by r.Livraison" & sDirection if iSort = 4 then sOrder = " order by r.MiseEnRoute" & sDirection if iSort = 5 then sOrder = " order by r.Reception" & sDirection if iSort = 6 then sOrder = " order by r.FinGarantie" & sDirection if iSort = 7 then sOrder = " order by t.Name" & sDirection if iSort = 8 then sOrder = " order by r.AccesLocal" & sDirection if iSort = 9 then sOrder = " order by r.PorteLocal" & sDirection if iSort = 10 then sOrder = " order by t1.Name" & sDirection if iSort = 11 then sOrder = " order by t2.Name" & sDirection if iSort = 12 then sOrder = " order by r.NomServeur" & sDirection if iSort = 13 then sOrder = " order by r.CheminDB" & sDirection if iSort = 14 then sOrder = " order by r.LoginServer" & sDirection if iSort = 15 then sOrder = " order by r.PassServer" & sDirection if iSort = 16 then sOrder = " order by r.DerniereVisite" & sDirection if iSort = 17 then sOrder = " order by r.VendeurOriginal" & sDirection if iSort = 18 then sOrder = " order by r.VendeurFacturation" & sDirection end if '------------------------------- ' HTML column headers '------------------------------- %> <% '------------------------------- ' Build WHERE statement '------------------------------- pidCli = GetParam("idCli") if IsNumeric(pidCli) and not isEmpty(pidCli) then pidCli = ToSQL(pidCli, "Number") else pidCli = Empty if not isEmpty(pidCli) then HasParam = true sWhere = sWhere & "r.idCli=" & pidCli else bReq = false end if if HasParam then sWhere = " AND (" & sWhere & ")" end if '------------------------------- ' Build base SQL statement '------------------------------- sSQL = "select r.AccesLocal as r_AccesLocal, " & _ "r.CheminDB as r_CheminDB, " & _ "r.DerniereVisite as r_DerniereVisite, " & _ "r.Description as r_Description, " & _ "r.FinGarantie as r_FinGarantie, " & _ "r.Livraison as r_Livraison, " & _ "r.LoginServer as r_LoginServer, " & _ "r.MiseEnRoute as r_MiseEnRoute, " & _ "r.NomServeur as r_NomServeur, " & _ "r.PassServer as r_PassServer, " & _ "r.PorteLocal as r_PorteLocal, " & _ "r.Reception as r_Reception, " & _ "r.SerialNb as r_SerialNb, " & _ "r.VendeurFacturation as r_VendeurFacturation, " & _ "r.VendeurOriginal as r_VendeurOriginal, " & _ "r.id as r_id, " & _ "r.idCli as r_idCli, " & _ "r.idTypeChargement as r_idTypeChargement, " & _ "r.idTypeContrat as r_idTypeContrat, " & _ "r.idTypeDB as r_idTypeDB, " & _ "t.id as t_id, " & _ "t.Name as t_Name, " & _ "t1.id as t1_id, " & _ "t1.Name as t1_Name, " & _ "t2.id as t2_id, " & _ "t2.Name as t2_Name " & _ " from relcliinstall r, typecontrat t, typechargement t1, typedb t2" & _ " where t.id=r.idTypeContrat and t1.id=r.idTypeChargement and t2.id=r.idTypeDB " '------------------------------- '------------------------------- ' relcliinstall Open Event start ' relcliinstall Open Event end '------------------------------- '------------------------------- ' Assemble full SQL statement '------------------------------- sSQL = sSQL & sWhere & sOrder '------------------------------- '------------------------------- ' Process the link to the record page '------------------------------- form_action = sActionFileName '------------------------------- '------------------------------- ' Process if form has all required parameter '------------------------------- if not bReq then %>

<%=sFormTitle%>

Description

Convoyeurs

Sale

SerialNb

Livraison

MiseEnRoute

Reception

FinGarantie

TypeContrat

AccesLocal

PorteLocal

TypeChargement

TypeDB

NomServeur

CheminDB

LoginServer

PassServer

DerniereVisite

VendeurOriginal

VendeurFacturation

No records

<% exit sub end if '------------------------------- '------------------------------- ' Open the recordset '------------------------------- openrs rs, sSQL '------------------------------- '------------------------------- ' Process empty recordset '------------------------------- if rs.eof then %> No records <% end if '------------------------------- '------------------------------- 'Initialize page counter and records per page '------------------------------- iRecordsPerPage = 20 iCounter = 0 '------------------------------- ' Process page scroller '------------------------------- iPage = GetParam("Formrelcliinstall_Page") if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage) while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage rs.movenext iCounter = iCounter + 1 wend iCounter = 0 '------------------------------- '------------------------------- ' Display grid based on recordset '------------------------------- while not rs.EOF and iCounter < iRecordsPerPage '------------------------------- ' Create field variables based on database fields '------------------------------- fldField2_URLLink = "relcliinstallconv.asp" fldField2_idInst = GetValue(rs, "r_id") fldField1_URLLink = "relcliinstallsale.asp" fldField1_idInst = GetValue(rs, "r_id") fldAccesLocal = GetValue(rs, "r_AccesLocal") fldCheminDB = GetValue(rs, "r_CheminDB") fldDerniereVisite = GetValue(rs, "r_DerniereVisite") fldDescription_URLLink = "relcliinstall.asp" fldDescription_id = GetValue(rs, "r_id") fldDescription = GetValue(rs, "r_Description") fldFinGarantie = GetValue(rs, "r_FinGarantie") fldid = GetValue(rs, "r_id") fldidCli = GetValue(rs, "r_idCli") fldidTypeChargement = GetValue(rs, "t1_Name") fldidTypeContrat = GetValue(rs, "t_Name") fldidTypeDB = GetValue(rs, "t2_Name") fldLivraison = GetValue(rs, "r_Livraison") fldLoginServer = GetValue(rs, "r_LoginServer") fldMiseEnRoute = GetValue(rs, "r_MiseEnRoute") fldNomServeur = GetValue(rs, "r_NomServeur") fldPassServer = GetValue(rs, "r_PassServer") fldPorteLocal = GetValue(rs, "r_PorteLocal") fldReception = GetValue(rs, "r_Reception") fldSerialNb = GetValue(rs, "r_SerialNb") fldVendeurFacturation = GetValue(rs, "r_VendeurFacturation") fldVendeurOriginal = GetValue(rs, "r_VendeurOriginal") fldField2= "Convoyeurs" fldField1= "Sale" '------------------------------- ' relcliinstall Show begin '------------------------------- '------------------------------- ' relcliinstall Show Event start ' relcliinstall Show Event end '------------------------------- '------------------------------- ' Process the HTML controls '------------------------------- %> <%=fldDescription%>  <%=fldField2%>  <%=fldField1%>  <%=ToHTML(fldSerialNb)%>  <%=ToHTML(fldLivraison)%>  <%=ToHTML(fldMiseEnRoute)%>  <%=ToHTML(fldReception)%>  <%=ToHTML(fldFinGarantie)%>  <%=ToHTML(fldidTypeContrat)%>  <%=ToHTML(fldAccesLocal)%>  <%=ToHTML(fldPorteLocal)%>  <%=ToHTML(fldidTypeChargement)%>  <%=ToHTML(fldidTypeDB)%>  <%=ToHTML(fldNomServeur)%>  <%=ToHTML(fldCheminDB)%>  <%=ToHTML(fldLoginServer)%>  <%=ToHTML(fldPassServer)%>  <%=ToHTML(fldDerniereVisite)%>  <%=ToHTML(fldVendeurOriginal)%>  <%=ToHTML(fldVendeurFacturation)%>  <% '------------------------------- ' relcliinstall Show end '------------------------------- '------------------------------- ' Move to the next record and increase record counter '------------------------------- rs.MoveNext iCounter = iCounter + 1 wend '------------------------------- '------------------------------- ' Process the bottom on the Grid. The insert link and record navigator. '------------------------------- %> Insert       <% '------------------------------- ' relcliinstall Navigation begin '------------------------------- bEof = rs.eof if not(rs.EOF and iPage=1) then if iPage = 1 then %> Previous <% else %> Previous <% end if response.write " [ " & iPage & " ] " if bEof then %> Next <% else %> Next <% end if end if '------------------------------- ' relcliinstall Navigation end '------------------------------- '------------------------------- ' Finish form processing '------------------------------- set rs = nothing %> <% '------------------------------- ' relcliinstall Close Event start ' relcliinstall Close Event end '------------------------------- end sub '=============================== '=============================== ' Action of the Record Form '------------------------------- Sub relcliinstall1Action(sAction) '------------------------------- ' Initialize variables '------------------------------- Dim bExecSQL: bExecSQL = true Dim sActionFileName : sActionFileName = "" Dim sParams : sParams = "?" Dim sWhere : sWhere = "" Dim bErr : bErr = False Dim pPKid : pPKid = "" Dim fldDescription : fldDescription = "" Dim fldSerialNb : fldSerialNb = "" Dim fldLivraison : fldLivraison = "" Dim fldMiseEnRoute : fldMiseEnRoute = "" Dim fldReception : fldReception = "" Dim fldFinGarantie : fldFinGarantie = "" Dim fldidTypeContrat : fldidTypeContrat = "" Dim fldAccesLocal : fldAccesLocal = "" Dim fldPorteLocal : fldPorteLocal = "" Dim fldidTypeChargement : fldidTypeChargement = "" Dim fldidTypeDB : fldidTypeDB = "" Dim fldNomServeur : fldNomServeur = "" Dim fldCheminDB : fldCheminDB = "" Dim fldLoginServer : fldLoginServer = "" Dim fldPassServer : fldPassServer = "" Dim fldDerniereVisite : fldDerniereVisite = "" Dim fldVendeurOriginal : fldVendeurOriginal = "" Dim fldVendeurFacturation : fldVendeurFacturation = "" '------------------------------- '------------------------------- ' relcliinstall1 Action begin '------------------------------- sActionFileName = "relcliinstall.asp" sParams = sParams & "idCli=" & ToURL(GetParam("Trn_idCli")) '------------------------------- ' CANCEL action '------------------------------- if sAction = "cancel" then '------------------------------- ' relcliinstall1 BeforeCancel Event start ' relcliinstall1 BeforeCancel Event end '------------------------------- cn.Close Set cn = Nothing response.redirect sActionFileName & sParams end if '------------------------------- '------------------------------- ' Build WHERE statement '------------------------------- if sAction = "update" or sAction = "delete" then pPKid = GetParam("PK_id") if IsEmpty(pPKid) then exit sub sWhere = "id=" & ToSQL(pPKid, "Number") end if '------------------------------- '------------------------------- ' Load all form fields into variables '------------------------------- fldidCli = GetParam("Rqd_idCli") fldDescription = GetParam("Description") fldSerialNb = GetParam("SerialNb") fldLivraison = GetParam("Livraison") fldMiseEnRoute = GetParam("MiseEnRoute") fldReception = GetParam("Reception") fldFinGarantie = GetParam("FinGarantie") fldidTypeContrat = GetParam("idTypeContrat") fldAccesLocal = GetParam("AccesLocal") fldPorteLocal = GetParam("PorteLocal") fldidTypeChargement = GetParam("idTypeChargement") fldidTypeDB = GetParam("idTypeDB") fldNomServeur = GetParam("NomServeur") fldCheminDB = GetParam("CheminDB") fldLoginServer = GetParam("LoginServer") fldPassServer = GetParam("PassServer") fldDerniereVisite = GetParam("DerniereVisite") fldVendeurOriginal = GetParam("VendeurOriginal") fldVendeurFacturation = GetParam("VendeurFacturation") '------------------------------- ' Validate fields '------------------------------- if sAction = "insert" or sAction = "update" then if IsEmpty(fldidTypeContrat) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeContrat is required.
" end if if IsEmpty(fldidTypeChargement) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeChargement is required.
" end if if IsEmpty(fldidTypeDB) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeDB is required.
" end if if not isNumeric(fldidTypeContrat) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeContrat is incorrect.
" end if if not isNumeric(fldidTypeChargement) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeChargement is incorrect.
" end if if not isNumeric(fldidTypeDB) then srelcliinstall1Err = srelcliinstall1Err & "The value in field TypeDB is incorrect.
" end if '------------------------------- ' relcliinstall1 Check Event start ' relcliinstall1 Check Event end '------------------------------- If len(srelcliinstall1Err) > 0 then exit sub end if end if '------------------------------- '------------------------------- ' Create SQL statement '------------------------------- select case sAction case "insert" '------------------------------- ' relcliinstall1 Insert Event start ' relcliinstall1 Insert Event end '------------------------------- sSQL = "insert into relcliinstall (" & _ "idCli," & _ "Description," & _ "SerialNb," & _ "Livraison," & _ "MiseEnRoute," & _ "Reception," & _ "FinGarantie," & _ "idTypeContrat," & _ "AccesLocal," & _ "PorteLocal," & _ "idTypeChargement," & _ "idTypeDB," & _ "NomServeur," & _ "CheminDB," & _ "LoginServer," & _ "PassServer," & _ "DerniereVisite," & _ "VendeurOriginal," & _ "VendeurFacturation)" & _ " values (" & _ ToSQL(fldidCli, "Number") & "," & _ ToSQL(fldDescription, "Text") & "," & _ ToSQL(fldSerialNb, "Text") & "," & _ ToSQL(fldLivraison, "Date") & "," & _ ToSQL(fldMiseEnRoute, "Date") & "," & _ ToSQL(fldReception, "Date") & "," & _ ToSQL(fldFinGarantie, "Date") & "," & _ ToSQL(fldidTypeContrat, "Number") & "," & _ ToSQL(fldAccesLocal, "Text") & "," & _ ToSQL(fldPorteLocal, "Text") & "," & _ ToSQL(fldidTypeChargement, "Number") & "," & _ ToSQL(fldidTypeDB, "Number") & "," & _ ToSQL(fldNomServeur, "Text") & "," & _ ToSQL(fldCheminDB, "Text") & "," & _ ToSQL(fldLoginServer, "Text") & "," & _ ToSQL(fldPassServer, "Text") & "," & _ ToSQL(fldDerniereVisite, "Date") & "," & _ ToSQL(fldVendeurOriginal, "Text") & "," & _ ToSQL(fldVendeurFacturation, "Text") & _ ")" case "update" '------------------------------- ' relcliinstall1 Update Event start ' relcliinstall1 Update Event end '------------------------------- sSQL = "update relcliinstall set " & _ "Description=" & ToSQL(fldDescription, "Text") & _ ",SerialNb=" & ToSQL(fldSerialNb, "Text") & _ ",Livraison=" & ToSQL(fldLivraison, "Date") & _ ",MiseEnRoute=" & ToSQL(fldMiseEnRoute, "Date") & _ ",Reception=" & ToSQL(fldReception, "Date") & _ ",FinGarantie=" & ToSQL(fldFinGarantie, "Date") & _ ",idTypeContrat=" & ToSQL(fldidTypeContrat, "Number") & _ ",AccesLocal=" & ToSQL(fldAccesLocal, "Text") & _ ",PorteLocal=" & ToSQL(fldPorteLocal, "Text") & _ ",idTypeChargement=" & ToSQL(fldidTypeChargement, "Number") & _ ",idTypeDB=" & ToSQL(fldidTypeDB, "Number") & _ ",NomServeur=" & ToSQL(fldNomServeur, "Text") & _ ",CheminDB=" & ToSQL(fldCheminDB, "Text") & _ ",LoginServer=" & ToSQL(fldLoginServer, "Text") & _ ",PassServer=" & ToSQL(fldPassServer, "Text") & _ ",DerniereVisite=" & ToSQL(fldDerniereVisite, "Date") & _ ",VendeurOriginal=" & ToSQL(fldVendeurOriginal, "Text") & _ ",VendeurFacturation=" & ToSQL(fldVendeurFacturation, "Text") sSQL = sSQL & " where " & sWhere case "delete" '------------------------------- ' relcliinstall1 Delete Event start ' relcliinstall1 Delete Event end '------------------------------- sSQL = "delete from relcliinstall where " & sWhere end select '------------------------------- '------------------------------- ' relcliinstall1 BeforeExecute Event start ' relcliinstall1 BeforeExecute Event end '------------------------------- '------------------------------- ' Execute SQL statement '------------------------------- if len(srelcliinstall1Err) > 0 then Exit Sub on error resume next if bExecSQL then cn.execute sSQL end if srelcliinstall1Err = ProcessError on error goto 0 if len(srelcliinstall1Err) > 0 then Exit Sub cn.Close Set cn = Nothing response.redirect sActionFileName & sParams '------------------------------- ' relcliinstall1 Action end '------------------------------- end sub '=============================== '=============================== ' Display Record Form '------------------------------- Sub relcliinstall1_Show() '------------------------------- ' relcliinstall1 Show begin '------------------------------- sWhere = "" Dim sFormTitle: sFormTitle = "Insert / Modify" bPK = true %> <% if not (srelcliinstall1Err = "") then %> <% end if %> <% '------------------------------- ' Load primary key and form parameters '------------------------------- if srelcliinstall1Err = "" then fldid = GetParam("id") fldidCli = GetParam("idCli") Trn_idCli = GetParam("idCli") Rqd_idCli = GetParam("idCli") pid = GetParam("id") else fldid = GetParam("id") fldDescription = GetParam("Description") fldSerialNb = GetParam("SerialNb") fldLivraison = GetParam("Livraison") fldMiseEnRoute = GetParam("MiseEnRoute") fldReception = GetParam("Reception") fldFinGarantie = GetParam("FinGarantie") fldidTypeContrat = GetParam("idTypeContrat") fldAccesLocal = GetParam("AccesLocal") fldPorteLocal = GetParam("PorteLocal") fldidTypeChargement = GetParam("idTypeChargement") fldidTypeDB = GetParam("idTypeDB") fldNomServeur = GetParam("NomServeur") fldCheminDB = GetParam("CheminDB") fldLoginServer = GetParam("LoginServer") fldPassServer = GetParam("PassServer") fldDerniereVisite = GetParam("DerniereVisite") fldVendeurOriginal = GetParam("VendeurOriginal") fldVendeurFacturation = GetParam("VendeurFacturation") Rqd_idCli = GetParam("Rqd_idCli") fldidCli = GetParam("Trn_idCli") Trn_idCli = GetParam("Trn_idCli") pid = GetParam("PK_id") end if '------------------------------- ' Load all form fields '------------------------------- '------------------------------- ' Build WHERE statement if IsEmpty(pid) then bPK = False sWhere = sWhere & "id=" & ToSQL(pid, "Number") PK_id = pid '------------------------------- '------------------------------- ' relcliinstall1 Open Event start ' relcliinstall1 Open Event end '------------------------------- '------------------------------- ' Build SQL statement and open recordset '------------------------------- sSQL = "select * from relcliinstall where " & sWhere openrs rs, sSQL bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "relcliinstall1") and not rs.eof) '------------------------------- '------------------------------- ' Load all fields into variables from recordset or input parameters '------------------------------- if bIsUpdateMode then fldid = GetValue(rs, "id") fldidCli = GetValue(rs, "idCli") '------------------------------- ' Load data from recordset when form displayed first time '------------------------------- if srelcliinstall1Err = "" then fldDescription = GetValue(rs, "Description") fldSerialNb = GetValue(rs, "SerialNb") fldLivraison = GetValue(rs, "Livraison") fldMiseEnRoute = GetValue(rs, "MiseEnRoute") fldReception = GetValue(rs, "Reception") fldFinGarantie = GetValue(rs, "FinGarantie") fldidTypeContrat = GetValue(rs, "idTypeContrat") fldAccesLocal = GetValue(rs, "AccesLocal") fldPorteLocal = GetValue(rs, "PorteLocal") fldidTypeChargement = GetValue(rs, "idTypeChargement") fldidTypeDB = GetValue(rs, "idTypeDB") fldNomServeur = GetValue(rs, "NomServeur") fldCheminDB = GetValue(rs, "CheminDB") fldLoginServer = GetValue(rs, "LoginServer") fldPassServer = GetValue(rs, "PassServer") fldDerniereVisite = GetValue(rs, "DerniereVisite") fldVendeurOriginal = GetValue(rs, "VendeurOriginal") fldVendeurFacturation = GetValue(rs, "VendeurFacturation") end if '------------------------------- ' relcliinstall1 ShowEdit Event start ' relcliinstall1 ShowEdit Event end '------------------------------- else if srelcliinstall1Err = "" then fldid = ToHTML(GetParam("id")) fldidCli = ToHTML(GetParam("idCli")) end if '------------------------------- ' relcliinstall1 ShowInsert Event start ' relcliinstall1 ShowInsert Event end '------------------------------- end if '------------------------------- ' Set lookup fields '------------------------------- fldidCli = DLookUp("eb_clients", "FriendName", "id=" & ToSQL(fldidCli, "Number")) '------------------------------- ' relcliinstall1 Show Event start ' relcliinstall1 Show Event end '------------------------------- '------------------------------- ' Show form fields '------------------------------- %>

<%=sFormTitle%>
<%= srelcliinstall1Err %>
Client	<%=ToHTML(fldidCli)%>
Description
SerialNb
Livraison (YYYY/MM/DD)
MiseEnRoute (YYYY/MM/DD)
Reception (YYYY/MM/DD)
FinGarantie (YYYY/MM/DD)
TypeContrat	<% openrs rsidTypeContrat, "select id, Name from typecontrat order by 2" while not rsidTypeContrat.EOF if cstr(GetValue(rsidTypeContrat, 0)) = cstr(fldidTypeContrat) then response.write "" & GetValue(rsidTypeContrat, 1) & "" else response.write "" & GetValue(rsidTypeContrat, 1) & "" end if rsidTypeContrat.MoveNext wend set rsidTypeContrat = nothing %>
AccesLocal
PorteLocal
TypeChargement	<% openrs rsidTypeChargement, "select id, Name from typechargement order by 2" while not rsidTypeChargement.EOF if cstr(GetValue(rsidTypeChargement, 0)) = cstr(fldidTypeChargement) then response.write "" & GetValue(rsidTypeChargement, 1) & "" else response.write "" & GetValue(rsidTypeChargement, 1) & "" end if rsidTypeChargement.MoveNext wend set rsidTypeChargement = nothing %>
TypeDB	<% openrs rsidTypeDB, "select id, Name from typedb order by 2" while not rsidTypeDB.EOF if cstr(GetValue(rsidTypeDB, 0)) = cstr(fldidTypeDB) then response.write "" & GetValue(rsidTypeDB, 1) & "" else response.write "" & GetValue(rsidTypeDB, 1) & "" end if rsidTypeDB.MoveNext wend set rsidTypeDB = nothing %>
NomServeur
CheminDB
LoginServer
PassServer
DerniereVisite (YYYY/MM/DD)
VendeurOriginal
VendeurFacturation
<% if not bIsUpdateMode then %> <% end if %> <% if bIsUpdateMode then %> <% end if %>

<% '------------------------------- ' relcliinstall1 Close Event start ' relcliinstall1 Close Event end '------------------------------- Set rs = Nothing '------------------------------- ' relcliinstall1 Show end '------------------------------- End Sub '=============================== %>