<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="mod.asp" -->
<%
Dim RS2 : Set RS2 = Server.CreateObject("ADODB.Recordset")
Dim sesid,vID,res,mp,sesid2,sesid3,mac,username, mpasse
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


%>

<%

function DateForm2(vDat)
	dim Days, Months, strReturn
	Days = array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
	Months = array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")

	strReturn = ""
	strReturn = strReturn & Day(vDat) & " "
	strReturn = strReturn & Months(Month(vDat) - 1) & " "
	strReturn = strReturn & Year(vDat) & " ["
	strReturn = strReturn & right(FormatNumber(Hour(vDat) / 100, 2), 2) & ":" & right(FormatNumber(Minute(vDat) / 100, 2), 2) & "]"
		
	DateForm2 = strReturn
end Function

 
 mp = 0
 res = Request.QueryString("resid")
 vID = Request.QueryString("id")
  mp = Request.QueryString("usid") 
   sesid = Request.QueryString("ids")
     sesid2 = Request.QueryString("ids2")
     sesid3 = Request.QueryString("ids3")
     mac = Request.QueryString("mac")
Dim ShowContentA 'As Boolean											'Should the form be Displayed
ShowContentA = True	

												'The form should be displayed

if Request.Form <> "" then											'If there is data in the request.form
	dim vSubject
	dim vContent
	dim vData
	dim vName
	dim vLocs
	dim vLocsID
	dim vTab
	dim vCourriel
	dim vPrenom
	dim vNom
	dim vRes
	dim vUsid

    vMess = ""
    
    vRes =  Request.Form("res")
    vUsid = Request.Form("ach")
    
    if Len(vUsid) =0   then vUsid = "Anonyme" end if
	vName = Trim(vPrenom & " " & vNom)
	  if sesid2="111" and  sesid3="111"  then
	vSubject = "Listing complet (" & res &" / Mandat Acheteur seulement) par #"& vUsid & " (Acheteur sans acces à cette fiche)  " 
	elseif sesid2="111" then
	vSubject = "Listing complet (" & res &" / Mandat Acheteur seulement) par #"& vUsid & "  " 
	elseif sesid3="111" then
	vSubject = "Listing complet (" & res &") par #"& vUsid & " (Acheteur sans acces à cette fiche) " 
	else
	vSubject = "Listing complet (" & vRes &") par "& vName & "( # "& vUsid  &")" 
       
	end if
	vContent = ""	
	vData = Now & chr(20)

	
		vData = vData & vPrenom & chr(20)	
		vData = vData & vNom & chr(20)
	

	vContent = vContent & "<html><head><style>.txtField {FONT-WEIGHT: bold;FONT-SIZE: 9pt;COLOR: #002b55}</style></head><body bgcolor=""#ffffff"" leftmargin=""15"" topmargin=""10"" marginwidth=""0"" marginheight=""0"" style=""SCROLLBAR-FACE-COLOR: #002b55; SCROLLBAR-3DLIGHT-COLOR: #c3cdd7; SCROLLBAR-ARROW-COLOR: #c3cdd7; SCROLLBAR-TRACK-COLOR: #c3cdd7; SCROLLBAR-DARKSHADOW-COLOR: #c3cdd7; FONT-FAMILY: sans-serif;FONT-SIZE: 10pt"">" & vbcrlf
		

	if Request.Form("rapportComplet") = "on" then
		vContent = vContent & "<br><br><strong>Listing complet</strong><br>"
	end if
	vData = vData & Request.Form("rapportComplet") & chr(20)
	
	if Request.Form("Photos") = "on" then
		vContent = vContent & "<strong>Photos</strong><br>"
	end if
	vData = vData & Request.Form("Photos") & chr(20)
	
	if Request.Form("EtudeS") = "on" then
		vContent = vContent & "<strong>Étude du marché SCHL</strong><br>"
	end if
	vData = vData & Request.Form("EtudeS") & chr(20)
	
	if Request.Form("EtudeM") = "on" then
		vContent = vContent & "<strong>Étude du marché privé</strong><br>"
	end if
	vData = vData & Request.Form("EtudeM") & chr(20)
	
	if Request.Form("EvalA") = "on" then
		vContent = vContent & "<strong>Évaluation agréé</strong><br>"
	end if
	vData = vData & Request.Form("EvalA") & chr(20)
	
	if Request.Form("DeclVendeur") = "on" then
		vContent = vContent & "<strong>Declaration du vendeur</strong><br>"
	end if
	vData = vData & Request.Form("DeclVendeur") & chr(20)
	
	if Request.Form("InspectB") = "on" then
		vContent = vContent & "<strong>Inspection bâtiment</strong><br>"
	end if
	vData = vData & Request.Form("InspectB") & chr(20)
	
	if Request.Form("EtudeEnv") = "on" then
		vContent = vContent & "<strong>Étude environnementale</strong><br>"
	end if
	vData = vData & Request.Form("EtudeEnv") & chr(20)
	
	if Request.Form("PlanEvac") = "on" then
		vContent = vContent & "<strong>Plan d'évacuation</strong><br>"
	end if
	vData = vData & Request.Form("PlanEvac") & chr(20)
	
	if Request.Form("CerLoc") = "on" then
		vContent = vContent & "<strong>Certificat localisation</strong><br>"
	end if
	vData = vData & Request.Form("CerLoc") & chr(20)
	
	
	if Request.Form("AssPret") = "on" then
		vContent = vContent & "<strong>Acte d'assurance hypothécaire SCHL</strong><br>"
	end if
	vData = vData & Request.Form("AssPret") & chr(20)
	
	if Request.Form("PretHyp") = "on" then
		vContent = vContent & "<strong>Acte de prêt hypothécaire</strong><br>"
	end if
	vData = vData & Request.Form("PretHyp") & chr(20)
	
	if Request.Form("Taxes") = "on" then
		vContent = vContent & "<strong>Taxes municipales et scolaires</strong><br>"
	end if
	vData = vData & Request.Form("Taxes") & chr(20)
	
	if Request.Form("Energ") = "on" then
		vContent = vContent & "<strong>Énergie</strong><br>"
	end if
	vData = vData & Request.Form("Energ") & chr(20)
	
	if Request.Form("AssBat") = "on" then
		vContent = vContent & "<strong>Assurance bâtiment</strong><br>"
	end if
	vData = vData & Request.Form("AssBat") & chr(20)
	
	if Request.Form("PermisV") = "on" then
		vContent = vContent & "<strong>Permis ville</strong><br>"
	end if
	vData = vData & Request.Form("PermisV") & chr(20)
	
	if Request.Form("PermisM ") = "on" then
		vContent = vContent & "<strong>Permis M.A.P.A.Q.</strong><br>"
	end if
	vData = vData & Request.Form("PermisM ") & chr(20)
	
	
	if Request.Form("EtatsFin ") = "on" then
		vContent = vContent & "<strong>États financiers</strong><br>"
	end if
	vData = vData & Request.Form("EtatsFin ") & chr(20)
	
	
	if Request.Form("txtComments") <> "" then
		vContent = vContent & "<span class=""txtField""><br><strong><U>Commentaires :</strong></U></span><br><br>" & vbcrlf
		vContent = vContent & Request.Form("txtComments")
	end if
	vData = vData & Request.Form("txtComments") & chr(20)
	

	vContent = vContent & "<div style=""visibility: hidden; display: none"">" & chr(19)  & chr(19) & "</div>" & vbcrlf
	vContent = vContent & "</body></html>"

	if vMess = "" then	
		
		'Response.Write vContent 
		SendEMail EMAIL_FROM, EMAIL_TO, "", vSubject, vContent
		
		showContentA = false
	end if
	end if	%>


