<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="mod.asp" -->
<%
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 "<!--" & strSQL & "-->"
		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 "<!--" & RScc.Fields(0) & "--" & DateDiff("m", RScc.Fields(0), Date) & "-->"
					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 &ecirc;tes identifi&eacute; mais votre acc&egrave;s a &eacute;t&eacute; r&eacute;voqu&eacute;"
				else 
					
					if datediff("d", RS.Fields("webDateFin"), date) > 0 then 'vérification de la fin de son accès
						vMess = "Vous &ecirc;tes identifi&eacute; 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.ID_res = v.ID_res) " & _
				"		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 "<!--" & strSQL & "-->"
		RS.Open strSQL, CNRS
			
		if  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

Public function deuxChiffre(vVal)
	if Len(vVal) =1 then
		deuxChiffre = "0"& vVal	
		else
		deuxChiffre = vVal
	end if
end function


%>

<script type="text/javascript">
function Devise()
{
	var cmb = document.getElementById("cmbDevise");
	var dd = new Date();
	dd.setMonth(dd.getMonth() + 1);
	document.cookie = "devise=" + cmb.options[cmb.selectedIndex].value + ";expires=" + dd.toDateString();
	window.location.href = unescape(window.location.pathname + "?p=<%=Request.querystring("p")%>&d=" + cmb.options[cmb.selectedIndex].value);
}
function Comptant()
{
	var cmb = document.getElementById("cmbComptant");
	var dd = new Date();
	dd.setMonth(dd.getMonth() + 1);
	document.cookie = "comptant=" + cmb.options[cmb.selectedIndex].value + ";expires=" + dd.toDateString();
}

function SetID(vID)
{
	document.getElementById("hidID").value = vID;
	return true;
}
</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html xmlns="http://www.w3.org/1999/xhtml">


<head>


<!-- Meta Data -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="keywords" content="Richard, perreault, Courtier, immobilier, vendeur, maison, centre, acheteur, investissement, gestion, residence, établissement, revue, indice, personne, age, complexe, vendre, acheter, investir, gestionnaire, investisseur" />
<meta name="description" content="Richard Perreault, Courtier immobilier affilié, spécialisé en établissements pour personnes agées." />
<meta name="author" content="Richard Perreault" />
<meta name="ROBOTS" content="ALL" />

<!-- Site Title -->
<title>Richard Perreault</title>

<!-- Link to Style External Sheet -->
<link href="css/style.css" type="text/css" rel="stylesheet" />
<link rel="icon" type="image/ico" href="images/logoRP.ico" />

 
</head>

<%Dim brp, rr,nom
brp =  Request.QueryString("brp")
 rr =  Request.QueryString("rr") 
 nom =  Request.QueryString("nom")
 
 if rr="1" then
  SendEMail EMAIL_FROM, EMAIL_TO, "","Site Rp (résidences recherches) ouvert à partir de l'envoi BRP#" & brp & " l'ach. #" & nom & " !!! ", " "
 elseif rr="2" then
  SendEMail EMAIL_FROM, EMAIL_TO, "","Site Rp (résidences à vendre) ouvert à partir de l'envoi BRP#" & brp & "  l'ach. #" & nom & " !!! ", " "
 end if
 
 
 %>
 
 
<script type="text/javascript">
function initRedir() {
window.location='http:// liste.rpaquebec.com/richardperreault/index.asp?p=mandats'   
    
}
</script>
<body onload = "initRedir()">

<div id="page_wrapper" >


<table width="100%">
<tr><td colspan="3">
<div id="header_wrapper">

<div id="header">

<h1>Richard  <font color="#FFDF8C">Perreault</font></h1>
<h2>La première étape vers un investissement performant</h2>

</div>

<div id="navcontainer">

<ul id="navlist">
<li id="active"><a href="index.asp?p=mandats" id="current">Mandats actuels</a></li>
<li><a href="indexVendus.asp?p=mandats">Vendus</a></li>
<li><a href="indexMandat.asp">Mandats acheteur</a></li>

</ul>


</div>


</div>

</td></tr>
<tr>
<td valign="top">
    <div id="left_side">
    <% Dim noBrp
				strSQL = " SELECT Last_brp FROM tblBrp" 
							 RS2.Open strSQL, CNRS					
					noBrp = RS2.Fields(0)
					RS2.Close 
					noBrp = noBrp & "Web.html"%>
    
<h3>Acheteur / Vendeur</h3>

				
<ul class='sousmenu'  >
						<li><%if Request.QueryString("p") = "mandats" then
								Response.Write "<p>Liste des mandats</p>"
							else
						Response.Write "<a href=""index.asp?p=mandats"">Liste des mandats</a>"	
						end	if					
							%></li>
								<% if Session("Perm") = 1 then  %>
							<li>
							 <a href="http:// liste.rpaquebec.com/WebResidences/Comparables.aspx?id=<%=Session("Userid")%>"  target="_blank">
							 Comparez mandats</a> 
			               
							</li>
							<%else %>
							<li>
							 <a href="http:// liste.rpaquebec.com/WebResidences/Comparables.aspx?id=1&non=1"  target="_blank">
							 Comparez mandats</a> 
			               
							</li>
							<% end if%>
						<li><%
							if Request.QueryString("p") = "motdepasse" then
								Response.Write "<p>Achat / mot de passe</p>"
							else						
								Response.Write "<a href=""indexInscr.asp?p=motdepasse"">Achat / mot de passe</a>"
							end if
							%></li>	
						<li><%
							if Request.QueryString("p") = "faq" then
								Response.Write "<p>F.A.Q.- mandat acheteur</p>"
							else						
								Response.Write "<a href=""indexFaq.asp?p=faq"">F.A.Q.- mandat acheteur</a>"
							end if
							%></li>						
						<li><%
							if Request.QueryString("p") = "vente" then
								Response.Write "<p>Vente de r&eacute;sidence</p>"
							else						
								Response.Write "<a href=""indexVente.asp?p=vente"">Vente de r&eacute;sidence</a>"
							end if
							%></li>
						<li><%
								if Request.QueryString("p") = "loyers"  then
									Response.Write "<p>Types d'hebergement</p>"
								else						
									Response.Write "<a href=""indexLoyers.asp?p=loyers"">Types d'hebergement</a>"
								end if
								%></li>
					</ul>
	
