<%@ Language=VBScript %> <%Option Explicit%> <% Dim RS2 : Set RS2 = Server.CreateObject("ADODB.Recordset") Dim sesid ConnectRS select case Request.Form("action") case "login": if Request.Form("username") <> "" then 'Prise de l'information de l'acheteur selon son nom d'utilisateur (..., (SELECT COUNT(ID_Transaction) FROM tblTransaction WHERE ID_ach = a.ID_ach) AS [transac]...) strSQL = "SELECT a.ID_Ach, 0 AS [ID_Assistant], webActif, webPassword, webDateFin, (SELECT COUNT(ID_CCach) FROM tblCCAch WHERE ID_ach = a.ID_ach) AS [CCACH] FROM tblSUBAcheteur AS a WHERE webUsername = '" & replace(lcase(Request.Form("username")), "'", "''") & "'" & _ " UNION SELECT ID_Ach, ID_Assistant, webActif, webPassword, webDateFin, 0 FROM tblAssistant WHERE webUsername = '" & replace(lcase(Request.Form("username")), "'", "''") & "'" 'Response.Write "" RS.Open strSQL, CNRS 'ouverture de la requête if RS.EOF then 'vérification qu'un nom a été trouvé vMess = "Nom d'utilisateur inconnu" else if RS.Fields("webPassword") <> Request.form("password") then 'vérification du mot de passe vMess = "Mot de passe incorrect" else Session("user") = UCase(Request.Form("username")) 'l'utilisateur est identifié Session("Userid") = RS.Fields("ID_Ach") Session("Assistid") = RS.Fields("ID_Assistant") Session("CCACH") = RS.Fields("CCACH") 'Session("Transac") = RS.Fields("transac") if Session("CCACH") > 0 then dim RScc: Set RScc = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT MAX(Date_CCAch) FROM tblCCach WHERE ID_ach = " & Session("Userid") & " AND ID_EtapeCCach = 1" RScc.Open strSQL, CNRS Response.Write "" if RScc.EOF then Session("CCACH") = 0 else if DateDiff("m", RScc.Fields(0), Date) > 12 then Session("CCACH") = 0 end if end if end if if not RS.Fields("webActif") then 'vérification de l'état de son accès vMess = "Vous êtes identifié mais votre accès a été révoqué" else if datediff("d", RS.Fields("webDateFin"), date) > 0 then 'vérification de la fin de son accès vMess = "Vous êtes identifié mais votre accès a prit fin le " & RS.Fields("webDateFin") else Session("perm") = 1 strSQL = " SELECT d.Nom_dos" & _ " FROM tblDossier AS d INNER JOIN tblSUBAcheteur AS a ON d.ID_dos = a.ID_dos" & _ " WHERE a.ID_Ach = " & Session("Userid") RS2.Open strSQL, CNRS sesid = RS2.Fields(0) RS2.Close() if Session("Userid") <> 1 then SendEMail EMAIL_FROM, EMAIL_TO, "","L'ach. #"& Session("Userid") & " : " & sesid & " vient de se connecter sur le site immobilier !!! ", " " end if end if end if end if end if RS.Close end if case "logout": Session.Abandon Response.Redirect "index.asp" end select %> <%Dim idAch,idTypeAch,idResTemp,resid idResTemp = 0 if Request.Form("hidcheck") = 1 then Sub RunScript Location.Reload(True) End Sub if Session("Userid")<>1 AND Session("perm") = 1 then strSQL = " SELECT d.Nom_dos,a.ID_TypeAcheteur " & _ " FROM tblDossier AS d INNER JOIN tblSUBAcheteur AS a ON d.ID_dos = a.ID_dos" & _ " WHERE a.ID_Ach = " & Session("Userid") RS.Open strSQL, CNRS idAch = Session("Userid") & RS.Fields(0) idTypeAch = RS.Fields("ID_TypeAcheteur") RS.Close() strSQL = _ "SELECT r.ID_res AS vID,l.Open_Listing, IIF(w.ID_AccesWeb IS NULL, 2, 1) as vOrd " & _ "FROM (((tblSUBResidence AS r " & _ " INNER JOIN tblVente AS v ON r.MainVente = v.ID_Vente) " & _ " INNER JOIN (SELECT * FROM tblListing WHERE Id_Listing = " & Request.Form("hidID") & ") AS l ON v.ID_Vente = l.ID_Vente ) " & _ " LEFT JOIN tblAccesWeb AS w ON ( " & _ " l.ID_Listing = w.ID_Listing " & _ " AND w.ID_ach = " & Session("Userid") & " " strSQL = strSQL & _ " )) " & _ "WHERE Actif_Listing " & _ "ORDER BY 1 ASC " Response.Write "" RS.Open strSQL, CNRS if RS.Fields("Open_Listing") = 0 AND RS.Fields("vOrd") = 2 then SendEMail EMAIL_FROM, EMAIL_TO, "","L'ach. #" & idAch & " et l-sommaire sans acces client #" & RS.Fields("vID"), " " elseif (idTypeAch=1 or idTypeAch=2) then SendEMail EMAIL_FROM, EMAIL_TO, "","L'ach. #" & idAch & " et l-sommaire #" & RS.Fields("vID"), " " else SendEMail EMAIL_FROM, EMAIL_TO, "","L'ach. #" & idAch & " et l-sommaire accesible suite à l'envoi de masse #" & RS.Fields("vID"), " " end if RS.Close end if Server.Execute "ficheWeb.asp" else '***************************************************************************************************************** dim DD, MD, SD 'DefaultDevise, ModDevise and SymboleDevise if Request.QueryString("d") <> "" then DD = Request.QueryString("d") else DD = Request.Cookies("devise") end if MD = 1 SD = "$" Public Function Div0(ByVal v1, ByVal v2) If Not IsNull(v1) And Not IsNull(v2) Then If v2 <> 0 Then Div0 = v1 / v2 Else Div0 = 0 End If End If End Function Public Function CalculerMensualite(ECapital, EDuree, ETaux) 'set the variables Dim vTaux 'As Double Dim vPaiement 'As Currency Dim vDiviseur 'As Double Dim vNumPaiement 'As Integer Dim vQuotien 'As Double Dim vQuotien1 'As Double If ECapital > 0 And EDuree > 0 Then vTaux = (ETaux) / 2 vQuotien1 = ((1 + vTaux) ^ 2) - 1 vQuotien = ((1 + vQuotien1) ^ (1 / 12)) - 1 vNumPaiement = EDuree * 12 vDiviseur =Div0( (1 - ((1 + vQuotien) ^ (-1 * vNumPaiement))) , vQuotien) if vDiviseur <>0 then vPaiement = ECapital / vDiviseur end if CalculerMensualite = FormatNumber(vPaiement, 2) Else CalculerMensualite = 0 End If End Function Public function ShowProjection() if RS.Fields("final") <> true then Response.Write "Fiche préliminaire(résumé) " else Response.Write "Dossier complet(résumé)" end if End function Public function PN(vVal) if P then dim I dim vRet vRet = "" for I = 1 to len(vVal) vRet = vRet & "-" next PN = vRet else PN = vVal end if end function Public function PS(vVal) if P then PS = "" else PS = vVal end if end function Public function lettreID() if RS.Fields("Open_Listing") <> 0 then lettreID = ((RS.Fields("vID") +3000) Mod 1804) + RS.Fields("vID") else lettreID = RS.Fields("vID") end if end function Public function lettreOpen(rid) if rid <> RS.Fields("vID") then if rid < 300 then lettreOpen = "Z" elseif rid >1499 then lettreOpen = "H" else lettreOpen = "B" end if end if end function %> Richard Perreault
<% Dim noBrp strSQL = " SELECT Last_brp FROM tblBrp" RS2.Open strSQL, CNRS noBrp = RS2.Fields(0) RS2.Close noBrp = noBrp & "Web.html"%>