<SCRIPT LANGUAGE="JavaScript" type="text/javascript">
/**
 * Sets a Cookie with the given name and value.
 *
 * name       Name of the cookie
 * value      Value of the cookie
 * [expires]  Expiration date of the cookie (default: end of current session)
 * [path]     Path where the cookie is valid (default: path of calling document)
 * [domain]   Domain where the cookie is valid
 *              (default: domain of calling document)
 * [secure]   Boolean value indicating if the cookie transmission requires a
 *              secure transmission
 */
function setCookie(name, value, expires, path, domain, secure)
{
    document.cookie= name + "=" + escape(value) +
        ((expires) ? "; expires=" + expires.toGMTString() : "") +
        ((path) ? "; path=" + path : "") +
        ((domain) ? "; domain=" + domain : "") +
        ((secure) ? "; secure" : "");
}

/**
 * Gets the value of the specified cookie.
 *
 * name  Name of the desired cookie.
 *
 * Returns a string containing value of specified cookie,
 *   or null if cookie does not exist.
 */
function getCookie(name)
{
    var dc = document.cookie;
    var prefix = name + "=";
    var begin = dc.indexOf("; " + prefix);
    if (begin == -1)
    {
        begin = dc.indexOf(prefix);
        if (begin != 0) return null;
    }
    else
    {
        begin += 2;
    }
    var end = document.cookie.indexOf(";", begin);
    if (end == -1)
    {
        end = dc.length;
    }
    return unescape(dc.substring(begin + prefix.length, end));
}