<ul class='menu'>
				
				<li><%
					if Request.QueryString("p") = "consultation" then
						Response.Write "<p>Services de consultation</p>"
					else						
						Response.Write "<a href=""indexConsult.asp?p=consultation"">Services de consultation</a>"
					end if
					%></li>
					  <li>
						<a href="http://www.richardperreault.ca/brp/<%=noBrp%>" target="_blank">
						<img src="http://aineshebergement.com/indice/images/BRP.jpg" width="190px" /></a>
						</li>
						
						 <li><%
						if Request.QueryString("p") = "revuepresse" then
							Response.Write "<p>Revue de presse</p>"
						else
						 	 Response.Write "<a href=""indexPress.asp?p=revuepresse"">Revue de presse</a>"				
						end if
						%></li>
					
				
</ul>
<h3>Chercher Mandat</h3>
<ul class='menu'>				
				<li><%	if Request.QueryString("p") = "prix" then
							Response.Write "<p>Par Prix</p>"
						else					
							Response.Write "<a href=""indexParP.asp?p=prix"">Par Prix</a>"
						end if
					
						%></li>
					<li><%
							if Request.QueryString("p") = "region" then
							Response.Write "<p>Par Région</p>"
						else						
							Response.Write "<a href=""indexParR.asp?p=region"">Par Région</a>"
						end if
						%></li>
					
</ul>
<h3>Calculez</h3>
<ul class='menu'>				
				<li><%
						if Request.QueryString("p") = "calculhypotheque" then
							Response.Write "<p>Hypoth&egrave;que</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=calculhypotheque"">Hypoth&egrave;que</a>"
						end if
						%></li>
					<li><%
						if Request.QueryString("p") = "taxemutation" then
							Response.Write "<p>Taxe de mutation</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=taxemutation&"">Taxe de mutation</a>"
						end if
						%></li>
					<li><%
						if Request.QueryString("p") = "tpstvq" then
							Response.Write "<p>TPS & TVQ</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=tpstvq"">TPS & TVQ</a>"
						end if
						%></li>
						<li><%
						if Request.QueryString("p") = "ajustements" then
							Response.Write "<p>Calcul d'ajustement</p>"
						else						
							Response.Write "<a href=""indexAjust.asp?p=ajustements"">Calcul d'ajustement</a>"
						end if
						%></li>
						<li><%
						if Request.QueryString("p") = "commentaire" then
							Response.Write "<p>Laissez vos commentaires</p>"
						else						
							Response.Write "<a href=""indexComm.asp?p=commentaire"">Laissez vos commentaires</a>"
						end if
						%></li>
</ul>
				
<%if session("user") <> "" then%>
			<div id="logged">
				<h2>Identification</h2>
				<form name="frmLogout" id="frmLogout" action="index.asp" method="post">
				<input type="hidden" name="action" id="action" value="logout">
				<p>Vous &ecirc;tes connect&eacute<br>
				   en tant que : <strong><%=Session("user")%></strong>				</p>
				<p id="errmess"><%=vMess%></p>
				<p><input type="submit" class="button" name="dologout" id="dologout" value="fermer la session" /></p>
				</form>
			</div>
			<%else%>
			<div id="login">
				<h2>Identification</h2>
				<form name="frmLogin" id="frmLogin" action="index.asp" method="post">
				<input type="hidden" name="action" id="Hidden1" value="login">
				<p>Utilisateur :
					<input type="text" class="text" name="username" id="username" value="<%=Request.Form("username")%>" size="20" />
				</p>
				<p>Mot de passe :
					<input type="password" class="text" name="password" id="password" size="20" />
				</p>
				<p><input type="submit" class="button" name="dologin" id="dologin" value="entrer" /></p>
				<p id="P1"><%=vMess%></p>
				<p id="inscription"><a href="indexInscr.asp?p=motdepasse">&lt; S'INSCRIRE &gt;</a></p>
				</form>
			</div>
			<%if vMess = "" then%> 
			<%end if%>
 		<%end if%>
 		<div style="text-align:center;">
 		<a href="http://aineshebergement.com/bottin" target="_blank">
 		<img src="http://aineshebergement.com/bottin/images/LogoBAH_194X194.jpg" width="205px" height="175px" />
 		</a>
    </div>
 		
 		
</div>
</td>

<td valign="top">
   <div id="content" >

<ul id="navlist2">
<li id="Li1"><a href="index.asp?p=mandats" id="current">A. MOINS DE 25 UNITÉS </a></li>
<li><a href="index2.asp?p=mandats" >B. ENTRE 25 ET 50 UNITÉS</a></li>
<li><a href="index3.asp?p=mandats">C. PLUS DE 50 UNITÉS</a></li>
</ul>
<form name="frmFiche" id="frmFiche" action="index.asp" method="post" target="_blank" style="border-color:Black; border-width:medium;">
<input type="hidden" name="hidcheck" id="hidcheck" value="1">
<input type="hidden" name="hidID" id="hidID" value="0">	