Acheteur / Vendeur

  • <%if Request.QueryString("p") = "mandats" then Response.Write "

    Liste des mandats

    " else Response.Write "Liste des mandats" end if %>
    • <% if Session("Perm") = 1 then %>
  • " target="_blank"> Comparez mandats
    • <%else %>
  • Comparez mandats
    • <% end if%>
  • <% if Request.QueryString("p") = "motdepasse" then Response.Write "

    Achat / mot de passe

    " else Response.Write "Achat / mot de passe" end if %>
  • <% if Request.QueryString("p") = "faq" then Response.Write "

    F.A.Q.- mandat acheteur

    " else Response.Write "F.A.Q.- mandat acheteur" end if %>
  • <% if Request.QueryString("p") = "vente" then Response.Write "

    Vente de résidence

    " else Response.Write "Vente de résidence" end if %>
  • <% if Request.QueryString("p") = "loyers" then Response.Write "

    Types d'hebergement

    " else Response.Write "Types d'hebergement" end if %>
  • <% if Request.QueryString("p") = "consultation" then Response.Write "

    Services de consultation

    " else Response.Write "Services de consultation" end if %>
  • <% if Request.QueryString("p") = "revuepresse" then Response.Write "

    Revue de presse

    " else Response.Write "Revue de presse" end if %>