/**
 * Deletes the specified cookie.
 *
 * name      name of the cookie
 * [path]    path of the cookie (must be same as path used to create cookie)
 * [domain]  domain of the cookie (must be same as domain used to create cookie)
 */
function deleteCookie(name, path, domain)
{
    if (getCookie(name))
    {
        document.cookie = name + "=" + 
            ((path) ? "; path=" + path : "") +
            ((domain) ? "; domain=" + domain : "") +
            "; expires=Thu, 01-Jan-70 00:00:01 GMT";
    }
}


var vAct = 0; // Menu Actuellement ouvert
var vZoom = getCookie("ZoomCAH"); // l'Ã©tat du zoom, kelle style sheet est conservÃ©e dans le cookie
if (vZoom == "" || vZoom == null) { vZoom = 1; } //si aucun cookie
setActiveStyleSheet("a" + vZoom); // alors on met le zoom 1 par dÃ©faut

//imprime le document
function printWindow() {
	if((navigator.appVersion.indexOf("4.") != -1) && (navigator.appName.indexOf("Netscape") != -1));
	print();
}

//ouvre un sous menu en changant la propriÃ©tÃ© display de la table concernÃ©
function OpenMenu(vID) {
	var vTab
	if(vAct != 0) {
		vTab = document.getElementById("SubTab" + vAct);
		vTab.style.display = "none";
	}
	if(vAct != vID) {
		vTab = document.getElementById("SubTab" + vID);
		vTab.style.display = "block";
		vAct = vID;
	} else {
		vAct = 0;
	}
}

//active la style sheet spÃ©cifiÃ©e
function setActiveStyleSheet(title) {
   var i, a, main;
   for(i=0; (a = document.getElementsByTagName("link")[i]); i++) {
     if(a.getAttribute("rel").indexOf("style") != -1
        && a.getAttribute("title")) {
       a.disabled = true;
       if(a.getAttribute("title") == title) a.disabled = false;
     }
   }
}

//change la style sheet pour un zoom en avant
function ZoomIn() {
	if(vZoom < 3) {
		setActiveStyleSheet("a" + ++vZoom);
		setCookie("ZoomCAH", vZoom);
	}
}

//change la style sheet pour un zoom en arriÃ¨re
function ZoomOut() {
	if(vZoom > 1) {
		setActiveStyleSheet("a" + --vZoom);
		setCookie("ZoomCAH", vZoom);
	}
}

//ajoute un Ã©lÃ©ment hidden Ã  une forme
function AddElement(vName, vVal) {
	var vItem = document.createElement("INPUT");
	vItem.type = "hidden";
	vItem.name = vName;
	vItem.value = vVal;
	frmRecherche.appendChild(vItem);
}

//arrange la forme pour la recherche
function SubmitSearch() {
	if(frmRecherche.radSearchRes.checked) {
		frmRecherche.action = 'http://bottin.aineshebergement.com/recherche.asp';
		AddElement("keywords", frmRecherche.txtSearch.value);
		AddElement("cmbVille", "Toutes");
		AddElement("cmbStyle", "Tous");
		AddElement("cmbCLSC", "Tous");
		AddElement("cmbAsso", "Toutes");
		AddElement("cmbGroupe", "Tous");
		AddElement("cmdSearch", "Rechercher");
	} else {
		frmRecherche.action = BaseSite + 'recherche.asp';
		AddElement("chkArt", "on");
		AddElement("chkRev", "on");
		AddElement("chkFR", "on");
		AddElement("chkLink", "on");
	}
}
</script>
<script type="text/javascript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