<%Dim Mach, RDC_AR,RDC_AR2,RDCT,RDE,RDF,RDB_AR,RDB_AR2,tDette,vVal,vVal2,vID,taux,norme1, norme2,RDF_norme1,RDF_norme2,Occloyers,RDB,RDB1,OccloyersSoins,Vacantloyers,RDC,RDE1,RDC1,RDCT1
		 %>

	<%
	
	if Len(Session("Userid"))> 0 and Session("Perm") = 1 then %>
		<%		' 25 - + terrain = ouvert, 25-50 partiel, 50+ locked  
		Mach = 0 
		if Session("Perm") = 1 then
			strSQL = _
				"SELECT	DISTINCT r.ID_res AS vID, l.ID_Listing, Hidden_Listing,Open_Listing, Nom_Listing,motPasse, ID_TypeEntreprise, " & _
				"		chUnite,final, moRevenuBrut,AutresRev,AutresRev2,VacAutresRev,VacAutresRev2, moPrix,moTauxPerteVacance, v.MainListing, " & _
				"		(SELECT Nom_Lieu FROM tblLieu WHERE ID_Lieu = r.ID_Lieu) AS [Nom_Lieu], " & _
				"		IIF(DateDiff('d', Date(), EcheanceNouveau_res) > 0, 0, 1) as vNew, " & _
				"		IIF(ID_AccesWeb IS NULL, 2, 1) as vOrd, rel.ID_Relation, rel.Signer " & _
				"FROM	(((tblSUBResidence AS r " & _
				"		INNER JOIN tblVente AS v ON r.ID_res = v.ID_res) " & _
				"		INNER JOIN (SELECT * FROM tblListing WHERE Open2_Listing = 0) 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 & _
				"			)) " & _
				"		LEFT JOIN tblRelation AS rel ON ( " & _
				"			l.ID_Listing = rel.ID_Listing " & _
				"			AND rel.ID_TypeRelation = 3 AND rel.Signer = 1 " & _
				"			AND rel.ID_ach = " & Session("Userid") & " "
			
			strSQL = strSQL & _
				"			) " & _
				"WHERE	Actif_Listing  " & _
				"ORDER BY 1 ASC "
		else
			strSQL = _
				"SELECT	r.ID_res AS vID, ID_Listing, Hidden_Listing,Open_Listing, Nom_Listing,motPasse, ID_TypeEntreprise, " & _
				"		chUnite,final, moRevenuBrut,AutresRev,AutresRev2,VacAutresRev,VacAutresRev2, moPrix,moTauxPerteVacance, v.MainListing, " & _
				"		(SELECT Nom_Lieu FROM tblLieu WHERE ID_Lieu = r.ID_Lieu) AS [Nom_Lieu], " & _
				"		IIF(DateDiff('d', Date(), EcheanceNouveau_res) > 0, 0, 1) as vNew, " & _
				"		2 as vOrd " & _
				"FROM	(tblSUBResidence AS r " & _
				"		INNER JOIN tblVente AS v ON r.ID_res = v.ID_res) " & _
				"		INNER JOIN (SELECT * FROM tblListing WHERE Open2_Listing = 0) AS l ON v.ID_Vente = l.ID_Vente " & _
				"WHERE	Actif_Listing " & _
				"ORDER BY 1 ASC "
		end if
		Response.Write "<!--" & strSQL & "-->"
		RS.Open strSQL, CNRS
		
				 %>
<table id = "picturelist" >
<tr><td>

<h4>LISTINGS ACCESSIBLES</h4>