Chercher Mandat

  • <% if Request.QueryString("p") = "prix" then Response.Write "

    Par Prix

    " else Response.Write "Par Prix" end if %>
  • <% if Request.QueryString("p") = "region" then Response.Write "

    Par Région

    " else Response.Write "Par Région" end if %>

Calculez

  • <% if Request.QueryString("p") = "calculhypotheque" then Response.Write "

    Hypothèque

    " else Response.Write "Hypothèque" end if %>
  • <% if Request.QueryString("p") = "taxemutation" then Response.Write "

    Taxe de mutation

    " else Response.Write "Taxe de mutation" end if %>
  • <% if Request.QueryString("p") = "tpstvq" then Response.Write "

    TPS & TVQ

    " else Response.Write "TPS & TVQ" end if %>
  • <% if Request.QueryString("p") = "ajustements" then Response.Write "

    Calcul d'ajustement

    " else Response.Write "Calcul d'ajustement" end if %>
  • <% if Request.QueryString("p") = "commentaire" then Response.Write "

    Laissez vos commentaires

    " else Response.Write "Laissez vos commentaires" end if %>
<%if session("user") <> "" then%>

Identification

Vous êtes connecté
en tant que : <%=Session("user")%>

<%=vMess%>

<%else%>

Identification

Utilisateur : " size="20" />

Mot de passe :

<%=vMess%>

< S'INSCRIRE >

<%if vMess = "" then%> <%end if%> <%end if%>

Qui suis-je ?

SA CARRIÈRE EN QUELQUES TRAITS

  1. Faits marquants
    • Il fut d’abord propriétaire de résidences, expérience fondamentale, bien sûr, pour sa carrière à venir.
    • Parallèlement à ses tâches de propriétaire, il œuvra dans le domaine de la construction, acquérant ainsi une expertise non négligeable dans ce domaine.
    • Il fut ensuite agent d’immeuble pour Le Permanent
    • Il est présentement agent d’immeuble pour Re Max, alliant dans sa pratique ses multiples expériences.
    • Il a fondé le groupe conseil Gescen, consultant en hébergement pour aînés.
    • Il est conseiller en développement et marketing pour des propriétaires de résidences d’Acton Vale, Valleyfield et Magog.
    • Cherchant à rejoindre autant les personnes âgées et leurs proches que les gestionnaires de résidences privées, il a fondé la Revue Aînés Hébergement et son complément, les Dossiers du gestionnaire.
  2. Rayonnement
    • Richard Perreault a reçu de nombreuses distinctions provenant de ses pairs pour l’excellence de son travail.
    • Par ailleurs ses connaissances du milieu de l’hébergement québécois, tant du point de vue des personnes âgées et de leurs besoins spécifiques, que de celui des intervenants du milieu de la santé québécois, ont fait de lui l’expert tout désigné pour conseiller les personnes vivant hors Québec et qui désirent acquérir une résidence pour personnes âgées dans cette province.