<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;
}
//ouvre un sous menu en changant la propriété display de la table concerné
function OpenMenu(vID) {
	var vTab
	if(vAct != 0) {
		vTab = document.getElementById("SubTab" + vAct);
		vTab.style.display = "none";
	}
	if(vAct != vID) {
		vTab = document.getElementById("SubTab" + vID);
		vTab.style.display = "block";
		vAct = vID;
	} else {
		vAct = 0;
	}
}
</script>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<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="description" content="Short description of your site here." />
<meta name="keywords" content="keywords, go, here, seperated, by, commas" />

<!-- 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>

<body>

<div id="page_wrapper">

<table width="100%">
<tr><td colspan="2">

<div id="header_wrapper">

<div id="header">

</div>

<div id="navcontainer">

<ul id="navlist">
<li id="active"><a href="index.asp?p=mandats" >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 Max(Last_brp) FROM tblBrp" 
							 RS2.Open strSQL, CNRS					
					noBrp = RS2.Fields(0)
					RS2.Close 
					noBrp = noBrp & "Web.html"%>
			
					
   <table width="100%" border="0" cellpadding="0" cellspacing="2" class="texte-8pt">
   
   <tr> <td  class="txt_title">
          
			
			 <a href="javascript:OpenMenu(2000);"> <h3><img src="images/fleche.jpg">
			
			Mandats</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>
				<table id="SubTab2000" class="menuNew" >
				
				<tr><td><%
						Response.Write "<a href=""index.asp"">Liste des mandats</a>"	
											
							%> </td></tr>
								<% if Session("Perm") = 1 then  %>
							<tr><td>
							 <a href="http://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=<%=Session("Userid")%>"  target="_blank">
							 Comparez mandats</a> 
			               
							 </td></tr>
							<%else %>
							<tr><td>
							 <a href="http://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=1&non=1"  target="_blank">
							 Comparez mandats</a> 
			               
							 </td></tr>
							<% end if%>
					
				
				<tr><td><%	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
					
						%> </td></tr>
					<tr><td><%
							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
						%> </td></tr>
					
</table></td></tr>
     
     <tr> <td  class="txt_title">
          
			
			 <a href="javascript: OpenMenu(1000);"> <h3><img src="images/fleche.jpg">
			
			Achat - Vente</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>
				<table id="SubTab1000" class="menuNew" >
			
                  
						<tr><td><%
							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
							%> </td></tr>	
						<tr><td><%
							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
							%> </td></tr>						
						<tr><td><%
							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
							%> </td></tr>
						<tr><td><%
								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
								%> </td></tr>
					
					    <tr><td><%
					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
					%> </td></tr>
					  <tr>
					  <td>
						<a href="http://www.richardperreault.ca/brp/<%=noBrp%>" target="_blank">
						<img src="http://aineshebergement.dtdns.net/WebResidences/indice/Images/BRP.jpg" width="190px" /></a>
						 </td>
						 </tr>
						
						 <tr><td><%
						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
						%> </td></tr>
					
				
            </table>	
			</td>
	</tr> 


 <tr> <td  class="txt_title">
          
			
			 <a href="javascript: OpenMenu(3000);"> <h3><img src="images/fleche.jpg">
			
			Calculez</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>
				<table id="SubTab3000" class="menuNew" >
			
				<tr><td><%
						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
						%> </td></tr>
					<tr><td><%
						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
						%> </td></tr>
					<tr><td><%
						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
						%> </td></tr>
						<tr><td><%
						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
						%> </td></tr>
						<tr><td><%
						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
						%> </td></tr>
						</table></td></tr>
						
<tr> <td  class="txt_title">
          
			
			 <a href="javascript: OpenMenu(4000);"> <h3><img src="images/fleche.jpg">
			
			Qui suis-je ?</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>
				<table id="SubTab4000" class="menuNew" >			
				<tr><td><h5><a href="indexQui.asp" target="_self">Profil professionnel</a></h5> </td></tr>
				<tr><td>
				    <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>
				   
				 </td></tr>
				</table></td></tr>
			

<tr> <td  class="txt_title">
          
			
			 <a href="javascript: OpenMenu(5000);"> <h3><img src="images/fleche.jpg">
			
			Contacts</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>
				<table id="SubTab5000" class="menuNew" >			
		