<ul>	
		<% do while not RS.EOF
				
		if RS.Fields("chUnite")< 25 then			
		    if (Not RS.Fields("Hidden_Listing")) and  RS.Fields("vOrd") < 2  then
			%>
			    <li class="mandat">
			        <p style="color:Green;"><% 
					if RS.Fields("vNew") = 0 then
						%><img src="images/nouveau.gif" alt="Nouveau" border=0><%
					end if
					if RS.Fields("ID_TypeEntreprise") = 5 then
						%>TERRAIN<%
					Else
						%>R&Eacute;SIDENCE<% 
					end if
					
					
					if RS.Fields("Open_Listing") <> 0 then
					Mach = 1
					%>
					&nbsp;#<%= ((RS.Fields("vID") +3000) Mod 1804) + RS.Fields("vID") %>
	                <%
		            if RS.Fields("vID") < 300 then Response.Write "Z" else if   RS.Fields("vID") >1499 then Response.Write "H" else Response.Write "B" end if
	                  if Session("Userid")=1 then Response.Write "/" & RS.Fields("vID") end if
					else
					Mach =0
					%>&nbsp;#<%=RS.Fields("vID")%>
					<% if RS.Fields("Hidden_Listing") then%>C<%end if %>
					<% end if
						
							
					if RS.Fields("MainListing") <> RS.Fields("ID_Listing") then Response.Write " (Projection)" end if
					%>
					
							
					</p>
			        <div class="icons">					      
						<div>						
						<%if RS.Fields("Open_Listing") <> 0  then%>
						<a href="indexFaq.asp" target="_blank">
						<u>Mandat acheteur seulement</u> <br><br></a>
						
						<% end if%>							
					<%
						
						
                           RDB_AR2 = RS.Fields("AutresRev2")
                        RDB_AR = RS.Fields("AutresRev")                       
                        RDC_AR =0
                        RDC_AR2 =0
                         if RDB_AR = 111111 then RDB_AR =0 else RDC_AR = RDB_AR - RS.Fields("VacAutresRev")   end if
                         if RDB_AR2 = 111111 then RDB_AR2 =0 else RDC_AR2 = RDB_AR2 - RS.Fields("VacAutresRev2")end if
						
                      
							if RS.Fields("vOrd") < 2 OR RS.Fields("chUnite") < 25 then
								Response.Write "Prix: " & FormatNumber(RS.Fields("moPrix") * MD, 0, , , True) & " " & SD& "<br> " 
							end if
							Response.Write RS.Fields("Nom_Lieu") & "<br>"
							if RS.Fields("ID_TypeEntreprise") = 2 then
								Response.Write "Immeuble Vacant<br>"
								if RS.Fields("moRevenuBrut") > 0 then
									Response.Write "Revenu brut sugg&eacute;r&eacute;: " & FormatNumber((RS.Fields("moRevenuBrut")+RS.Fields("AutresRev")+RS.Fields("AutresRev2")) * MD, 0, , , True) & " " & SD & "<br>"
								end if
							elseif RS.Fields("ID_TypeEntreprise") = 5 then
								Response.write "Terrain vacant<br>"
							else
							    if RS.Fields("Open_Listing") <> 0 then
							    Response.Write "plus d'infos?(514-644-4444)"& "<br>"
							    else
								Response.Write "Revenu brut: " & FormatNumber((RS.Fields("moRevenuBrut")+RDB_AR+RDB_AR2) * MD, 0, , , True) & " " & SD & "<br>"
								end if
							end if
							
							
						%>					
						
						
						<% 
						tDette =0
						vVal = 0
				        vVal2 = 0
				        vID = RS.Fields("ID_Listing")
						strSQL = " SELECT ID_TypePret, Hypotheque_cre, TauxInteret_cre, Mensuel_cre, Amortissement_cre,ID_TypeCreancier,Date_Solde,Date_Client" & _
							 " FROM tblCreancier" & _
							 " WHERE ID_Listing = " & RS.Fields("ID_Listing") & " AND (ID_TypePret = 1  or  ID_TypePret = 2 or ID_TypePret = 4 )"
					RS2.Open strSQL, CNRS
					do while not RS2.EOF
									
						tDette = tDette + RS2.Fields("Hypotheque_cre")
						vVal2 = vVal2 + RS2.Fields("Mensuel_cre")
						taux = RS2.Fields("TauxInteret_cre")
						RS2.MoveNext
					loop
					RS2.Close
					
				RS2.Open " SELECT SUM(Valeur_Depense) as vRet FROM tblDepense WHERE Valeur_Depense <> 111111 and ID_Listing = " & vID, CNRS
				if not isnull(RS2.Fields(0)) then vVal = RS2.Fields(0)
				RS2.Close
				
				 if RS.Fields("chUnite")>50 then
        norme1 = 75
        norme2 = 85
       else
        norme1 = 65
        norme2 = 75
       end if
       
       RDF_norme1 = CalculerMensualite(norme1*RS.Fields("moPrix")/ 100,25,taux)*12
        RDF_norme2 = CalculerMensualite(norme2*RS.Fields("moPrix")/ 100,25,taux)*12
					
					%>
					
					 <% 
					RS2.Open  " SELECT SUM (Tarif)" & _
							 " FROM tblLoyers" & _
							 " WHERE Tarif <> 111111 and ID_Listing = " & vID,CNRS						
					%> 				
					<% Occloyers = 12 *  RS2.Fields(0)
					RS2.Close%>
              <% 
					RS2.Open  " SELECT SUM (Soin)" & _
							 " FROM tblLoyers" & _
							 " WHERE Soin <> 111111 and ID_Listing = " & vID,CNRS						
					%> 				
					<% OccloyersSoins = 12 *  RS2.Fields(0) 
					RS2.Close%>
					
					<% if isnull(OccloyersSoins) then OccloyersSoins=0 end if%>
					
              <% if Occloyers <> 0 then 
                RDB = Occloyers + OccloyersSoins
              else 
                RDB = RS.Fields("moRevenuBrut")
              end if%>
					  <% 
                        Vacantloyers = 0
                        RDC =0
                        RDC1=0
                
					RS2.Open  " SELECT SUM (Tarif)" & _
							 " FROM tblLoyers" & _
							 " WHERE Tarif <> 111111 and Vacante = 1 AND ID_Listing = " & vID,CNRS						
					
					 if not isnull(RS2.Fields(0)) then
					 Vacantloyers = 12 *  RS2.Fields(0)
					 end if
					 
					
					 if not isnull(RS2.Fields(0)) then
					 RDC = RDB - Vacantloyers 
					 else
					 RDC=RDB
					 end if					 
					
                    RS2.Close
                    
                      RDB1 = RDB * RS.Fields("moTauxPerteVacance")
					  RDC1 = RDB - RDB1
					
					%>
					
					 <% 
                        RDCT = RDC + RDC_AR +RDC_AR2
                         RDCT1 = RDC1 + RDC_AR +RDC_AR2
                        RDE = RDCT - vVal 
                        RDE1 = RDCT1 - vVal
                        RDF = vVal2 * 12 %>
					
					
					<%if  RDE <> 0 and RDF_norme1 <>0 then 
					if RS.Fields("Open_Listing") = 0 then
					Response.Write "Net(avant hyp.) : " & FormatNumber(RDE1 * MD, 0, , , True) & " " & SD & "<br>"
					end if%>	
					 <table  border="0"  cellspacing="0" cellpadding="0">
        <tr bgcolor = "#DDDDDD">
          <td ><%Response.Write "Financement" %></td> 
          <td>&nbsp; /&nbsp; </td>             
             <td><%Response.Write "Ratio c.d.d. "%></td>
        </tr>
         <tr bgcolor = "#DDDDDD">   
          <td align ="center" ><%  Response.Write ""& norme1& "%"%></td> 
           <td>--></td>
            <td align ="center" ><% Response.Write ""& FormatNumber(Div0(RDE,RDF_norme1), 2, , , true)%></td> 
         
                    
        </tr>        
        <tr bgcolor = "#DDDDDD">
             <td align ="center"  ><%  Response.Write ""& norme2& "%"%></td>
              <td>--></td>            
              <td align ="center" ><% Response.Write ""& FormatNumber(Div0(RDE,RDF_norme2), 2, , , true)%></td> 
              
        </tr>
        
        <tr>
          <td colspan="3" bgcolor="#CCCCCC"><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>
         <tr>
           <td colspan="3" >
                     <table  border="0"  cellspacing="0" cellpadding="0">
                        <tr>
                            <td > <% Response.Write "MRN:&nbsp;  "%></td>
                            <td align = "right" > <%Response.Write FormatNumber(Div0(RS.Fields("moPrix"),RDE1), 2, , , true)&"(a1) /&nbsp; "%></td>                       
                          
                            <td align = "right" > <%Response.Write FormatNumber(Div0(RS.Fields("moPrix"),RDE), 2, , , true)&"(a2)"%></td>
                        </tr>
                    </table>
           
          
           </td> 
                                  
        </tr>
        
        </table>
					
					<%  end if%>				
							
						<% resid = RS.Fields("vID")
				if RS.Fields("vOrd") < 2  then 
							%>
							<br />	
							<input type="image" name="full" id="Image5" onclick="return SetID(<%=RS.Fields("ID_Listing")%>);" 
							src="images/ico_unlock.jpg" alt="Fiche complète disponible"><font color = "green">Listing sommaire</font>
							<br />
							
							<% Dim dosC,myDate
						myDate =Year(Date())& deuxChiffre(Month(Date()))& deuxChiffre(Day(Date())+14)							
						dosC=0
						 	 
							RS2.Open   "select ID_Relation from tblRelation where ID_Ach = " & Session("Userid") &_
							 " and iD_TypeRelation =4 and Date_Relation > Date()-30	and ID_Listing = " & vID,CNRS					
					if (RS2.EOF And RS2.BOF) then 
						dosC=0
					elseif not isnull(RS2.Fields(0)) then
						dosC = RS2.Fields(0)
						
						end if						
                    RS2.Close
                   
                        if dosC <>0 then
                         %>
                        
						<a href="ficheFB.asp?mpasse=<%=RS.Fields("motPasse")%>&mtp=<%=myDate%>&ida=<%=Session("Userid")%>">
							 <img src="images/iconFolder.jpg" width="22" height="20" alt="Fiche complète" border = "1"></a>								
						<font color = "green">Listing complet </font><br />	
						<%else %>		
							<%if Isnull(RS.Fields("ID_Relation")) and Session("Userid")<>1  then	%>							
							    <a href="indexRapport.asp?p=rapport&id=<%=RS.Fields("ID_Listing")%>&resid=<% =RS.Fields("vID")%>&ids=<%=Session("Userid")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>">								
							<%elseif Session("Userid")=1 then%>
								<a href="indexRapport.asp?p=rapport&id=<%=RS.Fields("ID_Listing")%>&resid=<% =RS.Fields("vID")%>&usid=<% =RS.Fields("motPasse")%>&ids=<% =Session("Userid")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>">	
							<% elseif Mach =1 then %>
								<a href="indexRapport.asp?p=rapport&id=<%=RS.Fields("ID_Listing")%>&resid=<% =RS.Fields("vID")%>&ids=<% =Session("Userid")%>&ids2=111&mac=<%=lettreID() & lettreOpen(lettreID()) %>">							
							<%else %>								
								<a href="indexRapport.asp?p=rapport&id=<%=RS.Fields("ID_Listing")%>&resid=<% =RS.Fields("vID")%>&ids=<% =Session("Userid")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>">	
							<%end if%>
							
							<img src="images/iconFolder.jpg" width="22" height="20" alt="Fiche complète" border = "0"></a>							
								
						<font color = "green">Listing complet </font><br />
						
					    <% end if	%>
					<% end if	%>
					
				
					<a href="http:// liste.rpaquebec.com/WebResidences/ListingNet.aspx?id=<%=RS.Fields("ID_Listing")%>&idAch=<% =Session("Userid")%>">
					<img src="images/ico_proj.jpg" width="22" height="20" alt="Fiche complète" border = "0">	
						<font color = "green">Faites vos projections !</font></a>
						<%if RS.Fields("Open_Listing")= 0  then%>
					 <br />&nbsp; <br />
						<% end if%>
						</div>
						<% if RS.Fields("vOrd") = 1 then%>
							<%
							if Isnull(RS.Fields("ID_Relation")) then
								%><div >
								<a href="entente.asp?id=<%=RS.Fields("vID")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>" target="_blank">								
								<img src="images/ico_entente.jpg" alt="Entente de confidentialit&eacute;" border="0"></a>
								 <font color = "Black">Entente de confidentialité
								</font> 
								</div><%
							else
								%><div class="ecsigned">
								Entente de confidentialité <br />
								<a href="entente.asp?id=<%=RS.Fields("vID")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>" target="_blank"><a href="entente.asp?id=<%=RS.Fields("vID")%>&mac=<%=lettreID() & lettreOpen(lettreID()) %>" target="_blank">
								<img src="images/ico_entente.jpg" border=0 alt="Entente de confidentialit&eacute;"></a></a>
								&nbsp;(sign&eacute;e)<%
							end if
						end if
						%>
													
					</div>
				
										
					</div>
										
		        </li>
		        	
		<%end if			
			end if
			RS.MoveNext
		loop
		RS.Close
	
		%>
