<%@ Language=VBScript %> <%'if Request.ServerVariables("REMOTE_ADDR") <> "66.131.186.9" then Response.Redirect "http://www.phaq.ca"%> <% ConnectRSA %> <% ConnectRSM %> <% dim vSection, vParent, vTitre dim RightBar RightBar = true vSection = Request.QueryString("s") if vSection = "" then vSection = getResult("SELECT TOP 1 ID_MenuItem from tbl_MenuItem Where Site = 2 AND Parent = 0 ORDER BY Rang ASC") else if getResult("SELECT Lien FROM tbl_MenuItem WHERE ID_MenuItem = " & vSection) = "" then vSection = getResult("SELECT TOP 1 ID_MenuItem from tbl_MenuItem Where Site = 2 AND Parent = " & vSection & " ORDER BY Rang ASC") end if end if strSQl = "SELECT * from tbl_MenuItem WHERE ID_MenuItem = " & vSection RSA.Open strSQL, CNRSA if not RSA.EOF then vParent = RSA.Fields("Parent") vTitre = RSA.Fields("Titre") %> Bottin Aînés Hébergement - <%=vTitre%>
Recherchez une résidence

Entrez le nom de votre ville ou d'une résidence:

"/>

Mettre les accents (é, d', à, ç, ê, etc.) si nécessaire.

Cliquez sur l'image pour accéder à la fiche détaillée

AUGMENTEZ VOTRE VISIBILITÉ, CONSULTEZ NOS DOSSIERS MÉDIAS
<% strSQl = "SELECT * FROM tbl_Section WHERE ID_MenuItem = " & vSection & " AND Display ORDER BY Srang ASC" RSA.Open strSQl, CNRSA %> <% do While not RSA.EOF %> <% if RSA.Fields("Titre") <> "" then %> &c=<%=RSA.Fields("Color")%>&w=415" class="imgTitre">
<% end if %> <% RSA.MoveNext loop%>

<%=RSA.Fields("TextFormat")%> .gif" width="8" height="8" align="baseline">

<% if RSA.Fields("Auteur") <> "" then %><%=RSA.Fields("Auteur")%><% if RSA.Fields("TitreA") <> "" then %>, <%=RSA.Fields("TitreA")%>
<% else %>
<% end if else if RSA.Fields("TitreA") <> "" then %><%=RSA.Fields("TitreA")%>
<% end if end if if RSA.Fields("Email") <> "" then %>" title="Écrire à<% if RSA.Fields("Auteur") <> "" then %> <%=RSA.Fields("Auteur")%><% else %> <%=RSA.Fields("Email")%><% end if %>"><%=RSA.Fields("Email")%>
<% end if %>

<% end if RSA.Close %>