<tr><td>
<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=390+Notre-Dame+Ouest,++Montr%C3%A9al,+Qu%C3%A9bec++H2Y+1T9&hl=fr&ie=UTF8&sll=45.513805,-73.615952&sspn=0.196553,0.308647&dirflg=r&ttype=now&noexp=0&noal=0&sort=def&hnear=390+Rue+Notre-Dame+Ouest,+Montr%C3%A9al,+Qu%C3%A9bec+H2Y+1T9&t=m&z=16" style="color:#0000FF;text-align:left" target="_blank">
                    <img src= "images/Gmaps.png" width="190px"; />
		 390 Notre-Dame O, #330<br />	Montréal, QC., H2Y 1T9</a><br/>

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


	</table>
	
 
<%if Session("Userid")<> "" 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><%=username%></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 :
				<%if username <> "" then%>
				<input type="text" class="text" name="username" id="Text3" value="<%=username%>" size="20" />
					
				<%else %>
					<input type="text" class="text" name="username" id="username" value="<%=Request.Form("username")%>" size="20" />
					<%end if %>
				</p>
				<p>Mot de passe :
				<%if mpasse <>"" then %>
				<input type="password" class="text" name="password" id="password" value="<%=mpasse%>" size="20" />
				<%else %>
					<input type="password" class="text" name="password" id="password1" size="20" />
					<%end if %>
				</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%>
 		
 		
  <table width="100%" border="0" cellpadding="0" cellspacing="2" class="texte-8pt">
   
   <tr> <td  class="txt_title">
          
			
			 <a href="javascript: OpenMenu(6000);"> <h3><img src="images/fleche.jpg">
			
			Liens utiles</h3></a>
		
			
		</td>
	</tr>   

    <tr>
			<td>


<table id="SubTab6000" class="menuNew">
 <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>
	</td></tr>
	</table>
	
	<div style="text-align:center;">
 		<a href="http://www.aineshebergement.com/bottin/default.asp" target="_blank">
 		<img src="http://aineshebergement.dtdns.net/WebResidences/bottin/Images/LogoBAH_194X194.jpg" width="205px" height="175px" />
 		</a>
    </div>		

</div>
</td>

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


<table id = "formulaire" >
<tr>
<td>
<%if ShowContentA then %>

<script language="javascript" type="text/javascript">
function chkLocAutre_onclick() {
	document.getElementById("txtLoc0").disabled = !document.getElementById("chkLoc0").checked;
}

function CheckAgent() {
	document.getElementById("divCourtier").style.display = document.getElementById("lstAch").value.substring(0,1) == "3"?"block":"none";
}	
	
</script>