</ul>	

</td></tr></table>			
<%end if %>
	
		<%		' 25 - + terrain = ouvert, 25-50 partiel, 50+ locked  
		Mach = 0 
		if Session("Perm") = 1 then
			strSQL = _
				"SELECT	DISTINCT r.ID_res AS vID, l.ID_Listing, Hidden_Listing,Open_Listing, Nom_Listing,motPasse, ID_TypeEntreprise, " & _
				"		chUnite,final, moRevenuBrut,AutresRev,AutresRev2,VacAutresRev,VacAutresRev2, moPrix,moTauxPerteVacance, v.MainListing, " & _
				"		(SELECT Nom_Lieu FROM tblLieu WHERE ID_Lieu = r.ID_Lieu) AS [Nom_Lieu], " & _
				"		IIF(DateDiff('d', Date(), EcheanceNouveau_res) > 0, 0, 1) as vNew, " & _
				"		IIF(ID_AccesWeb IS NULL, 2, 1) as vOrd, rel.ID_Relation, rel.Signer " & _
				"FROM	(((tblSUBResidence AS r " & _
				"		INNER JOIN tblVente AS v ON r.MainVente = v.ID_Vente) " & _
				"		INNER JOIN (SELECT * FROM tblListing WHERE Open2_Listing = 0) 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 & _
				"			)) " & _
				"		LEFT JOIN tblRelation AS rel ON ( " & _
				"			l.ID_Listing = rel.ID_Listing " & _
				"			AND rel.ID_TypeRelation = 3 AND rel.Signer = 1 " & _
				"			AND rel.ID_ach = " & Session("Userid") & " "
			
			strSQL = strSQL & _
				"			) " & _
				"WHERE	Actif_Listing  " & _
				"ORDER BY 1 ASC "
		else
			strSQL = _
				"SELECT	r.ID_res AS vID, ID_Listing, Hidden_Listing,Open_Listing, Nom_Listing,motPasse, ID_TypeEntreprise, " & _
				"		chUnite,final, moRevenuBrut,AutresRev,AutresRev2,VacAutresRev,VacAutresRev2, moPrix,moTauxPerteVacance, v.MainListing, " & _
				"		(SELECT Nom_Lieu FROM tblLieu WHERE ID_Lieu = r.ID_Lieu) AS [Nom_Lieu], " & _
				"		IIF(DateDiff('d', Date(), EcheanceNouveau_res) > 0, 0, 1) as vNew, " & _
				"		2 as vOrd " & _
				"FROM	(tblSUBResidence AS r " & _
				"		INNER JOIN tblVente AS v ON r.MainVente = v.ID_Vente) " & _
				"		INNER JOIN (SELECT * FROM tblListing WHERE Open2_Listing = 0) AS l ON v.ID_Vente = l.ID_Vente " & _
				"WHERE	Actif_Listing " & _
				"ORDER BY 1 ASC "
		end if
		Response.Write "<!--" & strSQL & "-->"
		RS.Open strSQL, CNRS
		
				 %>
