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

function validateComment(vCom)
dim nrC
nrC=0
For I = 1 To 6	

if Mid(vCom,I,1) <> "a" and Mid(vCom,I,1) <> "e"  and Mid(vCom,I,1) <> "i"  and Mid(vCom,I,1) <> "o"  and Mid(vCom,I,1) <> "u"  and Mid(vCom,I,1) <> "y" then
 	nrC = nrC +1
end if 							
    Next
    
     validateComment = nrC

end function

Dim ShowContent 'As Boolean											'Should the form be Displayed
ShowContent = 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 vComment
	vMess = ""

	
    if Request.Form("txtNom") = "" then
    vName = "Sans Nom"
    else 
   vName = Trim(Request.Form("txtNom"))
    end if 
    
	
	vSubject = "Commentaire laissé par " & vName & " le " & FormatDate(Now, "dd-mmm-yyyy") & " (site RP)"
	vContent = ""	
	vData = vData & vName & 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""><h3><b>" & vbcrlf
	
	vContent = vContent & "<table border=0 cellspacing=0 cellpadding=0 style=""FONT-SIZE : 9pt""><tr><td valign=top>" & vbcrlf

	vContent = vContent & "</td><td width=10></td><td valign=top>" & vbcrlf
	
		if Request.Form("txtVille") <> "" then
			vContent = vContent & Request.Form("txtVille")
			vData = vData & Request.Form("txtVille") & chr(20)	
	    end if
	    
	    if Request.Form("txtComments") <> "" then
		vContent = vContent & "<span class=""txtField""><br><br>Commentaires</span><br>" & vbcrlf
		vContent = vContent & Request.Form("txtComments")
		else
		vMess = vMess & "txtComments;"
	     end if
	    
	vData = vData & Request.Form("txtComments") & chr(20)	
	vContent = vContent & "</td></tr></table></body></html>" 
    vComment = Request.Form("txtComments")
	if vMess = "" and validateComment(vComment) < 5 then	
		
		'Response.Write vContent 
		SendEMail EMAIL_FROM, EMAIL_TO, "", vSubject, vContent
		
		showContent = 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" width = "215">
   <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""><img src=""images/fleche.gif"">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">
							 <img src="images/fleche.gif">Comparez mandats</a> 
			               
							 </td></tr>
							<%else %>
							<tr><td>
							 <a href="http://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=1&non=1"  target="_blank">
							 <img src="images/fleche.gif">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""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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") = "courtSpec" then
								Response.Write "<p>Courtier spécialisé</p>"
							else						
								Response.Write "<a href=""indexCourtier.asp?p=courtSpec""><img src=""images/fleche.gif"">Courtier spécialisé</a>"
							end if
							%> </td></tr>	
						<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""><img src=""images/fleche.gif"">Achat / mot de passe</a>"
							end if
							%> 
							<ol>
														
							
							<%
							if Request.QueryString("p") = "initCons" then
								Response.Write "<p>Initiation</p>"
							else						
								Response.Write "<a href=""indexInitCons.asp?p=initCons""><img src=""images/fleche.gif"">Initiation</a>"
							end if
							%> <br /><%
							if Request.QueryString("p") = "bon" then
								Response.Write "<p>Entente</p>"
							else						
								Response.Write "<a href=""indexBonproced.asp?p=bon""><img src=""images/fleche.gif"">Entente</a>"
							end if
							%><br /><%
							if Request.QueryString("p") = "faq" then
								Response.Write "<p>Mandat acheteur</p>"
							else						
								Response.Write "<a href=""indexFaq.asp?p=faq""><img src=""images/fleche.gif"">Mandat acheteur</a>"
							end if
							%>
							
							</ol>			
           	
							
							</td></tr>			
						<tr><td><%
							if Request.QueryString("p") = "vente" then
								Response.Write "<p><img src=""images/fleche.gif"">Vente de r&eacute;sidence</p>"
							else						
								Response.Write "<a href=""indexVente.asp?p=vente""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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&""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">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""><img src=""images/fleche.gif"">Calcul d'ajustement</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"><img src="images/fleche.gif">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>

<tr> <td >
          
			
			 <a href="indexComm.asp?p=commentaire"><h3>
			
			Laissez vos commentaires</h3></a>
		
			
		</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="Text1" 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 ShowContent then %>

<form name="commentaire" id="commentaire" action="indexComm.asp?p=commentaire" method="post">
	
	
	<h3>Veuillez utiliser ce formulaire pour nous poser des questions ou nous faire part de vos commentaires.<br /></h3>
	<% ShowFieldsComment %>
	<div id="other">			
		<div id="notes">
			<h5>Commentaires</h5>
			<textarea class="text" id="txtComments" name="txtComments" style="height:300px;"><%=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>
<%else %>

	<div id="answer">
			<p>Vos commentaires nous tiennent ŕ coeur!<br />Merci d'avoir pris le temps de nous laisser vos commentaires.</p>
		</div>
	
<%end if %>		

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

<% EndConnect %>	


</div>

</td>


</tr>
</table>


</div>

</body>

</html>