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

<% MenuGeneral2_Show %>

<% MenuGeneral_Show %>

<% relcliinstallconvporte_Show %>

<% relcliinstallconvporte1_Show %>

<% ' portespropre Show end ' portespropre Close Event start ' portespropre Close Event end '------------------------------- ' Destroy connection object '------------------------------- cn.close Set cn = nothing '=============================== '******************************************************************************** '=============================== ' Display Grid Form '------------------------------- Sub relcliinstallconvporte_Show() '------------------------------- ' Initialize variables '------------------------------- Dim rs Dim sWhere : sWhere = "" Dim sOrder : sOrder = "" Dim sSQL : sSQL = "" Dim sFormTitle: sFormTitle = "Portes distribution" Dim HasParam : HasParam = false Dim iSort : iSort = "" Dim iSorted : iSorted = "" Dim sDirection : sDirection = "" Dim form_sorting : form_sorting = "" Dim sSortParams : sSortParams = "" Dim iRecordsPerPage : iRecordsPerPage = 200 Dim iCounter : iCounter = 0 Dim iPage : iPage = 0 Dim bEof : bEof = False Dim transit_params : transit_params = "" Dim form_params : form_params = "" '------------------------------- ' Build ORDER BY statement '------------------------------- sOrder = " order by r.idCli Asc" iSort = GetParam("Formrelcliinstallconvporte_Sorting") iSorted = GetParam("Formrelcliinstallconvporte_Sorted") sDirection = "" if IsEmpty(iSort) then form_sorting = "" else if iSort = iSorted then form_sorting = "" sDirection = " DESC" sSortParams = "Formrelcliinstallconvporte_Sorting=" & iSort & "&Formrelcliinstallconvporte_Sorted=" & iSort & "&" else form_sorting = iSort sDirection = " ASC" sSortParams = "Formrelcliinstallconvporte_Sorting=" & iSort & "&Formrelcliinstallconvporte_Sorted=" & "&" end if if iSort = 1 then sOrder = " order by e.FriendName" & sDirection if iSort = 2 then sOrder = " order by r1.Description" & sDirection if iSort = 3 then sOrder = " order by r2.numB2K" & sDirection if iSort = 4 then sOrder = " order by t.Name" & sDirection if iSort = 5 then sOrder = " order by r.numB2K" & sDirection if iSort = 6 then sOrder = " order by t1.Name" & sDirection if iSort = 7 then sOrder = " order by r.ModelePcPorte" & sDirection if iSort = 8 then sOrder = " order by r.SNPcPorte" & sDirection if iSort = 9 then sOrder = " order by r.emplacementCle" & sDirection end if '------------------------------- ' HTML column headers '------------------------------- %> <% '------------------------------- ' Build base SQL statement '------------------------------- sSQL = "select r.ModelePcPorte as r_ModelePcPorte, " & _ "r.SNPcPorte as r_SNPcPorte, " & _ "r.emplacementCle as r_emplacementCle, " & _ "r.id as r_id, " & _ "r.idCli as r_idCli, " & _ "r.idInst as r_idInst, " & _ "r.idInstConv as r_idInstConv, " & _ "r.idTypeExtraction as r_idTypeExtraction, " & _ "r.idTypePcPorte as r_idTypePcPorte, " & _ "r.numB2K as r_numB2K, " & _ "e.id as e_id, " & _ "e.FriendName as e_FriendName, " & _ "r1.id as r1_id, " & _ "r1.Description as r1_Description, " & _ "r2.id as r2_id, " & _ "r2.numB2K as r2_numB2K, " & _ "t.id as t_id, " & _ "t.Name as t_Name, " & _ "t1.id as t1_id, " & _ "t1.Name as t1_Name " & _ " from relcliinstallconvporte r, eb_clients e, relcliinstall r1, relcliinstallconv r2, typeextraction t, typepcporte t1" & _ " where e.id=r.idCli and r1.id=r.idInst and r2.id=r.idInstConv and t.id=r.idTypeExtraction and t1.id=r.idTypePcPorte " '------------------------------- '------------------------------- ' relcliinstallconvporte Open Event start ' relcliinstallconvporte Open Event end '------------------------------- '------------------------------- ' Assemble full SQL statement '------------------------------- sSQL = sSQL & sWhere & sOrder '------------------------------- '------------------------------- ' Open the recordset '------------------------------- openrs rs, sSQL '------------------------------- '------------------------------- ' Process empty recordset '------------------------------- if rs.eof then %> <% end if '------------------------------- '------------------------------- 'Initialize page counter and records per page '------------------------------- iRecordsPerPage = 200 iCounter = 0 '------------------------------- ' Process page scroller '------------------------------- iPage = GetParam("Formrelcliinstallconvporte_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 '------------------------------- fldemplacementCle = GetValue(rs, "r_emplacementCle") fldid = GetValue(rs, "r_id") fldidCli_URLLink = "portespropre.asp" fldidCli_id = GetValue(rs, "r_id") fldidCli = GetValue(rs, "e_FriendName") fldidInst = GetValue(rs, "r1_Description") fldidInstConv = GetValue(rs, "r2_numB2K") fldidTypeExtraction = GetValue(rs, "t_Name") fldidTypePcPorte = GetValue(rs, "t1_Name") fldModelePcPorte = GetValue(rs, "r_ModelePcPorte") fldnumB2K = GetValue(rs, "r_numB2K") fldSNPcPorte = GetValue(rs, "r_SNPcPorte") '------------------------------- ' relcliinstallconvporte Show begin '------------------------------- '------------------------------- ' relcliinstallconvporte Show Event start ' relcliinstallconvporte Show Event end '------------------------------- '------------------------------- ' Process the HTML controls '------------------------------- %> <% '------------------------------- ' relcliinstallconvporte 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. '------------------------------- if not (rs.EOF and iPage=1) then %> <% end if '------------------------------- ' relcliinstallconvporte Navigation end '------------------------------- '------------------------------- ' Finish form processing '------------------------------- set rs = nothing %>

<%=sFormTitle%>
idCli	idInst	idInstConv	idTypeExtraction	numB2K	idTypePcPorte	ModelePcPorte	SNPcPorte	emplacementCle
No records
<%=fldidCli%>	<%=ToHTML(fldidInst)%>	<%=ToHTML(fldidInstConv)%>	<%=ToHTML(fldidTypeExtraction)%>	<%=ToHTML(fldnumB2K)%>	<%=ToHTML(fldidTypePcPorte)%>	<%=ToHTML(fldModelePcPorte)%>	<%=ToHTML(fldSNPcPorte)%>	<%=ToHTML(fldemplacementCle)%>
<% end if '------------------------------- ' relcliinstallconvporte 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 else %>

<% '------------------------------- ' relcliinstallconvporte Close Event start ' relcliinstallconvporte Close Event end '------------------------------- end sub '=============================== '=============================== ' Action of the Record Form '------------------------------- Sub relcliinstallconvporte1Action(sAction) '------------------------------- ' Initialize variables '------------------------------- Dim bExecSQL: bExecSQL = true Dim sActionFileName : sActionFileName = "" Dim sWhere : sWhere = "" Dim bErr : bErr = False Dim pPKid : pPKid = "" Dim fldidTypeExtraction : fldidTypeExtraction = "" Dim fldnumB2K : fldnumB2K = "" Dim fldidTypePcPorte : fldidTypePcPorte = "" Dim fldModelePcPorte : fldModelePcPorte = "" Dim fldSNPcPorte : fldSNPcPorte = "" Dim fldemplacementCle : fldemplacementCle = "" '------------------------------- '------------------------------- ' relcliinstallconvporte1 Action begin '------------------------------- sActionFileName = "portespropre.asp" '------------------------------- ' CANCEL action '------------------------------- if sAction = "cancel" then '------------------------------- ' relcliinstallconvporte1 BeforeCancel Event start ' relcliinstallconvporte1 BeforeCancel Event end '------------------------------- cn.Close Set cn = Nothing response.redirect sActionFileName 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 '------------------------------- fldidTypeExtraction = GetParam("idTypeExtraction") fldnumB2K = GetParam("numB2K") fldidTypePcPorte = GetParam("idTypePcPorte") fldModelePcPorte = GetParam("ModelePcPorte") fldSNPcPorte = GetParam("SNPcPorte") fldemplacementCle = GetParam("emplacementCle") '------------------------------- ' Validate fields '------------------------------- if sAction = "insert" or sAction = "update" then if IsEmpty(fldidTypeExtraction) then srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypeExtraction is required.
" end if if IsEmpty(fldidTypePcPorte) then srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypePcPorte is required.
" end if if not isNumeric(fldidTypeExtraction) then srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypeExtraction is incorrect.
" end if if not isNumeric(fldidTypePcPorte) then srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypePcPorte is incorrect.
" end if '------------------------------- ' relcliinstallconvporte1 Check Event start ' relcliinstallconvporte1 Check Event end '------------------------------- If len(srelcliinstallconvporte1Err) > 0 then exit sub end if end if '------------------------------- '------------------------------- ' Create SQL statement '------------------------------- select case sAction case "update" '------------------------------- ' relcliinstallconvporte1 Update Event start ' relcliinstallconvporte1 Update Event end '------------------------------- sSQL = "update relcliinstallconvporte set " & _ "idTypeExtraction=" & ToSQL(fldidTypeExtraction, "Number") & _ ",numB2K=" & ToSQL(fldnumB2K, "Text") & _ ",idTypePcPorte=" & ToSQL(fldidTypePcPorte, "Number") & _ ",ModelePcPorte=" & ToSQL(fldModelePcPorte, "Text") & _ ",SNPcPorte=" & ToSQL(fldSNPcPorte, "Text") & _ ",emplacementCle=" & ToSQL(fldemplacementCle, "Text") sSQL = sSQL & " where " & sWhere case "delete" '------------------------------- ' relcliinstallconvporte1 Delete Event start ' relcliinstallconvporte1 Delete Event end '------------------------------- sSQL = "delete from relcliinstallconvporte where " & sWhere end select '------------------------------- '------------------------------- ' relcliinstallconvporte1 BeforeExecute Event start ' relcliinstallconvporte1 BeforeExecute Event end '------------------------------- '------------------------------- ' Execute SQL statement '------------------------------- if len(srelcliinstallconvporte1Err) > 0 then Exit Sub on error resume next if bExecSQL then cn.execute sSQL end if srelcliinstallconvporte1Err = ProcessError on error goto 0 if len(srelcliinstallconvporte1Err) > 0 then Exit Sub cn.Close Set cn = Nothing response.redirect sActionFileName '------------------------------- ' relcliinstallconvporte1 Action end '------------------------------- end sub '=============================== '=============================== ' Display Record Form '------------------------------- Sub relcliinstallconvporte1_Show() '------------------------------- ' relcliinstallconvporte1 Show begin '------------------------------- sWhere = "" Dim sFormTitle: sFormTitle = "Modify" bPK = true %> <% if not (srelcliinstallconvporte1Err = "") then %> <% end if %> <% '------------------------------- ' Load primary key and form parameters '------------------------------- if srelcliinstallconvporte1Err = "" then fldid = GetParam("id") pid = GetParam("id") else fldid = GetParam("id") fldidTypeExtraction = GetParam("idTypeExtraction") fldnumB2K = GetParam("numB2K") fldidTypePcPorte = GetParam("idTypePcPorte") fldModelePcPorte = GetParam("ModelePcPorte") fldSNPcPorte = GetParam("SNPcPorte") fldemplacementCle = GetParam("emplacementCle") 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 '------------------------------- '------------------------------- ' relcliinstallconvporte1 Open Event start ' relcliinstallconvporte1 Open Event end '------------------------------- '------------------------------- ' Build SQL statement and open recordset '------------------------------- sSQL = "select * from relcliinstallconvporte where " & sWhere openrs rs, sSQL bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "relcliinstallconvporte1") 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") fldidInst = GetValue(rs, "idInst") fldidInstConv = GetValue(rs, "idInstConv") '------------------------------- ' Load data from recordset when form displayed first time '------------------------------- if srelcliinstallconvporte1Err = "" then fldidTypeExtraction = GetValue(rs, "idTypeExtraction") fldnumB2K = GetValue(rs, "numB2K") fldidTypePcPorte = GetValue(rs, "idTypePcPorte") fldModelePcPorte = GetValue(rs, "ModelePcPorte") fldSNPcPorte = GetValue(rs, "SNPcPorte") fldemplacementCle = GetValue(rs, "emplacementCle") end if '------------------------------- ' relcliinstallconvporte1 ShowEdit Event start ' relcliinstallconvporte1 ShowEdit Event end '------------------------------- else if srelcliinstallconvporte1Err = "" then fldid = ToHTML(GetParam("id")) end if '------------------------------- ' relcliinstallconvporte1 ShowInsert Event start ' relcliinstallconvporte1 ShowInsert Event end '------------------------------- end if '------------------------------- ' Set lookup fields '------------------------------- fldidCli = DLookUp("eb_clients", "FriendName", "id=" & ToSQL(fldidCli, "Number")) fldidInst = DLookUp("relcliinstall", "Description", "id=" & ToSQL(fldidInst, "Number")) fldidInstConv = DLookUp("relcliinstallconv", "numB2K", "id=" & ToSQL(fldidInstConv, "Number")) '------------------------------- ' relcliinstallconvporte1 Show Event start ' relcliinstallconvporte1 Show Event end '------------------------------- '------------------------------- ' Show form fields '------------------------------- %>