<table id = "picturelist">
<tr><td>			
		<h1>
			LISTINGS VISIBLES SANS ACCÈS CLIENT
		</h1>
<ul>			
		
		<%do while not RS.EOF				
				
				 if RS.Fields("chUnite")< 25 then
				 
				  if (Not RS.Fields("Hidden_Listing")) and RS.Fields("vOrd") = 2   then
					%>
				
		<li class="mandat">
					<p style="color:Green;"><% 
					if RS.Fields("vNew") = 0 then
						%><img src="images/nouveau.gif" alt="Nouveau" border=0><%
					end if
					if RS.Fields("ID_TypeEntreprise") = 5 then
						%>TERRAIN<%
					Else
						%><img src="images/ico_lock.jpg" alt="Nouveau" border=0>R&Eacute;SIDENCE<% 
					end if
					
					
					if RS.Fields("Open_Listing") <> 0 then
					Mach = 1
					%>
					&nbsp;#<%= ((RS.Fields("vID") +3000) Mod 1804) + RS.Fields("vID") %>
	                <%
		            if RS.Fields("vID") < 300 then Response.Write "Z" else if   RS.Fields("vID") >1499 then Response.Write "H" else Response.Write "B" end if
	                  if Session("Userid")=1 then Response.Write "/" & RS.Fields("vID") end if
					else
					Mach =0
					%>&nbsp;#<%=RS.Fields("vID")%>
					<% if RS.Fields("Hidden_Listing") then%>C<%end if %>
					<% end if
						
							
					if RS.Fields("MainListing") <> RS.Fields("ID_Listing") then Response.Write " (Projection)" end if
					%>	
					
					</p>
					<div class="icons">
					      
						<div>
						
						<%if RS.Fields("Open_Listing") <> 0  then%>
						<a href="indexFaq.asp?p=faq" target="_blank">
						<u>Mandat acheteur seulement</u> <br><br></a>
						
						<% end if%>
							
					<%
						
						
                           RDB_AR2 = RS.Fields("AutresRev2")
                        RDB_AR = RS.Fields("AutresRev")                       
                        RDC_AR =0
                        RDC_AR2 =0
                         if RDB_AR = 111111 then RDB_AR =0 else RDC_AR = RDB_AR - RS.Fields("VacAutresRev")   end if
                         if RDB_AR2 = 111111 then RDB_AR2 =0 else RDC_AR2 = RDB_AR2 - RS.Fields("VacAutresRev2")end if
						
                      
							if RS.Fields("vOrd") < 2 OR RS.Fields("chUnite") < 25 then
								Response.Write "Prix: " & FormatNumber(RS.Fields("moPrix") * MD, 0, , , True) & " " & SD& "<br> " 
							end if
							Response.Write RS.Fields("Nom_Lieu") & "<br>"
							if RS.Fields("ID_TypeEntreprise") = 2 then
								Response.Write "Immeuble Vacant<br>"
								if RS.Fields("moRevenuBrut") > 0 then
									Response.Write "Revenu brut sugg&eacute;r&eacute;: " & FormatNumber((RS.Fields("moRevenuBrut")+RS.Fields("AutresRev")+RS.Fields("AutresRev2")) * MD, 0, , , True) & " " & SD & "<br>"
								end if
							elseif RS.Fields("ID_TypeEntreprise") = 5 then
								Response.write "Terrain vacant<br>"
							else
							    if RS.Fields("Open_Listing") <> 0 then
							    Response.Write "plus d'infos?(514-644-4444)"& "<br>"
							    else
								Response.Write "Revenu brut: " & FormatNumber((RS.Fields("moRevenuBrut")+RDB_AR+RDB_AR2) * MD, 0, , , True) & " " & SD & "<br>"
								end if
							end if
							
							
						%>					
						
						
						<% 
						tDette =0
						vVal = 0
				        vVal2 = 0
				        vID = RS.Fields("ID_Listing")
						strSQL = " SELECT ID_TypePret, Hypotheque_cre, TauxInteret_cre, Mensuel_cre, Amortissement_cre,ID_TypeCreancier,Date_Solde,Date_Client" & _
							 " FROM tblCreancier" & _
							 " WHERE ID_Listing = " & RS.Fields("ID_Listing") & " AND (ID_TypePret = 1  or  ID_TypePret = 2 or ID_TypePret = 4 )"
					RS2.Open strSQL, CNRS
					do while not RS2.EOF
									
						tDette = tDette + RS2.Fields("Hypotheque_cre")
						vVal2 = vVal2 + RS2.Fields("Mensuel_cre")
						taux = RS2.Fields("TauxInteret_cre")
						RS2.MoveNext
					loop
					RS2.Close
					
				RS2.Open " SELECT SUM(Valeur_Depense) as vRet FROM tblDepense WHERE Valeur_Depense <> 111111 and ID_Listing = " & vID, CNRS
				if not isnull(RS2.Fields(0)) then vVal = RS2.Fields(0)
				RS2.Close
				
				 if RS.Fields("chUnite")>50 then
        norme1 = 75
        norme2 = 85
       else
        norme1 = 65
        norme2 = 75
       end if
       
       RDF_norme1 = CalculerMensualite(norme1*RS.Fields("moPrix")/ 100,25,taux)*12
        RDF_norme2 = CalculerMensualite(norme2*RS.Fields("moPrix")/ 100,25,taux)*12
					
					%>
					
					 <% 
					RS2.Open  " SELECT SUM (Tarif)" & _
							 " FROM tblLoyers" & _
							 " WHERE Tarif <> 111111 and ID_Listing = " & vID,CNRS						
					%> 				
					<% Occloyers = 12 *  RS2.Fields(0)
					RS2.Close%>
              <% 
					RS2.Open  " SELECT SUM (Soin)" & _
							 " FROM tblLoyers" & _
							 " WHERE Soin <> 111111 and ID_Listing = " & vID,CNRS						
					%> 				
					<% OccloyersSoins = 12 *  RS2.Fields(0) 
					RS2.Close%>
					
					<% if isnull(OccloyersSoins) then OccloyersSoins=0 end if%>
					
              <% if Occloyers <> 0 then 
                RDB = Occloyers + OccloyersSoins
              else 
                RDB = RS.Fields("moRevenuBrut")
              end if%>
					  <% 
                        Vacantloyers = 0
                        RDC =0
                        RDC1=0
                
					RS2.Open  " SELECT SUM (Tarif)" & _
							 " FROM tblLoyers" & _
							 " WHERE Tarif <> 111111 and Vacante = 1 AND ID_Listing = " & vID,CNRS						
					
					 if not isnull(RS2.Fields(0)) then
					 Vacantloyers = 12 *  RS2.Fields(0)
					 end if
					 
					
					 if not isnull(RS2.Fields(0)) then
					 RDC = RDB - Vacantloyers 
					 else
					 RDC=RDB
					 end if					 
					
                    RS2.Close
                    
                      RDB1 = RDB * RS.Fields("moTauxPerteVacance")
					  RDC1 = RDB - RDB1
					
					%>
					
					 <% 
                        RDCT = RDC + RDC_AR +RDC_AR2
                         RDCT1 = RDC1 + RDC_AR +RDC_AR2
                        RDE = RDCT - vVal 
                        RDE1 = RDCT1 - vVal
                        RDF = vVal2 * 12 %>
					
					
					<%if  RDE <> 0 and RDF_norme1 <>0 then 
					if RS.Fields("Open_Listing") = 0 then
					Response.Write "Net(avant hyp.) : " & FormatNumber(RDE1 * MD, 0, , , True) & " " & SD & "<br>"
					end if%>	
					 <table  border="0"  cellspacing="0" cellpadding="0">
        <tr bgcolor = "#DDDDDD">
          <td ><%Response.Write "Financement" %></td> 
          <td>&nbsp; /&nbsp; </td>             
             <td><%Response.Write "Ratio c.d.d. "%></td>
        </tr>
         <tr bgcolor = "#DDDDDD">   
          <td align ="center" ><%  Response.Write ""& norme1& "%"%></td> 
           <td>--></td>
            <td align ="center" ><% Response.Write ""& FormatNumber(Div0(RDE,RDF_norme1), 2, , , true)%></td> 
         
                    
        </tr>        
        <tr bgcolor = "#DDDDDD">
             <td align ="center"  ><%  Response.Write ""& norme2& "%"%></td>
              <td>--></td>            
              <td align ="center" ><% Response.Write ""& FormatNumber(Div0(RDE,RDF_norme2), 2, , , true)%></td> 
              
        </tr>
        
        <tr>
          <td colspan="3" bgcolor="#CCCCCC"><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>
         <tr>
           <td colspan="3" >
                     <table  border="0"  cellspacing="0" cellpadding="0">
                        <tr>
                            <td > <% Response.Write "MRN:&nbsp;  "%></td>
                            <td align = "right" > <%Response.Write FormatNumber(Div0(RS.Fields("moPrix"),RDE1), 2, , , true)&"(a1) /&nbsp; "%></td>                       
                          
                            <td align = "right" > <%Response.Write FormatNumber(Div0(RS.Fields("moPrix"),RDE), 2, , , true)&"(a2)"%></td>
                        </tr>
                    </table>
           
          
           </td> 
                                  
        </tr>
        
        </table>
					
					<%  end if%>
					 <div class="icons">
						
							<input type="image" name="part" id="Image14" onclick="return SetID(<%=RS.Fields("ID_Listing")%>);"
							 src="images/ico_half.jpg" alt="Fiche sommaire disponible"><font color = "#C03000">Listing sommaire</font>
						<br />
							
								<a href="indexRapport.asp?p=rapport&id=<%=RS.Fields("ID_Listing")%>&resid=<% =RS.Fields("vID")%>">	
							  
							<img src="images/iconFolder.jpg" width="22" height="20" alt="Fiche complète" border = "0">							
								
						<font color = "#C03000">Listing complet </font></a><br />
					
						</div>
						
				
					 <a href="default.asp?p=motdepasse" target="_blank">
					
						<img src="images/ico_proj.jpg" width="22" height="20" alt="Fiche complète" border = "0">	
						<font color = "green">Faites vos projections !</font></a>
						
					
						<%if RS.Fields("Open_Listing")= 0  then%>
					<a href="indexFaq.asp?p=faq" target="_blank">
						&nbsp;<br><br /></a>
						<% end if%>
													
					
					</div>
					
					</div>
					
		</li>
		
		    
		<%end if			
			end if
			RS.MoveNext
		loop
		RS.Close
	
		%>
