<%@ Language=VBScript %> <%Option Explicit%> <% ConnectRSM %> <% dim vSection, vParent dim RightBar RightBar = false CONST ROWS_PER_PAGES = 25 Function MakePageNav() '' URL sans Rows per page dim vRet dim LastPage: LastPage = nbRow \ ROWS_PER_PAGES + 1 dim FirstShow, LastShow if cPage < 6 then FirstShow = 1 if LastPage > 10 then LastShow = 11 else LastShow = LastPage end if elseif cPage > (LastPage - 6) then FirstShow = LastPage - 11 if FirstShow < 1 then FirstShow = 1 LastShow = LastPage else FirstShow = Cpage - 5: LastShow = cPage + 5 end if vRet = "" vRet = vRet & "
" & vbcrlf vRet = vRet & "

" & vbcrlf if LastPage > 1 then if cPage > 1 then if FirstShow > 1 then vRet = vRet & "<<" & vbcrlf end if vRet = vRet & "<" & vbcrlf end if for I = FirstShow to LastShow if I = cPage then vRet = vRet & "" & I & "" & vbcrlf else vRet = vRet & "" & I & "" & vbcrlf end if next if cPage < LastPage then vRet = vRet & ">>" & vbcrlf if LastShow < LastPage then vRet = vRet & ">>" & vbcrlf end if end if end if vRet = vRet & "

" & vbcrlf vRet = vRet & "
" & vbcrlf MakePageNav = vRet End Function %> Bottin Aînés Hébergement - Recherche de résidence
<% 'Page ŕ afficher, si non spécifier -> 1 dim cPage if IsNumeric(Request.QueryString("p")) and Request.QueryString("p") <> "" then cPage = cint(Request.QueryString("p")) else cPage = 1 end if dim SearchField %>
Consultation du bottin
Vous êtes à la recherche d'une résidence. Nous mettons à votre disposition un outil qui vous permettra de trouver ce que vous voulez.
> Villes > Régions > CLSC > Associations > Corporations
Consulter par
<% Select Case Request.QueryString("t") case "v": strSQL = "SELECT v.ID_WebVille, Nom_WebVille AS [Ville], COUNT(ID_res) AS [Nombre de résidences] " & _ "FROM tblWebVille AS v LEFT JOIN tblWebResidence AS r ON v.ID_WebVille = r.ID_WebVille " & _ "GROUP BY v.ID_WebVille, Nom_WebVille HAVING 1=1" SearchField = "Nom_WebVille" case "r": strSQL = "SELECT rg.ID_WebRegion, Nom_WebRegion AS [Région], COUNT(ID_res) AS [Nombre de résidences] " & _ "FROM (tblWebRegion AS rg LEFT JOIN tblWebVille AS v ON rg.ID_WebRegion = v.ID_WebRegion) " & _ " LEFT JOIN tblWebResidence AS w ON v.ID_WebVille = w.ID_WebVille " & _ "GROUP BY rg.ID_WebRegion, Nom_WebRegion HAVING 1=1" SearchField = "Nom_WebRegion" case "c": strSQL = "SELECT c.ID_cls, c.Nom_web AS [CLSC], COUNT(ID_res) AS [Nombre de résidences] " & _ "FROM tblSUBCLSC AS c LEFT JOIN tblWebResidence AS r ON c.ID_cls = r.ID_cls " & _ "GROUP BY c.ID_cls, c.Nom_web HAVING 1=1" SearchField = "c.Nom_web" case "a": strSQL = "SELECT a.ID_WebAssociation, NomCourt_WebAssociation AS [Association], COUNT(ID_res) AS [Nombre de résidences] " & _ "FROM tblWebAssociation AS a LEFT JOIN tblWebResidence AS r ON a.ID_WebAssociation = r.ID_WebAssociation " & _ "GROUP BY a.ID_WebAssociation, NomCourt_WebAssociation HAVING 1=1" SearchField = "NomCourt_WebAssociation" case "g": strSQL = "SELECT g.ID_res, Nom_WebGroupe AS [Corporation], COUNT(r.ID_res) AS [Nombre de résidences] " & _ "FROM tblWebGroupe AS g LEFT JOIN tblWebResidence AS r ON g.ID_res = r.ID_WebGroupe " & _ "GROUP BY g.ID_res, Nom_WebGroupe HAVING COUNT(r.ID_res) <> 0" SearchField = "Nom_WebGroupe" end select 'Ajout de condition de recherche if Request.Form("key") <> "" then dim Keywords: Keywords = split(Request.Form("key"), " ") For I = 0 to Ubound(Keywords) strSQL = strSQL & " AND " & SearchField & " LIKE '%" & Lcase(Trim(Keywords(I))) & "%'" Next end if 'Nombre de lignes 'Response.Write "
SELECT COUNT(*) FROM (" & strSQL & ")" RSM.Open "SELECT COUNT(*) FROM (" & strSQL & ")", CNRSM dim nbRow: nbRow = RSM.Fields(0) RSM.Close if nbRow = 0 then %>
Aucun résultat ne correspond a votre recherche.
<% else dim PageNav: PageNav = MakePageNav() Dim vShow if cPage * ROWS_PER_PAGES > nbRow then vShow = nbRow - ((cPage - 1) * ROWS_PER_PAGES ) else vShow = ROWS_PER_PAGES end if if (nbRow \ ROWS_PER_PAGES + 1) > 1 then %>
" method="post">
<% Select Case Request.QueryString("t") case "v": %>Ville<% case "v": %>Région<% case "c": %>CLSC<% case "a": %>Association<% case "g": %>Corporation<% end select %> : ">
<% end if 'construction SQL recordset a afficher selon la page strSQL = "SELECT TOP " & vShow & " * FROM (" & _ " SELECT TOP " & cPage * ROWS_PER_PAGES & " * FROM (" & strSQL & ") " & _ " ORDER BY 2 ASC) " & _ "ORDER BY 2 DESC " 'Response.Write "
" & strSQL RSM.Open strSQL, CNRSM %> <%=PageNav%>

Résultats <%=((cPage - 1) * ROWS_PER_PAGES) + 1%> ŕ <%If cPage * ROWS_PER_PAGES > nbRow then Response.Write nbRow _ else Response.Write cPage * ROWS_PER_PAGES%> sur <%=nbRow%>

<% 'construction inverse de la page dim Buff: Buff = "" dim vOutput: vOutput = "" I = 0 do while not RSM.EOF Buff = "" if RSM.Fields(2) > 0 then Buff = Buff & "" else Buff = Buff & "" end if Buff = Buff & "" vOutput = Buff & vbCrLf & vOutput RSM.MoveNext I = I + 1 loop RSM.Close Response.Write vOutput %>
<%=RSM.Fields(1).Name%> <%=RSM.Fields(2).Name%>
" & RSM.Fields(1) & "" & RSM.Fields(1) & "" & RSM.Fields(2) & "
<%=PageNav%> <% end if %>