<div>
<form name="rapport" id="rapport" action="indexRapportA.asp?p=rapport&id=<%=vID%>&resid=<%=res%>&ids=<%=sesid %>&ids2=<%=sesid2 %>&ids3=<%=sesid3 %>" method="post">

	
	<div id="other">
		
	<div id="region">
			<h5>Cocher s'il vous plaît les documents désirés :<br /></h5>		
			
			<%
			 Dim EtudeS, EtudeM,EvalA,EtudeEnv, InspectB, CerLoc, AssBat, PermisV, PermisM, PlanEvac,Energ, Taxes,Photos, DeclVendeur,PretHyp,AssPret,EtatsFin
           
			RS.Open  " SELECT  *  FROM tblListingDoc " & _
							 " WHERE Id_Listing = " & vID,CNRS	
							 if(RS.EOF And RS.BOF) then
							 elseif not isnull(RS.Fields("ConfPhotos")) then
							 Photos = RS.Fields("ConfPhotos")
							 EtudeM = RS.Fields("ConfEtudeM")
							 EtudeEnv = RS.Fields("ConfEtudeEnv")
							 EtudeS = RS.Fields("ConfEtudeS")
							 EvalA = RS.Fields("ConfEvalA")
							 InspectB = RS.Fields("ConfInspectB")							 
							 CerLoc = RS.Fields("ConfCerLoc")
							 AssBat = RS.Fields("ConfAssBat")
							 PermisV = RS.Fields("ConfPermisV")
							 PermisM = RS.Fields("ConfPermisM")
							 PlanEvac = RS.Fields("ConfPlanEvac")
							 Energ = RS.Fields("ConfEnerg")
							 Taxes = RS.Fields("ConfTaxes")
							 DeclVendeur = RS.Fields("DeclVendeur")
							  PretHyp = RS.Fields("PretHyp")
							  AssPret = RS.Fields("AssPret")
							  EtatsFin = RS.Fields("EtatsFin")
							  end if
							  
							 RS.Close%>
	<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" class="texte-8pt">
	   <tr><td>&nbsp;</td></tr>
	   <tr>
       
        <td><div align="left"> 
        <% if sesid="111"   then %> 
         <input type="text" value = "RÉSIDENCE" name="res" id = "Text1" readonly ="readonly" /> 
       <%elseif Len(mac) > 0 then %>  
        <input type="text" value = "# <%=mac%>"  name="res" id = "Text2" readonly ="readonly" /> 
        <%else %>  
        <input type="text" value = "# <%=res%>"  name="res" id = "res" readonly ="readonly" /> 
        <%end if %> 
         </div></td> 
         <% if sesid<>"" and sesid <>"111"   then %>
         <% 
         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 = " & sesid 
								RS.Open strSQL, CNRS
								sesid = sesid & RS.Fields(0)
								RS.Close()
								%>
		<%end if %>
          <td><div align="left">    
        <input type="hidden" value = "<%=sesid%>"  name="ach" id = "ach" visible ="false" readonly ="readonly"  /> 
         
         </div></td>       
      </tr>
      
     <tr>
        <td><div align="left">        
         
        <input type="checkbox" class="checkbox" name="rapportComplet" id="rapportComplet"><label for="rapportComplet" id="lblrapportComplet">&nbsp;LISTING COMPLET</label> 
        <% if mp <>0 then %>
        <a href="ficheFB.asp?mtp=21000101&mpasse=<%=mp%>&ida=1">
		<img src="images/iconFolder.jpg" width="22" height="20" alt="Fiche complète" border = "0"></a>	
		<%end if %> 
         </div></td>       
      </tr>
	     <% if Photos  <> 0 then%>
	     <tr>       
        <td><div align="left">        
         <input type="checkbox" class="checkbox" name="Photos" id="Photos"><label for="Photos" id="lblPhotos">&nbsp;Photos</label>        
        </div></td>      
      </tr>
       <% end if %>
       <% if EtudeS  <> 0 then%>
        <tr>      
        <td><div align="left">       
         <input type="checkbox" class="checkbox" name="EtudeS" id="EtudeS"><label for="EtudeS" id="lblEtudeS">&nbsp;Étude du marché SCHL</label> 
       </div></td>       
      </tr>
      <% end if %>
      <% if EtudeM<> 0 then%>
       <tr>      
        <td><div align="left">      
         <input type="checkbox" class="checkbox" name="EtudeM" id="EtudeM"><label for="EtudeS" id="lblEtudeM">&nbsp;Étude du marché privé</label> 
       </div></td>       
      </tr>
      <% end if %>
       
       <% if EvalA  <> 0 then%>
        <tr>      
        <td><div align="left">      
         <input type="checkbox" class="checkbox" name="EvalA" id="EvalA"><label for="EvalA" id="LabEvalA">&nbsp;Évaluation agréé</label> 
       </div></td>       
      </tr>
      <% end if %>
      
     <% if DeclVendeur  <> 0 then%>
      <tr>      
        <td><div align="left">     
         <input type="checkbox" class="checkbox" name="DeclVendeur" id="DeclVendeur"><label for="DeclVendeur" id="LabDeclVendeur1">&nbsp;Declaration du vendeur</label> 
       </div></td>       
      </tr>
      <% end if %>
    <% if InspectB  <> 0 then%>
     <tr>      
        <td><div align="left">     
         <input type="checkbox" class="checkbox" name="InspectB" id="InspectB"><label for="InspectB" id="LabInspectB">&nbsp;Inspection bâtiment</label> 
       </div></td>       
      </tr>
      <% end if %>
      
     <% if EtudeEnv  <> 0 then%>
      <tr>      
        <td><div align="left">     
         <input type="checkbox" class="checkbox" name="EtudeEnv" id="EtudeEnv"><label for="EtudeEnv" id="LabEtudeEnv">&nbsp;Étude environnementale</label> 
       </div></td>       
      </tr>
      <% end if %>
      
     <% if PlanEvac  <> 0 then%>
     <tr>      
        <td><div align="left">   
         <input type="checkbox" class="checkbox" name="PlanEvac" id="PlanEvac"><label for="PlanEvac" id="LabPlanEvac">&nbsp;Plan d'évacuation</label> 
       </div></td>       
      </tr>
      <% end if %>
      
     <% if CerLoc  <> 0 then%>
      <tr>      
        <td><div align="left">  
         <input type="checkbox" class="checkbox" name="CerLoc" id="CerLoc"><label for="CerLoc" id="LabCerLoc">&nbsp;Certificat localisation</label> 
       </div></td>       
      </tr>
      <% end if %>
      
      
       <% if AssPret  <> 0 then%> 
       <tr>      
        <td><div align="left"> 
         <input type="checkbox" class="checkbox" name="AssPret" id="AssPret"><label for="AssPret" id="LabAssPret">&nbsp;Acte d'assurance hypothécaire SCHL</label> 
       </div></td>       
      </tr>
      <% end if %>
      
       <% if PretHyp  <> 0 then%>
       <tr>      
        <td><div align="left"> 
         <input type="checkbox" class="checkbox" name="PretHyp" id="PretHyp"><label for="PretHyp" id="LabPretHyp">&nbsp;Acte de prêt hypothécaire</label> 
       </div></td>       
      </tr>
      <% end if %>
      
      <% if Taxes  <> 0 then%>
       <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="Taxes" id="Taxes"><label for="Taxes" id="LabTaxes">&nbsp;Taxes municipales et scolaires</label> 
       </div></td>       
      </tr>
      <% end if %>
      
      <% if Energ  <> 0 then%>
      <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="Energ" id="Energ"><label for="Energ" id="LabEnerg">&nbsp;Énergie</label> 
       </div></td>       
      </tr>
      <% end if %>
      
      <% if AssBat  <> 0 then%>
      <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="AssBat" id="AssBat"><label for="AssBat" id="LabAssBat">&nbsp;Assurance bâtiment</label> 
       </div></td>       
      </tr>
      <% end if %>
      
     <% if PermisV  <> 0 then%>
      <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="PermisV" id="PermisV"><label for="PermisV" id="LabPermisV">&nbsp;Permis ville</label> 
       </div></td>       
      </tr>
      <% end if %>
      
    <% if PermisM  <> 0 then%>
    <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="PermisM" id="PermisM"><label for="PermisM" id="LabPermisM">&nbsp;Permis M.A.P.A.Q.</label> 
       </div></td>       
      </tr>
      <% end if %>
      
       <% if EtatsFin  <> 0 then%>
    <tr>      
        <td><div align="left">
         <input type="checkbox" class="checkbox" name="EtatsFin" id="EtatsFin"><label for="EtatsFin" id="LabEtatsFin">&nbsp;États financiers</label> 
       </div></td>       
      </tr>
      <% end if %>
      
	  
	 </table>  
		</div>
		
		<div id="notes">
			<h5>Commentaires et autres informations.</h5>
			<textarea class="text" id="txtComments" name="txtComments"><%=Request.Form("txtComments")%></textarea>
		</div>
	</div>
	<div id="buttons">
		
		<!--<a href="mailto:rp@aineshebergement.com?subject=Inscription : richardperreault.ca(<%=vSubject%>)&cc=mcouture@aineshebergement.com&body=Je veux obtenir un nom d'utilisateur ainsi qu'un mot de passe, pour voir les fiches decriptive.Merci">&lt;&lt; S'INSCRIRE &gt;&gt;</a>-->
		
		<input type="submit" class="button" name="cmdSubmit" id="cmdSubmit" value="envoyer">
		<input type="reset" class="button" name="cmdReset" id="cmdReset" value="effacer">
	</div>
</form>
</div>

<%else %>

		<div id="answer">
			<p>Vous recevrez une réponse par courriel d'ici 24 heures.</p>
			<p>Merci.</p>
		</div>
	
<%end if %>	
</td></tr>
</table>
	

<% EndConnect %>	


</div>

</td>


</tr>
</table>

</div>

</body>

</html>