<%=sFormTitle%>
<%= srelcliinstallconvporte1Err %>
idCli	<%=ToHTML(fldidCli)%>
idInst	<%=ToHTML(fldidInst)%>
idInstConv	<%=ToHTML(fldidInstConv)%>
idTypeExtraction	<% openrs rsidTypeExtraction, "select id, Name from typeextraction order by 2" while not rsidTypeExtraction.EOF if cstr(GetValue(rsidTypeExtraction, 0)) = cstr(fldidTypeExtraction) then response.write "" & GetValue(rsidTypeExtraction, 1) & "" else response.write "" & GetValue(rsidTypeExtraction, 1) & "" end if rsidTypeExtraction.MoveNext wend set rsidTypeExtraction = nothing %>
numB2K
idTypePcPorte	<% openrs rsidTypePcPorte, "select id, Name from typepcporte order by 2" while not rsidTypePcPorte.EOF if cstr(GetValue(rsidTypePcPorte, 0)) = cstr(fldidTypePcPorte) then response.write "" & GetValue(rsidTypePcPorte, 1) & "" else response.write "" & GetValue(rsidTypePcPorte, 1) & "" end if rsidTypePcPorte.MoveNext wend set rsidTypePcPorte = nothing %>
ModelePcPorte
SNPcPorte
emplacementCle
<% if bIsUpdateMode then %> <% end if %>

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