<%@ 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%>

F.A.Q.

Si vous désirez en savoir plus sur le mandat d'acheteur, n'hésitez-pas à nous contacter!
Il est aussi possible de venir nous rencontrer à nos bureaux.
Voici les questions qui sont le plus souvent posées sur le mandat d'acheteur:

  • * Y'a-t-il plusieurs types de mandat d'acheteur?

    1. Qu'est-ce qu'un mandat d'acheteur?

      Dans ce type de contrat, c'est l'acheteur qui paie la commission. La commission est fixée sur le prix d'achat et non sur le prix de vente comme pour le cas d'un mandat conventionnel de vendeur.



    2. Est-ce que c'est efficace?

      Environ un tiers des transactions effectuées par Richard Perreault le sont dans le cadre de mandats d'acheteurs. Et pour le cas des RPA de 35 unités et plus, la proportion grimpe à 1 sur 2.


    3. Quels sont les avantages du mandat d'acheteur?

      Le mandat d'acheteur permet aux acheteurs d'obtenir un service personnalisé de recherche de résidences d'aînés. Il s'assure aussi la priorité sur tous les autres acheteurs qui ne bénéficient pas de ce privilège.


    4. à quel type d'acheteur s'adresse-t-il ?

      Le mandat d'acheteur s'adresse aux acheteurs sérieux qui recherchent depuis un certain temps la RPA de leurs rêves. Il sait ce qu'il veut et est fermement décidé à acquérir une résidence d'aînés.


    5. Comment s'y prendre pour cerner les besoins spécifiques d'un acheteur?

      Il faut commencer par questionner l'acheteur : a-t-il de l'expérience dans le milieu des RPA? Qu'elle est sa capacité d'achat? Veut-il une RPA avec ou sans soins? Située en ville ou en région? Voila quelques questions, parmi d'autres, qui permettent de bien cerner les besoins de l'acheteur. Richard Perreault doit demeurer à l'écoute des besoins de l'acheteur...


    6. Pouvez-vous en dire plus sur la commission?

      En vérité, si l'acheteur décide que la commission soit payée par le vendeur, le montant de la commission est alors ajouté au prix de vente de la RPA.


    7. Pourquoi payer un dépôt?


    8. Quelles sont les étapes d'une recherche de RPA dans le cadre d'un mandat d'acheteur?


    9. Comment s'organise l'équipe de Richard Perreault Immobilier Inc.?


    10. Quels sont les honoraires des employés de Richard Perreault Immobilier Inc. qui recherchent une RPA pour l'acheteur?


    11. Est-ce que l'acheteur est informé régulièrement des progrès de la recherche?


    12. Est-il possible de résilier le contrat?

      Il est possible de résilier pour les deux parties. Il suffit de rédiger une lettre (dont l'échéance est fixée selon les termes du contrat) avant la date de renouvellement du mandat.


    13. Y'a-t-il un renouvellement automatique?


    14. Est-il possible pour l'acheteur d'entrer directement en contact avec un vendeur potentiel?

      Le rôle de Richard Perreault dans le cadre d'un mandat d'acheteur étant précisément de rapprocher l'acheteur d'un propriétaire, il est évident que les deux parties peuvent communiquer directement entre elles.


    15. Est-ce que l'acheteur peut recevoir des conseils des spécialistes de Richard Perreault Immobilier Inc. lorsqu'une RPA lui est présentée?


    16. Est-ce que les services conseils sont compris dans le montant de la commission?

      Oui. En tout temps l'acheteur peut entrer en contact avec Richard Perreault. Rien de plus normal : Richard Perreault devient en quelque sorte l'allié de l'acheteur dans sa recherche d'une RPA.


    17. Est-il possible de changer les critères de sélection en cours de route?


    18. Quelles sont les obligations de l'acheteur?


    19. Quelles sont les obligations de Richard Perreault Immobilier Inc. ?


    20. Quels sont les outils technologiques nécessaires?

      Elles sont à la fois technologiques et humaines. Technologiques : un système informatique performant et une riche banque de données... Humaines : un personnel compétent à l'affut des dernières nouvelles en matière de résidences d'aînés...


    21. Pourquoi faire confiance à Richard Perreault Immobilier Inc. pour la recherche de votre RPA?


    etc...

  • * Comment ouvrir une résidence pour personnes âgées ?
    (Agence de la santé et des services sociaux de Montréal)

    1. CLIQUEZ pour voir l'article...
<% end if %>