</ul>
</td>
</tr>
</table>		

		<% EndConnect	 %>
			
			
</form>	


</div> 
</td>

<td valign="top">
    <div id="right_side">

<h3>Qui suis-je ?</h3>
<ul class='menu'>				
				<li><h5><a href="indexQui.asp" target="_self">Profil professionel</a></h5></li>
				<li>
				    <a href="http://www.linkedin.com/profile/view?id=17033983&locale=en_US&trk=tyah" target="_blank">
				    <img src= "images/linkedin.png" width="70px"; /></a>&nbsp;&nbsp;&nbsp;&nbsp;
				    <a href="http://www.facebook.com/group.php?gid=73435300398" target="_blank">
				<img src= "images/fbook.jpg" width="70px"; /></a>
				   
				</li>
				
			
</ul>

<h3>Contacts</h3>
<div class='menu'>
<a href="indexComm.asp">
			FAX : (514) 644-9722<br/>
			BUR. : (514) 644-4444<br />
			rp@aineshebergement.com</a><br/><br/>


  <a href="http://maps.google.ca/maps?q=+400+St-Jacques+O,Montr%C3%A9al,+QC.,+H2Y+1S1&hl=fr&ie=UTF8&sll=45.501595,-73.55999&sspn=0.049991,0.077162&vpsrc=0&hnear=Rue+Saint-Jacques+Ouest,+Montr%C3%A9al,+Communaut%C3%A9-Urbaine-de-Montr%C3%A9al,+Qu%C3%A9bec&t=m&z=16" style="color:#0000FF;text-align:left" target="_blank">
                    <img src= "images/Gmaps.png" width="190px"; />
		 400 St-Jacques O, #300<br />	Montréal, QC., H2Y 1S1</a><br/>

