<%if Request.QueryString("p") <> "" then _ Response.Write ucase(left(Request.QueryString("p"), 1)) & lcase(mid(Request.QueryString("p"), 2)) & " :: "%> Richard Perreault, Courtier immobilier affilié, spécialisé en établissements pour personnes agées,centre d'hébergement

<%@ Language=VBScript %><% Option Explicit Response.Buffer = true %><% Dim RS2 : Set RS2 = Server.CreateObject("ADODB.Recordset") Dim sesid select case Request.Form("action") case "login": if Request.Form("username") <> "" then ConnectRS '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 EndConnect end if case "logout": Session.Abandon Response.Redirect "default.asp" end select %> <%if Request.QueryString("p") <> "" then _ Response.Write ucase(left(Request.QueryString("p"), 1)) & lcase(mid(Request.QueryString("p"), 2)) & " :: "%> Richard Perreault, Courtier immobilier affilié, spécialisé en établissements pour personnes agées,centre d'hébergement

ENGLISH / Google traduction

<% if Request.QueryString("p") = "quisuisje" then Response.Write "
qui suis-je ?
" else Response.Write "Qui suis-je ?" end if %>
Acheteur / Vendeur
- <% if Request.QueryString("p") = "mandats" then Response.Write "
  liste des mandats
  " else if (Session("Perm") = 1 and Session("Userid") = 1) then Response.Write "liste des mandats" else Response.Write "liste des mandats" end if end if %>
  - <% if Request.QueryString("p") = "mandats#anchor1" then Response.Write "
    moins de 25 unités
    " else if (Session("Perm") = 1 and Session("Userid") = 1) then Response.Write "1 à 24 unités" else Response.Write "1 à 24 unités" end if end if %>
  - <% if Request.QueryString("p") = "mandats#anchor2" then Response.Write "
    entre 25 et 50 unités
    " else if (Session("Perm") = 1 and Session("Userid") = 1) then Response.Write "25 à 50 unités" else Response.Write "25 à 50 unités" end if end if %>
  - <% if Request.QueryString("p") = "mandats#anchor3" then Response.Write "
    plus de 50 unités
    " else if (Session("Perm") = 1 and Session("Userid") = 1) then Response.Write "51 unités et +" else Response.Write "51 unités et +" end if end if %>
  - " target="_blank"> Comparez mandats
  - <% if Request.QueryString("p") = "mandats#anchor4" then Response.Write "
    non accessibles
    " else if (Session("Perm") = 1 and Session("Userid") = 1) then Response.Write "non accessibles" else Response.Write "non accessibles" end if end if %>
- <% if Request.QueryString("p") = "comparables" then Response.Write "
  vendus
  " else Response.Write "vendus" end if %>
- <% if Request.QueryString("p") = "mandatsAch" then Response.Write "
  mandats cc-ac
  " else Response.Write "mandats acheteur" end if %>
  - <% if Request.QueryString("p") = "faq" then Response.Write "
    F.A.Q.
    " else Response.Write "F.A.Q." 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") = "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") = "ccach" then Response.Write "
  contrat de courtage
  " else Response.Write "contrat de courtage" end if %> <% 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") = "chroniqueRp" then Response.Write "
chronique
" else Response.Write "Chronique" end if %>
<% if Request.QueryString("p") = "revuepresse" then Response.Write "
Revue de presse
" else Response.Write "Revue de presse" end if %>
<% if Request.QueryString("p") = "contacts" then Response.Write "
contacts
" else Response.Write "Contacts" end if %>

Calcul

<% 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") = "taxetpstvq" then Response.Write "
Calcul de la TPS & TVQ
" else Response.Write "Calcul de la TPS & TVQ" end if %>
<% if Request.QueryString("p") = "ajustements" then Response.Write "
Calcul d'ajustements
" else Response.Write "Calcul d'ajustements" 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

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

<% 'if Request.ServerVariables("REMOTE_ADDR") = "66.131.186.137" then......mailto:rp@aineshebergement.com?subject=Inscription :richarperreault.ca&cc=mcouture@aineshebergement.com&body=Je veux obtenir un nom d'utilisateur ainsi qu'un mot de passe, pour voir les fiches decriptive.Merci" if Request.QueryString("p") = "" then Server.Execute "accueil.html" else on error resume next Server.Execute Request.QueryString("p") & ".asp" if err <> 0 then Response.Write "

La page à laquelle vous tentez d'accéder n'existe pas.

" err.Clear end if on error goto 0 end if %>

400 St-Jacques O., SUITE 300 • MONTRÉAL, QC • H2Y 1S1 • FAX : (514) 644-9722 • BUR. : (514) 644-4444
Heures d'affaires: du lundi au vendredi de 8h30 à 16h30