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

    vMess = ""
    
    if Request.Form("txtPrenom") = "" then
    vNom = "Sans Prenom"
    else 
    vNom = Request.Form("txtPrenom")
    end if 
    
      if Request.Form("txtNom") = "" and Len(vUsid) =0  then
    vNom = "Sans Nom"
    else 
    vNom = Request.Form("txtNom")
    end if 
    
    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
	
   
	vContent = vContent & "<span class=""txtField""><strong><U>Coordonnées</U></strong></span><br><br>" & vbcrlf
	vContent = vContent & "<table border=0 cellspacing=0 cellpadding=0 style=""FONT-SIZE : 9pt""><tr><td valign=top>" & vbcrlf

	if Request.Form("txtTelephone") <> "" then
		vContent = vContent & "Téléphone : <b>" & Request.Form("txtTelephone") & "</b><br>"	 & vbcrlf
	end if
		vData = vData & Request.Form("txtTelephone") & chr(20)

		
	if Request.Form("txtCellulaire") <> "" then
		vContent = vContent & "Téléphone céllulaire : <b>" & Request.Form("txtCellulaire") & "</b><br>"	& vbcrlf
	end if
		vData = vData & Request.Form("txtCellulaire") & chr(20)
	
	
	if Request.Form("txtEmail") <> "" and instr(Request.Form("txtEmail"), "@") > 0 then
		if trim(Request.Form("txtEmail")) = trim(Request.Form("txtEmailCF")) then
			vContent = vContent & "Courriel : <a href=""mailto:" & Request.Form("txtEmail") & """<b>" & Request.Form("txtEmail") & "</b></a><br>" & vbcrlf
			vData = vData & Request.Form("txtEmail") & chr(20)
		else
			vMess = vMess & "txtEmailCF;"
		end if
	else
		vMess = vMess & "txtEmail;"
	end if
	vContent = vContent & "<br><br>" & vbcrlf
	vContent = vContent & "</td><td width=10></td><td valign=top>" & vbcrlf	
	
	
	vContent = vContent & "</td></tr></table>" & 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
		
		showContent = false
	end if
	end if	%>

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

<script type="text/javascript">
function initRedir() {
window.location='http://aineshebergement.dtdns.net/richardperreault/indexRapport.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" >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://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=<%=Session("Userid")%>"  target="_blank">
							 Comparez mandats</a> 
			               
							</li>
							<%else %>
							<li>
							 <a href="http://aineshebergement.dtdns.net/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">


<table id = "formulaire" >
<tr>
<td>
<%if ShowContent 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="indexRapport.asp?p=rapport&id=<%=vID%>&resid=<%=res%>&ids=<%=sesid %>&ids2=<%=sesid2 %>&ids3=<%=sesid3 %>" method="post">

	
	<h3>Les documents sont disponibles sur demande par l'envoi du formulaire.</h3>
	<p><font color ="maroon">(* champs obligatoires)</font></p>
	<% ShowFieldsRapport %>
	
	<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="http://aineshebergement.dtdns.net/richardperreault/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>
</td></tr>
</table>
<%else %>

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


<% EndConnect %>	


</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 />
			Lundi au vendredi de 8h30 à 16h30
			 <br/>rp@aineshebergement.com</a><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>

</div>

</body>

</html>