</div>
<h3>Liens utiles</h3>
<table>
 <tr><td colspan="2"><a href="indexDoc.asp"><img src="/images/dlr.jpg" height="80px" width="190px" ></a>
			</td></tr>
			<tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>	
	        <tr><td colspan="2"><a href="http://www.rbq.gouv.qc.ca/" target="_blank"><img src="/images/regieB.png" height="80px" width="190px" ></a>
			</td></tr>
			<tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>	
			<tr><td colspan="2"><a href="http://logietre.com" target="_blank"><img src="/images/cNormes.jpg" width="190px" ></a>
			</td></tr>
			 <tr>
		            <td align = "center"><a href="http://logietre.cyprex.com/docs/Documents/cahiernormes9.pdf" target="_blank">
			        <font size="-3" color="blue">9 unités et moins</font> <img src="images/logietre9.png" width="65px" height="70px" alt="Richard Perreault"  border=0></a>
			       
			        </td>
		            <td align = "center">
		           <a href="http://logietre.cyprex.com/docs/Documents/cahiernormes9.pdf" target="_blank">
			        <font size="-3" color="blue" >10 unités et plus</font>  <img src="images/logietre10.png" width="65px" height="70px" alt="Richard Perreault"  border=0></a>
			      
		           </td>		            
	            </tr>
	            <tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>
	            <tr><td colspan="2"><a href="http://wpp01.msss.gouv.qc.ca/appl/K10/certification/K10CertFonctionnement.asp" target="_blank">
				<img src="/images/Certification.bmp" height="170px" width="190px" ></a>
			</td></tr>
	            </table>


</div>
</td>
</tr>
</table>


<%end if %>

</div>

</body>

</html>
<!--<a href="http://maps.google.ca/maps?f=q&amp;source=embed&amp;hl=fr&amp;geocode=&amp;q=Montr%C3%A9al,+QC+H2Y+1S1&amp;aq=0&amp;sll=45.513805,-73.615952&amp;sspn=0.199921,0.308647&amp;vpsrc=0&amp;dirflg=r&amp;ttype=now&amp;noexp=0&amp;noal=0&amp;sort=def&amp;ie=UTF8&amp;hq=&amp;hnear=Montr%C3%A9al,+Qu%C3%A9bec+H2Y+1S1&amp;t=m&amp;ll=45.501595,-73.55999&amp;spn=0.009024,0.016651&amp;z=14&amp;iwloc=A" style="color:#0000FF;text-align:left" target="_blank">
<img src= "images/mapRP.jpg" width="90px"; /></a>-->
<!--
<iframe width="195" height="170" frameborder="0" scrolling="no" marginheight="10px" marginwidth="10px" 
src="http://maps.google.ca/maps?f=q&amp;source=s_q&amp;hl=fr&amp;geocode=&amp;q=Montr%C3%A9al,+QC+H2Y+1S1&amp;aq=0&amp;sll=45.513805,-73.615952&amp;sspn=0.199921,0.308647&amp;vpsrc=0&amp;dirflg=r&amp;ttype=now&amp;noexp=0&amp;noal=0&amp;sort=def&amp;ie=UTF8&amp;hq=&amp;hnear=Montr%C3%A9al,+Qu%C3%A9bec+H2Y+1S1&amp;t=m&amp;ll=45.501595,-73.55999&amp;spn=0.009024,0.016651&amp;z=14&amp;iwloc=A&amp;output=embed"></iframe>
<br /><small></small>-->
<!-- 
 style="border-color:Blue; border-style:solid;"
 
 	
				<!--<li><h5><a href="indexQui.asp#anchor2" target="_self">Ses qualifications</a></h5></li>	
				<li><h5><a href="indexQui.asp#anchor3" target="_self">Son champ d'expertise</a></h5></li>
				<li><h5><a href="indexQui.asp#anchor4" target="_self">L'étendue de ses activités</a></h5></li>
				
				<li><h5><a href="indexQui.asp#anchor3" target="_self"> Expertise qui dépasse le milieu québécois</a></h5></li>
				<li><h5><a href="indexQui.asp#anchor6" target="_self">Champs d'intérêts complémentaires</a></h5></li>
				<li><h5><a href="indexQui.asp#anchor7" target="_self">En conclusion</a></h5></li>-->
				
				
<!--<img src="img/sollicit.jpg" width="155" height="250"  alt="Equipe RP" />-->

<!--<script language="JavaScript">
     function InitializeService(){
      service.useService("http:// liste.rpaquebec.com/WebResidences/MyWebService.asmx?wsdl",
      "PiedToMetreService");
     }
     var PiedValue;
     function PiedToMetre(){
      PiedValue = document.DemoForm.StringPiedValue.value;
     
      service.PiedToMetreService.callService("PiedToMetre", PiedValue);
     }
     function ShowResult(){
    alert(event.result.value);
      }
     </script>-->
     
     <!-- <form name="DemoForm">
       Pied : <input type="text" name="StringPiedValue"/>
       <button onclick="PiedToMetre()">Get metres</button>
      </form>
      
      <STYLE>
/* Link all DIVs with a CLASS of "fly" to the "flyin" component */
DIV.fly { behavior: url("flyin.htc"); }
</STYLE>
      -->

<!--<form action="http:// liste.rpaquebec.com/WebResidences/MyWebService.asmx/PiedToMetre" method="post" target="_blank">
<table>
  <tr>
    <td>Pied - Mettre:</td>
    <td>
    <input class="frmInput" type="text" size="10" name="PiedValue">
    </td>
  </tr>
  <tr>
    <td></td>
    <td align="right">
     <input type="submit" value="Submit" class="button">
     </td>
  </tr>
</table>

</form>-->

    <!-- <form  method="get" action="http://www.google.com/search">
<table border="0" cellpadding="0">
<tr><td align="center">
<input type="text"   name="q" size="20"
 maxlength="155" value="" />
<input type="submit" value="Google Search" /></td></tr>
</table>


</form>-->