SES QUALIFICATIONS

Outre une formation spécialisée qui l’habilite à travailler dans ce secteur, plusieurs qualités lui sont nécessaires. Il les a acquises à travers diverses activités professionnelles :

  • Une expérience de plus de 10 ans comme gestionnaire de résidences de personnes âgées.
  • Une expérience dans le domaine de la construction, qu’il a acquise en tant qu’entrepreneur général indépendant.

UNE EXPERTISE QUI DÉPASSE LE MILIEU QUÉBÉCOIS

Richard Perreault est en effet reconnu au-delà de nos frontières. Outre ses contacts avec des gestionnaires résidant ailleurs au Canada, l’ambassade du Canada en France le cite comme l’expert à consulter au Québec à qui veut venir s’installer dans notre province et y acquérir une résidence privée. C’est dans ce contexte qu’il a effectué des transactions avec des acheteurs français, établissant avec eux des rapports étroits et constants et effectuant lui-même des visites en France, question aussi de s’initier au système de santé et aux infrastructures dédiées aux personnes âgées.

Il a donc appris à respecter la culture et les traditions de ces clients, et à tenir compte de ces éléments dans sa propre démarche d’agent d’immeuble. Sa vision du vieillissement s’est donc trouvée enrichie.

L’ÉTENDUE DE SES ACTIVITÉS

Fort de ces expériences diverses, il est en mesure d’offrir à ses clients une gamme étendue de services tels que :

  • La vente et l’achat de résidences pour personnes âgées.
  • Un réseau de contacts important acquis au fil des ans et fondé sur le respect.
  • Une démarche d’achat et de vente fondée sur la confidentialité absolue.
  • Le programme de déduction fiscale accessible lors de l’acquisition d’une résidence d’aînés
  • La demande et le suivi du financement.
  • Le programme d’achat d’une résidence d’aînés par le RÉER des acheteurs en attente de financement.
  • La recherche de financement ou de partenaires financiers privées dont il est le représentant.
  • Un suivi constant qui se concrétise par une impressionnante banque de données portant sur ce secteur d’activités et constamment mise à jour.
  • Un programme de publicité.
  • Négociation spécifique à ce type d’immeubles

SON CHAMP D’EXPERTISE

Le monde de l’hébergement pour personnes âgées étant complexe et varié, les intérêts de Richard Perreault l’amènent à effectuer des transactions sur plusieurs types d’institutions, à savoir :

  • Les foyers de personnes retraitées autonomes
  • les résidences de chambres et pensions
  • les ressources intermédiaires
  • les complexes d’appartements de retraités et préretraités
  • les familles d’accueil
  • etc…
Que ces institutions soient petites, moyennes ou grosses.


À cela s’ajoutent les pharmacies et les cliniques de professionnels de la santé.

EN CONCLUSION

UNE PRÉOCCUPATION CONSTANTE DE RICHARD PERREAULT : METTRE LES PERSONNES ÂGÉES ET LES INTERVENANTS AU CŒUR MÊME DES PROBLÉMATIQUES DU MONDE MODERNE, AVEC DES OUTILS D’INTERVENTION MODERNES, SANS CESSE PLUS EFFICIENTS.

Comme personne n’échappe à la problématique du vieillissement, soit en tant que personne âgée, soit en tant que proche (parent ou intervenant) d’une personne âgée, il semble que le sujet demeure d’actualité et doit de ce fait interpeller tous et chacun, dans le cadre d’une réflexion commune à l’échelle de la société toute entière.

D’autres projets sont donc en cours qui visent tous à démystifier un secteur complexe, celui des personnes âgées et de leurs proches, de dresser un pont entre ces gens et ceux et celles qui leurs dispensent des soins et des services, dans un contexte où le vieillissement de la population est devenu un phénomène sur lequel il faut compter, pour les personnes âgées d’aujourd’hui et pour celles de demain…

<%end if %>